tip 44 - dumbell plots

044_dumbell_plots/044_dumbell_plots.R

@@ -0,0 +1,79 @@
+# R TIPS ----
+# TIP 044 | ggalt: dumbell plots ----
+#
+# 👉 For Weekly R-Tips, Sign Up Here:
+#    https://mailchi.mp/business-science/r-tips-newsletter
+
+
+# LIBRARIES ----
+
+library(tidyverse)
+library(tidyquant)
+library(ggalt) # devtools::install_github("hrbrmstr/ggalt")
+
+# DATA ----
+mpg
+
+# 1.0 DATA WRANGLING ----
+# - Learn dplyr in R for Business Analysis DS4B 101-R Course
+
+mpg_by_year_tbl <- mpg %>%
+    select(hwy, year, model, class) %>%
+    pivot_wider(
+        names_from   = year,
+        values_from  = hwy,
+        id_cols      = c(class, model),
+        values_fn    = function(x) mean(x, na.rm = TRUE),
+        names_prefix = "year_"
+    ) %>%
+    mutate(model = fct_reorder(model, year_2008)) %>%
+    drop_na()
+
+# 2.0 VISUALIZATION (Dumbell Plots) ----
+# - Learn ggplot2 in R for Business Analysis DS4B 101-R Course
+
+# * Basic Dumbell Plot with ggalt ----
+g1 <- mpg_by_year_tbl %>%
+    ggplot(aes(x = year_1999, xend = year_2008, y = model, group = model)) +
+
+    geom_dumbbell(
+        colour="#a3c4dc",
+        colour_xend="#0e668b",
+        size=2.0,
+        dot_guide=TRUE,
+        dot_guide_size=0.15,
+        dot_guide_colour = "grey60"
+    )
+
+g1
+
+# * Customize Theme with tidyquant ----
+g2 <- g1 +
+    labs(
+        title = "Change Vehicle Fuel Economy between 1999 and 2008",
+        x="Fuel Economy (MPG)", y = "Vehicle Model"
+    ) +
+    theme_tq() +
+    theme(
+        panel.grid.minor=element_blank(),
+        panel.grid.major.y=element_blank(),
+        panel.grid.major.x=element_line(),
+        axis.ticks=element_blank(),
+        panel.border=element_blank()
+
+    )
+
+g2
+
+
+# LEARNING MORE ----
+
+# R FOR BUSINESS ANALYSIS COURSE (DS4B 101-R)
+# - Learn visualization {ggplot2} in Week 4 (4+ hours just on ggplot)
+#   https://university.business-science.io/p/ds4b-101-r-business-analysis-r
+
+# 5-COURSE R-TRACK
+# - Beginner to Expert in 6-months
+#   https://university.business-science.io/p/5-course-bundle-machine-learning-web-apps-time-series/
+
+