筛选在r中事件"A“的时间范围内发生的事件

# 创建一个示例数据框
events <- data.frame(
  event = c("A", "B", "C", "D", "E"),
  time = c("2022-01-01 10:00:00", "2022-01-02 12:00:00", "2022-01-03 14:00:00", "2022-01-04 16:00:00", "2022-01-05 18:00:00")
)

# 将时间列转换为日期时间格式
events$time <- as.POSIXct(events$time)

# 设置时间范围
start_time <- as.POSIXct("2022-01-02 00:00:00")
end_time <- as.POSIXct("2022-01-04 23:59:59")

# 筛选在时间范围内发生的事件"A"
filtered_events <- subset(events, event == "A" & time >= start_time & time <= end_time)