ggplot分组折线图因x值缺失断连，如何补全折线？

问题根源 #

1. 数据缺失：目标TRT组缺少部分AVISITN对应的行记录，导致ggplot无法识别该组在这些x轴位置的存在
2. 分组逻辑错误：geom_line中设置group=1会将所有数据归为同一组，折线会在不同TRT的点之间错误连接，进而出现断连

解决步骤 #

1. 补全数据组合 #

用tidyr::complete()生成TRT和AVISITN的所有可能组合，缺失的统计值（mean、lowersd、uppersd）会被填充为NA，确保每个TRT在所有AVISITN位置都有对应行：

library(tidyr)
# 补全TRT与AVISITN的全部组合
page_complete <- page %>%
  complete(TRT, AVISITN)

2. 修正ggplot分组代码 #

将geom_line的分组依据改为TRT，让每个TRT组的折线独立连接自身数据点，同时x轴会自动显示所有AVISITN值：

ggplot(page_complete, aes(x = factor(AVISITN), y = mean, colour = factor(TRT, labels = trt_labels))) +
  geom_point() +
  # 按TRT分组，确保每组折线独立绘制
  geom_line(aes(group = factor(TRT))) +
  geom_errorbar(aes(ymin = lowersd, ymax = uppersd), width = 0) +
  scale_color_manual(values = c("blue", "green"), name="") +
  theme(legend.position="bottom") +
  guides(color = guide_legend(nrow = 2, ncol=1)) + # 原代码用fill是错误的，改为对应colour映射的图例设置
  labs(x = "Visit", y = "Mean and +/- SD") +
  theme(axis.text.x = element_text(size = 7)) +
  scale_x_discrete(guide=guide_axis(angle=-45))

补充说明 #

• ggplot会自动忽略NA值，缺失数据的位置不会显示点和误差线，但折线会正常连接该组有数据的前后点
• 原代码中guides(fill = ...)无效，因为我们使用的是colour美学映射，需改为guides(color = ...)才能正确设置图例

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