Grouped box plot using tidyplots

Question

I created a grouped box plot using ggplot2 package and now I want to re-create it using the tidyplots package. The reason is that I created another plot (stacked bar chart) where I used specific colors for the Scenarios (please see the attached image). The colors in the bar chart are tidyplots' default and now I want to use the same color to the box plot's scenarios (please see the attached image).

Below is the ggplot2 code for the box plot:

ggplot(combined_df, aes(x = Metric, y = Value, color = scenario)) +
  geom_boxplot(outlier.shape = NA, fill = "gray90", color = "gray50", width = 0.6) +
  geom_jitter(width = 0.2, size = 3, alpha = 0.7) +
  facet_wrap(~ Sector, nrow = 1) +
  scale_color_manual(values = scenario_colors) +
  geom_hline(yintercept = 0, linetype = "dashed", color = "black", linewidth = 0.3) +
  labs(
    title = NULL,
    subtitle = NULL,
    y = "Resilience Metric Value",
    x = NULL,
    color = "Resilience Scenario"
  ) +
  theme_minimal(base_size = 14) +
  theme(
    panel.grid = element_blank(), 
    panel.border = element_rect(color = "black", fill = NA, linewidth = 0.8), 
    axis.line = element_line(color = "black", linewidth = 0.5),
    axis.ticks = element_line(color = "black")
  )

The dataset:

> dput(combined_df)
structure(list(Sector = c("Retail", "Retail", "Retail", "Retail", 
"Retail", "Retail", "Retail", "Retail", "Retail", "Retail", "Retail", 
"Retail", "Retail", "Retail", "Retail", "Retail", "Retail", "Retail", 
"Retail", "Retail", "Retail", "Retail", "Retail", "Retail", "Retail", 
"Retail", "Retail", "Airport", "Airport", "Airport", "Airport", 
"Airport", "Airport", "Airport", "Airport", "Airport", "Airport", 
"Airport", "Airport", "Airport", "Airport", "Airport", "Airport", 
"Airport", "Airport", "Airport", "Airport", "Airport", "Airport", 
"Airport", "Airport", "Airport", "Airport", "Airport", "Airport", 
"Airport", "Airport", "Industrial", "Industrial", "Industrial", 
"Industrial", "Industrial", "Industrial", "Industrial", "Industrial", 
"Industrial", "Industrial", "Industrial", "Industrial", "Industrial", 
"Industrial", "Industrial", "Industrial", "Industrial", "Industrial", 
"Industrial", "Industrial", "Industrial", "Industrial", "Industrial", 
"Industrial", "Industrial", "Industrial", "Industrial", "Industrial", 
"Industrial", "Industrial", "Industrial", "Industrial", "Industrial", 
"Industrial", "Industrial", "Industrial", "Industrial", "Industrial", 
"Industrial", "Industrial", "Industrial", "Industrial", "Industrial", 
"Industrial", "Industrial"), Metric = c("UR", "UR", "UR", "UR", 
"UR", "UR", "UR", "UR", "UR", "GI", "GI", "GI", "GI", "GI", "GI", 
"GI", "GI", "GI", "NI", "NI", "NI", "NI", "NI", "NI", "NI", "NI", 
"NI", "UR", "UR", "UR", "UR", "UR", "UR", "UR", "UR", "UR", "UR", 
"GI", "GI", "GI", "GI", "GI", "GI", "GI", "GI", "GI", "GI", "NI", 
"NI", "NI", "NI", "NI", "NI", "NI", "NI", "NI", "NI", "UR", "UR", 
"UR", "UR", "UR", "UR", "UR", "UR", "UR", "UR", "UR", "UR", "UR", 
"UR", "UR", "GI", "GI", "GI", "GI", "GI", "GI", "GI", "GI", "GI", 
"GI", "GI", "GI", "GI", "GI", "GI", "NI", "NI", "NI", "NI", "NI", 
"NI", "NI", "NI", "NI", "NI", "NI", "NI", "NI", "NI", "NI"), 
    City = c("BA", "Johan", "LA", "SP", "Sydney", "Madrid", "Mexico", 
    "NY", "Paris", "BA", "Johan", "LA", "SP", "Sydney", "Madrid", 
    "Mexico", "NY", "Paris", "BA", "Johan", "LA", "SP", "Sydney", 
    "Madrid", "Mexico", "NY", "Paris", "Cairo", "HK", "LA", "London", 
    "Sydney", "Madrid", "Mexico", "Mumbai", "NY", "Tokyo", "Cairo", 
    "HK", "LA", "London", "Sydney", "Madrid", "Mexico", "Mumbai", 
    "NY", "Tokyo", "Cairo", "HK", "LA", "London", "Sydney", "Madrid", 
    "Mexico", "Mumbai", "NY", "Tokyo", "BA", "Cairo", "HK", "Johan", 
    "LA", "London", "SP", "Seoul", "Sydney", "Madrid", "Mexico", 
    "Mumbai", "NY", "Paris", "Tokyo", "BA", "Cairo", "HK", "Johan", 
    "LA", "London", "SP", "Seoul", "Sydney", "Madrid", "Mexico", 
    "Mumbai", "NY", "Paris", "Tokyo", "BA", "Cairo", "HK", "Johan", 
    "LA", "London", "SP", "Seoul", "Sydney", "Madrid", "Mexico", 
    "Mumbai", "NY", "Paris", "Tokyo"), Value = c(19, -4, 14, 
    9, -8, 4, 16, -11, 4, -6, -14, 3, -13, 11, -6, 7, 1, -16, 
    12, -18, 17, -5, 2, -2, 24, -10, -12, 6, 7, -8, -21, -6, 
    31, 8, -3, 6, -11, -1, -4, 5, -10, -8, -3, -7, -13, 4, -3, 
    4, 2, -3, -28, -14, 27, 0, -15, 10, -14, 6, 1, 7, -9, -1, 
    -13, 5, 1, 9, 14, 10, -9, 6, -2, -3, -4, -6, -6, -9, -4, 
    -6, -6, 5, -5, 4, 9, 7, 4, -5, -10, 2, -5, 1, -17, -4, -17, 
    -1, 6, 4, 17, 19, -2, 10, -7, -11), scenario = c("S1", "S5", 
    "S8", "S3", "S1", "S3", "S8", "S5", "S3", "S1", "S5", "S8", 
    "S3", "S1", "S3", "S8", "S5", "S3", "S1", "S5", "S8", "S3", 
    "S1", "S3", "S8", "S5", "S3", "S1", "S1", "S3", "S5", "S5", 
    "S1", "S1", "S5", "S8", "S5", "S1", "S1", "S3", "S5", "S5", 
    "S1", "S1", "S5", "S8", "S5", "S1", "S1", "S3", "S5", "S5", 
    "S1", "S1", "S5", "S8", "S5", "S1", "S3", "S1", "S5", "S5", 
    "S5", "S3", "S8", "S1", "S8", "S8", "S3", "S8", "S5", "S5", 
    "S1", "S3", "S1", "S5", "S5", "S5", "S3", "S8", "S1", "S8", 
    "S8", "S3", "S8", "S5", "S5", "S1", "S3", "S1", "S5", "S5", 
    "S5", "S3", "S8", "S1", "S8", "S8", "S3", "S8", "S5", "S5"
    )), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, 
-102L))

