如何在ggplot分面中为每个id添加对应start和end列的竖线？

嘿，这个需求其实挺常见的——要让每个分面的竖线和该分面的id绑定，而不是全局加统一的线。我来给你两种可行的实现方法：

方法一：转长格式一次性画两条线 #

这种方法更简洁，适合需要统一设置竖线样式的场景：

首先我们需要先整理出每个id对应的唯一start和end值，然后把这两列转成长格式，这样每个id就有两行数据（分别对应start和end的位置），之后用geom_vline时，ggplot会自动根据分面的id匹配对应的竖线位置。

library(tidyverse)

# 你的原始数据集
dat <- data.frame(id = rep(1:4,each = 7), year = rep(2012:2018, times = 4), y = runif(28), start = rep(2012:2015,each = 7), end = rep(2014:2017,each = 7))

# 提取每个id的唯一起止值并转长格式
lines_df <- dat %>%
  distinct(id, start, end) %>% # 去重，保留每个id的唯一start和end
  pivot_longer(cols = c(start, end), names_to = "line_type", values_to = "x_pos")

# 绘制图形
ggplot(dat, aes(x = year, y = y)) +
  geom_line() +
  # 用整理好的lines_df作为数据源，每个分面会匹配对应id的x_pos
  geom_vline(data = lines_df, aes(xintercept = x_pos), color = "red", linetype = "dashed") +
  facet_wrap(~id)

方法二：两次调用geom_vline分别画起止线 #

如果想给start和end的竖线设置不同的样式（比如不同颜色、线型），可以分开调用geom_vline：

library(tidyverse)

dat <- data.frame(id = rep(1:4,each = 7), year = rep(2012:2018, times = 4), y = runif(28), start = rep(2012:2015,each = 7), end = rep(2014:2017,each = 7))

# 只保留每个id的唯一起止值
lines_df <- dat %>% distinct(id, start, end)

ggplot(dat, aes(x = year, y = y)) +
  geom_line() +
  # 画start位置的竖线，设置蓝色
  geom_vline(data = lines_df, aes(xintercept = start), color = "blue", linewidth = 0.8) +
  # 画end位置的竖线，设置绿色虚线
  geom_vline(data = lines_df, aes(xintercept = end), color = "green", linetype = "dashed") +
  facet_wrap(~id)

关键逻辑说明 #

之所以要先整理lines_df而不是直接用原始的dat，是因为原始数据里每个id的start和end值重复了7次，如果直接用原始数据画竖线，会在同一个位置重复画7次，虽然视觉上看不出来，但会浪费计算资源。去重后每个id只保留一组起止值，效率更高也更规范。

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