我有一个数据集，其中包括来自不同患者的多个患者记录。我还有一个函数，我想让它遍历每个独特的患者，并检查在时间点1，治疗1是否等于治疗2。它正在运行，但它只给我结果的病人谁只有一个记录。我希望把它作为一个循环保存在函数中，因为我还有更多的检查需要添加，一旦我通过了这个。所以如果有人能帮我修改这个循环，看看为什么它不能给我每个病人的结果，我会非常感激。

df <- data.frame(
  Patient = c('Dave', 'Dave', 'Dave', "Angel", "Angel", "Angel", "Joe", "Joe", "Joe", "Cara"),
  V1 = c(1, 150, 375, 1, 150, 375, 1, 150, 375, 1),
  V2 = c(150, 375,568,150, 375, 568, 150, 375, 568, 375),
  R1 = c("Disease","Response","Response", "Disease","Disease", "Response","Disease", "Response", "Response", "Disease"),
  R2 = c("Response", "Response", "Death", "Disease", "Response", "Death", "Response", "Response", "Response", "Disease"),
  T1 = c("A","A", "B", "A","B","B", "A","A","C", "A"),
  T2 = c("A", "B","B",  "B","B","B", "A","C","C" , "A"))

Time <- function(id) {
  subset_df <- df[df$Patient == id, ]
  start <- NULL 
  end <- NULL
  for (i in 1:nrow(subset_df)) { 
    if (subset_df$V1[i] == 1 && subset_df$T1[i] == subset_df$T2[i]) { 
      start <- subset_df$V2[i] 
    }  else { 
      start <- "Never Responded"
    }
  }
  return(start)
}

ids <- unique(df$Patient)
times <- lapply(ids, Time)

在我的职能中，我已经写了，如果在访视1（V1）时，治疗1（T1）等于治疗2（T2），那么我希望它记录相应的访视2（V2）编号（以天为单位）。如果两种治疗在访视1时不相等（否则），则write从未回复。因此，当我运行这个函数时，它只返回CaraV2，而它还应该返回Dave和Joe，并说Never Responded for Angel。