如何在r中發生特定事件后刪除所有行

Question

你好我所有的數據集看起來像

PID event
123 1
123 2
123 1
123 3
123 4
111 2
111 3
111 4
111 5
133 1
133 2
133 3
144 1
144 3
144 4
144 5
166 1
166 2
177 2
177 3

我需要在數據集中發生 3 事件后刪除先前的行或 PID

我的預期結果：

PID event
123 3
123 4
111 3
111 4
111 5
133 3
144 3
144 4
144 5
177 3

提前致謝

Answer 1

我會做

library(dplyr)
data %>% group_by(PID) %>% filter(cumany(event==3)) 

Answer 2

簡單地通過

data[data$event >= "3",]