add labels

gposadav · Aug 24, 2021 · 8b68b6e · 8b68b6e
1 parent f91b231
commit 8b68b6e
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/045_lollipop_plots/045_lollipop_plots.R b/045_lollipop_plots/045_lollipop_plots.R
@@ -36,15 +36,24 @@ g1 <- mpg_by_class_tbl %>%
     geom_lollipop(
         horizontal   = TRUE,
         point.colour = "dodgerblue",
-        point.size   = 6,
+        point.size   = 10,
         color        = "#2c3e50",
         size         = 1
     )
 
 g1
 
 # * Customize Theme with tidyquant ----
+
 g2 <- g1 +
+    geom_label(
+        aes(label = str_glue("Vehicle Class: {toupper(class)}
+                             mpg: {round(mean_hwy)}")),
+        size    = 3,
+        hjust   = "outward",
+        nudge_x = 2
+    ) +
+    expand_limits(x = 45) +
     labs(
         title = "Vehicle Fuel Economy Lollipop Plot",
         x="Fuel Economy (MPG)", y = "Vehicle Class"