如何在ggplot2的堆叠柱状图上添加Thrombosis折线图？

核心问题分析 #

你遇到的错误大概率是以下两个原因：

• 离散型x轴（Period）下，折线图未指定group=1导致无法连接点
• 折线数据与柱状图数据的x轴标签不匹配，或数值范围差异过大导致显示异常

完整解决方案代码 #

先模拟符合结构的数据集（你可以替换成自己的tromboprofil）：

# 模拟堆叠柱状图用的tromboprofil数据集
tromboprofil <- data.frame(
  Period = rep(c("P1", "P2", "P3", "P4"), each = 3),
  Group = rep(c("A", "B", "C"), 4),
  Value = c(5, 3, 2, 8, 4, 3, 6, 2, 1, 4, 1, 2)
)

# 折线图专用数据：确保Period与柱状图完全匹配
thrombo_data <- data.frame(
  Period = c("P1", "P2", "P3", "P4"),
  Thrombosis = c(2,7,4,3)
)

绘制集成图形的代码：

library(ggplot2)

ggplot() +
  # 绘制堆叠柱状图
  geom_col(data = tromboprofil, aes(x = Period, y = Value, fill = Group), position = "stack") +
  # 绘制折线图：必须指定group=1（离散x轴下强制连接所有点）
  geom_line(data = thrombo_data, aes(x = Period, y = Thrombosis, group = 1), 
            color = "#d9534f", size = 1.2) +
  # 添加折线点增强可读性
  geom_point(data = thrombo_data, aes(x = Period, y = Thrombosis), 
             color = "#d9534f", size = 2) +
  # 双y轴适配数值范围差异（可选，根据你的实际数据调整）
  scale_y_continuous(
    name = "分组累计数值",
    sec.axis = sec_axis(~., name = "Thrombosis 计数")
  ) +
  labs(title = "Period分组堆叠柱状图 + Thrombosis趋势", fill = "分组") +
  theme_minimal()

关键注意事项 #

• 必须给折线图指定group=1：当x是离散因子时，ggplot默认会把每个x类别当成单独分组，无法连线，group=1强制将所有点归为同一组
• 确保thrombo_data的Period与tromboprofil的Period完全一致（包括拼写、大小写、类别顺序）
• 如果折线和柱状图的y轴数值范围差距大，一定要用sec_axis添加双y轴，避免折线被压缩成一条线

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