如何在R中基于月度计数数据创建可自动追加新数据的多系列直方图

该方案对应需求中提到的多系列直方图展示样式，适配分月度多组计数的并列展示场景，全流程无硬编码配置

核心设计思路 #

• 自动识别数据结构，不固定列名、不固定月份范围
• 所有绘图参数由输入数据动态生成，新增数据后无需手动调整代码配置

完整可运行代码 #

# 加载依赖包（首次运行需提前安装：install.packages(c("ggplot2", "dplyr", "tidyr", "scales"))）
library(ggplot2)
library(dplyr)
library(tidyr)
library(scales)

# 替换为实际业务读取的数据框即可，示例数据匹配题中给出的结构
df <- data.frame(
  MonthYr = c(202101, 202102, 202103, 202104),
  Count1 = c(123456, 123425, 123452, 123455),
  Count2 = c(123456, 123429, 123453, 123454),
  Count3 = c(123455, 123428, 123455, 123455),
  Count4 = c(123455, 123428, 123455, 123455),
  Count5 = c(123455, 123428, 123455, 123455)
)

# 全自动数据预处理，无硬编码匹配
plot_data <- df %>%
  # 自动抓取所有以Count开头的列作为统计系列，后续新增Count列自动纳入
  pivot_longer(
    cols = starts_with("Count"),
    names_to = "统计维度",
    values_to = "数值"
  ) %>%
  # 自动按数值大小排序月份，保证X轴时间顺序正确，后续新增月份自动纳入
  mutate(
    MonthYr = factor(MonthYr, levels = sort(unique(MonthYr)))
  )

# 自动适配的多系列分组柱状图
ggplot(plot_data, aes(x = MonthYr, y = 数值, fill = 统计维度)) +
  geom_col(position = position_dodge(width = 0.7), color = "white", linewidth = 0.3) +
  # Y轴自动适配数值范围，大数值自动转换为千分位格式
  scale_y_continuous(
    labels = comma_format(),
    expand = expansion(mult = c(0, 0.1))
  ) +
  # 自动为不同统计维度分配可区分的色彩
  scale_fill_brewer(palette = "Set2") +
  theme_bw() +
  theme(
    legend.position = "bottom",
    panel.grid.minor = element_blank()
  ) +
  labs(
    x = "月份",
    y = "计数值",
    title = "分月度多维度计数统计"
  )

扩展适配规则 #

• 追加新月份数据：直接在df中新增对应月份的整行记录，重新运行代码即可自动生成对应月份的分组柱子，X轴、Y轴范围自动适配
• 追加新计数系列：只要新增列名以Count开头，代码会自动识别为新的统计维度，生成对应柱子、更新图例，无需手动修改色彩映射、列筛选逻辑

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