在R中如何连接不同月份数据组折线间的间隙（同色）？

问题分析 #

你遇到的折线间隙是因为ggplot中当你指定color=Months时，默认会把group设置为Months——这意味着每个月份的数据会被当作独立的组，组与组之间不会自动绘制连接线。

解决方案 #

这里提供两种方法来解决这个问题，你可以根据需求选择：

方法1：强制将所有数据作为一个组连接（自动用起点月份颜色填充间隙）

这种方法最简单，只需要在aes中添加group=1，强制ggplot把所有数据视为一个整体，这样就会连接所有点，且间隙处的线段颜色会和前一个月份的折线颜色一致：

# 先处理月份因子并按x轴排序数据（确保折线顺序正确）
z$Months <- as.factor(z$Months) 
z$Months <- factor(z$Months, levels = c("Jan", "Feb", "Mar", "Apr", "May","Jun","Jul","Aug","Sep","Oct","Nov","Dec")) 
z <- z[order(z$stm1), ]  # 关键：按stm1排序，避免折线乱序

# 绘图
sp1 <- ggplot(z, aes(x=stm1, y=sml1, group=1, color=Months), size=1) + 
  geom_line(size=1) + 
  ggtitle("soil temperature vs soil moisture")+ 
  labs(x="stm1 (deg C)", y = "sml1 (mm)")+ 
  scale_color_manual(
    breaks=c("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"), 
    values=c("#800000","#DC143C","#FFA07A","#FFD700","#BDB76B","#6B8E23","#2E8B57","#008080","#00CED1","#4682B4","#191970","#8A2BE2")
  ) 
sp1

方法2：手动添加间隙连接线（精确控制颜色）

如果你想更精确地控制间隙处的连接线颜色（比如统一用前一个月份的颜色），可以手动生成连接每个月份末尾和下一个月份开头的线段数据，然后单独绘制：

# 处理月份因子和排序
z$Months <- as.factor(z$Months) 
z$Months <- factor(z$Months, levels = c("Jan", "Feb", "Mar", "Apr", "May","Jun","Jul","Aug","Sep","Oct","Nov","Dec")) 
z <- z[order(z$Months, z$stm1), ]  # 先按月份排序，再按stm1排序

# 生成连接线段的数据：提取每个月份的最后一个点和下一个月份的第一个点
month_ends <- z[ave(1:nrow(z), z$Months, FUN = function(x) max(x)), ]
month_starts <- z[ave(1:nrow(z), z$Months, FUN = function(x) min(x)), ]

# 移除不需要的点（最后一个月份的结束点和第一个月份的起始点）
month_ends <- month_ends[-nrow(month_ends), ]
month_starts <- month_starts[-1, ]

# 创建连接线段的数据框，指定连接线用前一个月份的颜色
connect_lines <- data.frame(
  stm1 = c(month_ends$stm1, month_starts$stm1),
  sml1 = c(month_ends$sml1, month_starts$sml1),
  Months = rep(month_ends$Months, each = 2)
)

# 绘图：先画连接线，再画原折线（确保原折线覆盖在连接线上）
sp1 <- ggplot(z, aes(x = stm1, y = sml1)) +
  geom_line(data = connect_lines, aes(color = Months), size = 1) +
  geom_line(aes(color = Months), size = 1) +
  ggtitle("soil temperature vs soil moisture") +
  labs(x = "stm1 (deg C)", y = "sml1 (mm)") +
  scale_color_manual(
    breaks = c("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"),
    values = c("#800000","#DC143C","#FFA07A","#FFD700","#BDB76B","#6B8E23","#2E8B57","#008080","#00CED1","#4682B4","#191970","#8A2BE2")
  )
sp1

注意事项 #

• 无论哪种方法，数据排序都很重要：一定要确保数据按stm1（x轴变量）排序，否则折线会出现乱序的情况。
• 方法1中，线段颜色会自动跟随每个线段起点的月份颜色；方法2则完全由你控制连接线的颜色归属，灵活性更高。

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