如何使用ggplot2绘制多变量均值分组条形图

• 第一步：加载所需R包

# 加载tidyverse，包含dplyr、tidyr、ggplot2核心组件
library(tidyverse)

• 第二步：转换数据格式并计算分组均值

plot_df <- pct.df %>%
  # 将宽格式转为长格式，保留group、gender列，其余数值列转为「指标-百分比」结构
  pivot_longer(cols = -c(group, gender),
               names_to = "indicator",
               values_to = "percentage") %>%
  # 按分组、指标维度计算平均百分比
  group_by(group, indicator) %>%
  summarise(mean_pct = mean(percentage), .groups = "drop")

# 可选：调整指标顺序，实现var_a到var_h在前、avg在后的展示效果
plot_df$indicator <- factor(plot_df$indicator, 
                            levels = c(paste0("var_", letters[1:8], "_pct"), "avg"))

• 第三步：绘制分组条形图

ggplot(plot_df, aes(x = indicator, y = mean_pct, fill = group)) +
  # 设置并列条形样式
  geom_col(position = position_dodge(width = 0.9), width = 0.8) +
  # 自定义填充色：a组为红色、b组为蓝色
  scale_fill_manual(values = c("a" = "red", "b" = "blue")) +
  # 设置标签
  labs(x = "指标", y = "平均百分比", fill = "分组") +
  # 主题优化，旋转x轴标签避免文字重叠
  theme_bw() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

内容的提问来源于stack exchange，提问作者Chun Lim Pan