tweak examples that pass elements param to biplot layers

inst/examples/ex-dplyr-verbs-iris-lda.r

@@ -18,7 +18,11 @@ transmute_cols(iris_lda, vec.length = sqrt(LD1^2 + LD2^2))
 # bind data frames of annotations
 iris_medians <-
   stats::aggregate(iris[, 1:4], median, by = iris[, 5, drop = FALSE])
+# TODO: Requirement of `.elements` for matching is fragile.
 iris_lda %>%
   # retain '.element' in order to match by `elements`
   select_rows(.element) %>%
   cbind_rows(iris_medians, elements = "active")
+iris_lda %>%
+  select_rows(name, Species) %>%
+  left_join_rows(iris_medians, by = c("name" = "Species"))

inst/examples/ex-methods-cancor-savings.r

@@ -16,20 +16,20 @@ get_cols(savings_cca, elements = "structure")
 savings_cca %>%
   confer_inertia("cols") %>%
   ggbiplot(aes(label = name, color = .matrix)) +
-  theme_bw() + theme_biplot() +
+  theme_bw() + theme_scaffold() +
   geom_unit_circle() +
+  geom_rows_point(elements = "score", color = "grey") +
   geom_rows_vector(arrow = NULL, elements = "structure") +
   geom_cols_vector(arrow = NULL, elements = "structure", linetype = "dashed") +
   geom_rows_text(elements = "structure", hjust = "outward") +
   geom_cols_text(elements = "structure", hjust = "outward") +
   scale_color_brewer(limits = c("rows", "cols"), type = "qual") +
   expand_limits(x = c(-1, 1), y = c(-1, 1))
 
-# biplot with scores as supplemental elements
+# situate country scores along financial variables
 savings_cca %>%
   confer_inertia("rows") %>%
-  ggbiplot(aes(label = name), sec.axes = "cols", scale.factor = 5L) +
-  theme_biplot() +
-  geom_cols_vector(elements = "active") +
-  geom_cols_text_radiate(elements = "active") +
-  geom_rows_text(elements = "score", subset = seq(50L))
+  ggbiplot(aes(label = name)) +
+  theme_scaffold() +
+  geom_cols_axis(elements = "active") +
+  geom_rows_text(elements = "score")

inst/examples/ex-stat-matrix-swiss.r

@@ -9,7 +9,7 @@ head(get_rows(swiss_fa, elements = "score"))
 # (note that filter precedes selection)
 ggbiplot(swiss_fa) +
   geom_rows_point(elements = "score") +
-  geom_rows_text(aes(label = name), elements = "score", subset = c(1, 4, 18)) +
+  geom_rows_label(aes(label = name), elements = "score", subset = c(1, 4, 18)) +
   scale_alpha_manual(values = c(0, 1), guide = "none") +
   geom_cols_vector() +
   geom_cols_text_radiate(aes(label = name))