如何用tidyplots重绘ggplot2分组箱线图并匹配默认配色？

架构老林

2026-6-13

用tidyplots重绘分组箱线图并匹配默认配色

需求说明

已通过ggplot2绘制了分组箱线图，现需改用tidyplots包重新绘制，确保scenario的配色与此前用tidyplots默认配色制作的堆叠条形图一致。

原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(), 
    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")
  )

数据集

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"), 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))

会话信息

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

解决方案代码

library(tidyplots)

# 提取tidyplots默认配色，确保与堆叠条形图一致
tidy_colors <- scales::hue_pal()(length(unique(combined_df$scenario)))
names(tidy_colors) <- unique(combined_df$scenario)

# 用tidyplots绘制箱线图
plot_boxplot(combined_df, 
             x = Metric, 
             y = Value, 
             color = scenario) +
  # 添加散点（对应原geom_jitter）
  plot_jitter(width = 0.2, size = 3, alpha = 0.7) +
  # 按Sector分面，一行展示
  plot_facet_wrap(facets = ~Sector, nrow = 1) +
  # 应用tidyplots默认配色
  scale_color_manual(values = tidy_colors) +
  # 添加y=0的虚线
  geom_hline(yintercept = 0, linetype = "dashed", color = "black", linewidth = 0.3) +
  # 设置标签
  labs(
    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")
  )

说明

先通过scales::hue_pal()提取tidyplots默认的色调配色，保证和之前的堆叠条形图配色一致
plot_boxplot是tidyplots的箱线图函数，参数与ggplot2对应
plot_jitter对应原ggplot2的geom_jitter，实现散点抖动效果
plot_facet_wrap实现分面布局，参数设置和原代码一致
保留原主题的样式设置，确保图表外观和原ggplot2版本匹配

内容的提问来源于stack exchange，提问作者Nikos

如何用tidyplots重绘ggplot2分组箱线图并匹配默认配色？

需求说明 #

原ggplot2代码 #

数据集 #

会话信息 #

解决方案代码 #

说明 #

需求说明

原ggplot2代码

数据集

会话信息

解决方案代码

说明