R语言4.1.2版本：遍历数据框列并通过ifelse语句创建列时的循环报错问题

你的报错核心有两个原因：

1. 循环中错误引用了不存在的event列，而非当前迭代的具体事件列（如event1、event2）；
2. 嵌套ifelse里重复用未初始化的event列做判断，导致赋值的数据行数不匹配。

下面是修正后的代码，同时优化了逻辑可读性：

install.packages("survival")
install.packages("dplyr")
library(survival)
library(dplyr)

cutpoints.l <- c(1.25)
f12 <- data.frame(id = 1:6, 
                  next.ivl= c(22.348, 1.837, 2.051,1.782,1.692, 1.730), 
                  event1 = c(0,1,0,0,1,0), 
                  event2 = c(1,0,0,0,0,1), 
                  event3 = c(0,0,1,1,0,0), 
                  event4 = c(0,0,0,0,0,0), 
                  enter= rep(0,6), 
                  end=c(22.348, 1.837,2.051,1.782,1.629,1.730))

# 执行survSplit分割
f12.split <- survSplit(Surv(next.ivl,event1)~.,f12, 
                       cut = cutpoints.l, 
                       event = "event1", 
                       start = "enter", 
                       end = "next.ivl", 
                       episode = "ivl")

# 标记每个id的第一行和最后一行，处理后取消分组避免异常
f12.split <- f12.split %>% 
  group_by(id) %>% 
  mutate(
    is_first = row_number() == 1,
    is_last = row_number() == n()
  ) %>%
  ungroup()

# 获取所有事件列名
events <- grep("event", colnames(f12.split), value = TRUE)

# 循环处理每个事件列
for (event_col in events) {
  # 用[[event_col]]精准引用当前事件列，替换原错误的f12.split$event
  f12.split[[event_col]] <- case_when(
    # 生存分析常见逻辑：事件仅保留在最后一个时间区间，前面区间事件置0
    f12.split$is_last ~ f12.split[[event_col]],
    TRUE ~ 0L # 用整数类型匹配原数据的0/1，避免类型不兼容
  )
  
  # 如果你需要严格匹配原代码的嵌套ifelse逻辑，替换为下面这段：
  # f12.split[[event_col]] <- case_when(
  #   f12.split$is_last & f12.split[[event_col]] == 1 ~ ifelse(f12.split$is_first & f12.split[[event_col]] ==1, 0L, 1L),
  #   TRUE ~ 0L
  # )
}

关键修正说明： #

• 精准引用列：用f12.split[[event_col]]代替f12.split$event，确保每次循环操作的是当前目标事件列；
• 取消分组：分组后执行ungroup()，避免后续循环因分组状态导致的行计数异常；
• 逻辑优化：用case_when替代多层ifelse，逻辑更清晰易维护；
• 类型匹配：用0L（整数）代替0（数值），和原事件列的整数类型保持一致，避免赋值时的类型冲突。

另外补充：survSplit其实支持多终点处理，你可以先把宽格式多事件转换为复合终点（比如Surv(time, event = (event1 | event2 | ...))），再进行分割，不过手动循环处理的方式也完全可行，只要修正上述问题即可。

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