ggplot2分面堆叠散点图中geom_vline无法按组分面显示垂直线

垂直线在所有分面重复显示的核心原因有两点：

• 你调用geom_vline时直接传入了提取好的日期向量，图层没有绑定和分面对应的分组字段，ggplot的分面逻辑无法识别每条线所属的分组，默认会把所有传入的图形元素绘制到全部分面
• 垂直线所用数据集shuffled_dates的分组列名为Names2，和主数据集用于分面的列名Names不匹配，即使开启inherit.aes也无法自动对齐分面规则
  另外你用dplyr::group_by()给数据集加的分组属性对ggplot绘图完全无效，ggplot不会识别dplyr的分组标记，不需要保留。

核心操作是给geom_vline单独指定数据源，同时对齐两个数据集的分面列名，让facet_wrap可以自动按分组匹配对应分面，不需要额外设置group参数。需要的红色虚线直接加linetype="dashed"参数即可实现。
首先预处理数据，修正列名、去掉无用的分组标记：

library(dplyr)
library(ggplot2)
set.seed(12)

# 生成基础日期序列
dates <-seq(as.Date("2022-01-01"), as.Date("2022-04-15"), by="days") %>% data.frame(Date = .) 
dates2 <- dates[1:50,] %>% data.frame(Date = .)

name <- c("b1","b2","b3") %>% rep(20) %>% data.frame()
Names <- name[sample(1:50),] 
Names2 <- name[sample(1:15),] 

# 主散点数据集，无需group_by
df <- data.frame(dates2, a1 = sample(50, 50, TRUE), a2= sample(50, 50, TRUE), a3= sample(50, 50, TRUE)) 
df <- cbind(df,Names) 

# 垂直线数据集：将分组列名改为和主数据分面列一致的"Names"，去掉无用group_by
shuffled_dates= dates[sample(1:105), ] %>% data.frame(Date = .) %>% slice(1:15)
shuffled_dates <- cbind(shuffled_dates,Names = Names2)

之后绘图即可，不需要手动把日期转成数值，ggplot会自动匹配x轴的日期类型：

plot1 <- ggplot(data=df, aes(x=Date, y=a1))+
  geom_point(color = "red") +
  ylim(0, 50)+
  facet_wrap(~Names, ncol = 2)+
  geom_point(aes(y=a2), color = "orange") +
  geom_point(aes(y=a3), color = "purple") +
  # 添加分面匹配的红色虚线垂直线
  geom_vline(
    data = shuffled_dates,
    aes(xintercept = Date),
    color = "red",
    linetype = "dashed"
  )

plot1

运行代码后，shuffled_dates中的每条垂直线会根据Names列的分组值，仅在对应b1/b2/b3的分面中显示，完全匹配预期效果。

如果你不想修改垂直线数据集的列名，也可以直接在geom_vline的映射关系里做对齐，写为aes(xintercept = Date, Names = Names2)，但统一列名是后续维护成本更低的写法。

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