Session info:

R version 4.4.3 (2025-02-28 ucrt)
Platform: x86_64-w64-mingw32/x64
Running under: Windows 11 x64 (build 26100)

Matrix products: default

locale:
[1] LC_COLLATE=English_United States.utf8  LC_CTYPE=English_United States.utf8    LC_MONETARY=English_United States.utf8
[4] LC_NUMERIC=C                           LC_TIME=English_United States.utf8    

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
 [1] ggrepel_0.9.6    scales_1.3.0     tidytext_0.4.2   tidyplots_0.2.2  ggpubr_0.6.0     ggbeeswarm_0.7.2 scico_1.5.0      ggthemes_5.1.0  
 [9] ggtext_0.1.2     lubridate_1.9.4  forcats_1.0.0    stringr_1.5.1    purrr_1.0.4      readr_2.1.5      ggplot2_3.5.2    tidyverse_2.0.0 
[17] tidyr_1.3.1      dplyr_1.1.4      tibble_3.2.1    

loaded via a namespace (and not attached):
 [1] gtable_0.3.6       beeswarm_0.4.0     rstatix_0.7.2      lattice_0.22-7     tzdb_0.5.0         vctrs_0.6.5        tools_4.4.3       
 [8] generics_0.1.3     janeaustenr_1.0.0  pkgconfig_2.0.3    tokenizers_0.3.0   Matrix_1.7-3       RColorBrewer_1.1-3 lifecycle_1.0.4   
[15] compiler_4.4.3     farver_2.1.2       munsell_0.5.1      carData_3.0-5      vipor_0.4.7        SnowballC_0.7.1    Formula_1.2-5     
[22] pillar_1.10.2      car_3.1-3          abind_1.4-8        tidyselect_1.2.1   stringi_1.8.7      labeling_0.4.3     grid_4.4.3        
[29] colorspace_2.1-1   cli_3.6.4          magrittr_2.0.3     patchwork_1.3.0    utf8_1.2.4         broom_1.0.8        withr_3.0.2       
[36] backports_1.5.0    timechange_0.3.0   ggsignif_0.6.4     hms_1.1.3          rlang_1.1.6        gridtext_0.1.5     Rcpp_1.0.14       
[43] glue_1.8.0         xml2_1.3.8         rstudioapi_0.17.1  R6_2.6.1

For example, scale_color_manual(values = c("#0072B2","#56B4E9", "#F5C710","#D55E00")) — DaveArmstrong, Commented Apr 11 at 20:44

Nikos · Accepted Answer · 2025-04-11 20:51:11Z

I asked the same question on Posit Community and they commented the exact same thing. So I basically copy-paste the solution. They copied the colors from tidyplots and paste them to ggplot.

#colors from https://jbengler.github.io/tidyplots/articles/Color-schemes.html
c("#0072B2","#56B4E9","#009E73","#F5C710","#E69F00","#D55E00")

#Selected colors
scenario_colors <- c("#0072B2","#56B4E9","#F5C710","#D55E00")

library(ggplot2)
ggplot(combined_df, aes(x = Metric, y = Value, color = scenario)) +
  geom_boxplot(outlier.shape = NA, fill = "gray90", color = "gray50", width = 0.6) +
  geom_jitter(width = 0.2, size = 3, alpha = 0.7) +
  facet_wrap(~ Sector, nrow = 1) +
  scale_color_manual(values = scenario_colors) +
  geom_hline(yintercept = 0, linetype = "dashed", color = "black", linewidth = 0.3) +
  labs(
    title = NULL,
    subtitle = NULL,
    y = "Resilience Metric Value",
    x = NULL,
    color = "Resilience Scenario"
  ) +
  theme_minimal(base_size = 14) +
  theme(
    panel.grid = element_blank(),  # remove grid lines
    panel.border = element_rect(color = "black", fill = NA, linewidth = 0.8),  # add black border
    axis.line = element_line(color = "black", linewidth = 0.5),  # add axis lines
    axis.ticks = element_line(color = "black")  # optional: make tick marks black too
  )

Collectives™ on Stack Overflow

Grouped box plot using tidyplots

1 Answer 1

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Related