sandbox/examples/smoke-ca-confer.r

In corybrunson/ordr: A Tidyverse Extension for Ordinations and Biplots

# Row- and column-principal biplots for CA of artificial smoking frequency data
data(smoke, package = "ca")
smoke %>%
  ca::ca() %>%
  as_tbl_ord() %>%
  print() -> smoke_ca
smoke_ca %>%
  confer_inertia("rowprincipal") %>%
  ggbiplot(aes(label = .name)) +
  theme_bw() +
  geom_rows_point(color = "green") +
  geom_rows_text_repel(color = "blue") +
  geom_cols_point(color = "brown", shape = 17) +
  geom_cols_text_repel(color = "brown")
smoke_ca %>%
  confer_inertia("colprincipal") %>%
  ggbiplot(aes(label = .name)) +
  theme_bw() +
  geom_rows_point(color = "green") +
  geom_rows_text_repel(color = "blue") +
  geom_cols_point(color = "brown", shape = 17) +
  geom_cols_text_repel(color = "brown")