将事件开始和结束转换为R中的状态向量

# 示例数据
event_start <- c("2022-01-01 08:00:00", "2022-01-02 10:00:00", "2022-01-03 14:00:00")
event_end <- c("2022-01-01 10:00:00", "2022-01-02 12:00:00", "2022-01-03 16:00:00")
time_points <- seq(as.POSIXct("2022-01-01 00:00:00"), as.POSIXct("2022-01-04 00:00:00"), by = "hour")

# 创建空的状态向量
status_vector <- numeric(length(time_points))

# 遍历每个时间点，判断状态
for (i in 1:length(time_points)) {
  current_time <- time_points[i]
  
  # 判断当前时间是否在事件开始和结束之间
  for (j in 1:length(event_start)) {
    if (current_time >= as.POSIXct(event_start[j]) && current_time <= as.POSIXct(event_end[j])) {
      status_vector[i] <- 1  # 事件进行中
      break
    }
  }
}

# 打印状态向量
print(status_vector)