如何在ggplot分面图的各子图中添加不同的geom_vline？

直接用geom_vline(xintercept = c(2, 5), linetype = "dashed", color = "red")会让两条参考线出现在所有分面子图里，核心问题是没把参考线位置和分面的分类变量绑定起来。

解决思路是单独做一个包含分面分类与对应参考线位置的数据框，再让geom_vline基于这个数据框绘制：

1. 先创建参考线配置数据框：

vline_data <- data.frame(
  class = c("compact", "2seater"),
  x_intercept = c(2, 5)
)

2. 修改原绘图代码，在geom_vline中指定这个数据框，并通过aes关联分面变量和参考线位置：

ggplot(mpg, aes(displ, hwy)) +
  geom_point() +
  geom_vline(data = vline_data, aes(xintercept = x_intercept), 
             linetype = "dashed", color = "red") +
  facet_wrap(vars(class))

这样每个分面子图只会显示和自身class匹配的那条垂直参考线，其他子图不会出现多余的线。如果要给更多子图加不同位置的参考线，只要在vline_data里补充对应的class和x_intercept值就行。

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