如何在ggplot折线图中动态分组，避免高亮趋势跨间隙连线

问题原因 #

当你通过colour = highlight_colour映射颜色时，ggplot会将所有highlight_colour = 'high'的点视为同一组，哪怕中间存在NA值，也会跳过NA把前后的高亮区间点强行连线，导致跨间隙的错误连线。

解决方案：生成连续区间分组ID #

通过dplyr的lag()函数判断年份连续性，给每个连续的高亮区间分配独立分组ID，让ggplot对每个分组单独绘制折线，避免跨区间连线。

完整代码示例：

library(dplyr)
library(broom)
library(ggplot2)

# 预处理太阳黑子数据
df <- sunspot.year %>%
  tidy() %>%
  rename(year = index, sunspots = value) 

# 定义高亮区间并标记颜色
hl_df <- df %>%
  filter(year >= 1750 & year <= 1800 |
         year >= 1875 & year <= 1900) %>%
  mutate(highlight = sunspots,
         highlight_colour = 'high')

# 合并数据并生成连续分组ID
plot_df <- df %>%
  left_join(hl_df) %>%
  mutate(year = as.Date(paste0(year,'-01-01'))) %>%
  # 生成分组：当当前行是高亮行且与上一行年份不连续时，新建分组
  mutate(
    is_highlight = !is.na(highlight),
    group_id = cumsum(is_highlight & (year - lag(year, default = first(year)) != 1))
  )

# 绘制图表，添加group映射
ggplot(plot_df, aes(x = year, y = sunspots)) +
  geom_line() +
  geom_line(aes(y = highlight, col = highlight_colour, group = group_id)) +
  scale_colour_manual(values = c('high' = 'darkred', 'low' = 'darkolivegreen')) +
  theme_bw() +
  theme(legend.position = 'none')

另一种简化思路：直接使用高亮子集分组 #

如果不需要保留原数据的NA行，可直接对高亮数据生成分组，再单独绘制图层：

library(dplyr)
library(broom)
library(ggplot2)

df <- sunspot.year %>%
  tidy() %>%
  rename(year = index, sunspots = value) %>%
  mutate(year = as.Date(paste0(year,'-01-01')))

# 处理高亮数据，生成连续分组
hl_df <- df %>%
  filter(year >= 1750 & year <= 1800 |
         year >= 1875 & year <= 1900) %>%
  mutate(highlight_colour = 'high',
         group_id = cumsum(year - lag(year, default = first(year)) != 1))

# 绘制图表
ggplot(df, aes(x = year, y = sunspots)) +
  geom_line() +
  geom_line(data = hl_df, aes(col = highlight_colour, group = group_id)) +
  scale_colour_manual(values = c('high' = 'darkred', 'low' = 'darkolivegreen')) +
  theme_bw() +
  theme(legend.position = 'none')

关键逻辑说明 #

• cumsum(is_highlight & (year - lag(year) != 1))：每当遇到一个高亮行且与上一行年份不连续时，累加计数生成新的分组ID，确保每个连续的高亮区间属于独立分组。
• ggplot的group映射会让每个分组单独绘制折线，自然不会出现跨间隙的连线。

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