R语言ggplot中如何根据另一列取值添加多条对应垂直参考线

match(1, protest)函数仅返回第一个满足protest1的观测位置，因此你只能拿到单个week值，最终只生成一条垂直线。
geom_vline的xintercept参数支持接收多值向量，每一个值都会对应生成一条垂直线，只要把所有protest1对应的week值传入即可实现需求。

写法1：直接提取符合条件的向量（简单直观） #

library(ggplot2)
ggplot(berlin_week, aes(x=week, y=count)) +
  geom_line() +
  geom_vline(xintercept = berlin_week$week[berlin_week$protest == 1], col = "red")

写法2：传入数据子集（适配tidyverse管道流、动态数据场景） #

library(ggplot2)
ggplot(berlin_week, aes(x=week, y=count)) +
  geom_line() +
  geom_vline(data = ~subset(.x, protest == 1), aes(xintercept = week), col = "red")

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