ggplot结合facet_wrap与geom_segment绘制时序图时出现多余线条问题

问题现象 #

绘制按工作日/周末配色的分面时序线段图时，Set 'B'出现不属于本组的多余线条，即使移除col=weekend参数问题依然存在。

核心原因 #

使用全局lag()函数计算前一个值时，facet_wrap是在绘图阶段才拆分数据，而geom_segment已经基于全局数据集计算了lag值——这会导致后一组（Set B）的第一个数据点，与前一组（Set A）的最后一个数据点被错误连接，形成跨分面的伪线段。

原生解决方案 #

通过分组计算lag值，确保每组内的前一个值仅取自本组数据，避免跨组关联。具体步骤：

• 用group_by(set)按分面变量分组
• 在组内计算lag(value)，生成组内专属的前值列
• 绘图时使用分组计算后的前值列

完整可复现代码 #

library(tidyverse)

# 构造示例数据
set.seed(123)
df <- tibble(
  date = seq(as.Date("2023-01-01"), as.Date("2023-01-14"), by = "day"),
  value = rnorm(14, 50, 5),
  set = rep(c("A", "B"), each = 7),
  weekend = weekdays(date) %in% c("Saturday", "Sunday")
)

# 分组处理lag值，避免跨组关联
df_processed <- df %>%
  group_by(set) %>%
  mutate(prev_value = lag(value)) %>%
  ungroup()

# 绘制分面时序线段图
ggplot(df_processed, aes(x = date)) +
  geom_segment(aes(xend = date, y = prev_value, yend = value, color = weekend)) +
  facet_wrap(~set)

原理说明 #

分组计算后，每组的第一个数据点的prev_value会是NA，而geom_segment会自动忽略包含NA的线段绘制请求，彻底避免了跨分面的伪线问题。相比手动添加NA行的临时方案，这种方式完全基于ggplot和tidyverse的原生逻辑，更简洁可靠。

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