From 197c3d956645b59b792efb56d0ddd0ae9ac46316 Mon Sep 17 00:00:00 2001
From: Jason Cory Brunson <cornelioid@gmail.com>
Date: Wed, 20 Nov 2024 13:57:38 -0500
Subject: [PATCH] use biplot coordinate system in an example

---
 inst/examples/ex-methods-lra-arrests.r | 8 ++++----
 man/methods-lra.Rd                     | 8 ++++----
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/inst/examples/ex-methods-lra-arrests.r b/inst/examples/ex-methods-lra-arrests.r
index 6a92dee1..857c55b7 100644
--- a/inst/examples/ex-methods-lra-arrests.r
+++ b/inst/examples/ex-methods-lra-arrests.r
@@ -31,14 +31,14 @@ arrests_lra %>%
   confer_inertia("rows") %>%
   ggbiplot(aes(color = .matrix), sec.axes = "cols", scale.factor = 1/20) +
   scale_color_manual(values = c("tomato4", "turquoise4")) +
-  theme_bw() +
+  theme_bw() + theme_biplot() +
   geom_rows_text(aes(label = abb), size = 3, alpha = .75) +
   geom_cols_polygon(fill = NA, linetype = "dashed") +
   geom_cols_text(aes(label = name, size = weight), fontface = "bold") +
   scale_size_area(guide = "none") +
   ggtitle(
-    "Non-compositional LRA of violent crime arrest rates",
-    "United States, 1973"
+    "Violent crime arrest rates",
+    "Non-compositional LRA"
   ) +
-  expand_limits(x = c(-.35)) +
+  coord_biplot() +
   guides(color = "none")
diff --git a/man/methods-lra.Rd b/man/methods-lra.Rd
index f90ed031..8acbc8c5 100644
--- a/man/methods-lra.Rd
+++ b/man/methods-lra.Rd
@@ -84,16 +84,16 @@ arrests_lra \%>\%
   confer_inertia("rows") \%>\%
   ggbiplot(aes(color = .matrix), sec.axes = "cols", scale.factor = 1/20) +
   scale_color_manual(values = c("tomato4", "turquoise4")) +
-  theme_bw() +
+  theme_bw() + theme_biplot() +
   geom_rows_text(aes(label = abb), size = 3, alpha = .75) +
   geom_cols_polygon(fill = NA, linetype = "dashed") +
   geom_cols_text(aes(label = name, size = weight), fontface = "bold") +
   scale_size_area(guide = "none") +
   ggtitle(
-    "Non-compositional LRA of violent crime arrest rates",
-    "United States, 1973"
+    "Violent crime arrest rates",
+    "Non-compositional LRA"
   ) +
-  expand_limits(x = c(-.35)) +
+  coord_biplot() +
   guides(color = "none")
 }
 \seealso{