在subset()中使用paste0()批量筛选诊断数据的R语言问题

问题根源 #

你的循环代码失效的核心原因：

• subset的条件参数中，paste0("Diag",i)生成的是字符串文本（比如"Diag1"），而非对数据框列的引用。R会判断字符串"Diag1"是否在code_list中，而非判断Diag1列的数值，因此永远筛选不到目标行。
• 循环内每次赋值给temp会覆盖之前的结果，无法保留10个独立数据框。

方法一：基础R循环+列表存储（推荐） #

用列表存储每个筛选后的结果，避免变量环境混乱，后续合并更便捷：

code_list = c("E059","E052")
# 创建空列表存放每个筛选结果
temp_list <- list()

for (i in 1:10) {
  # 构造当前循环的列名
  diag_col <- paste0("Diag", i)
  date_col <- paste0("Date", i)
  
  # 生成筛选条件：用[[引用数据框列，判断列值是否在目标列表中
  filter_condition <- df[[diag_col]] %in% code_list
  
  # 提取符合条件的行与指定列
  current_temp <- df[filter_condition, c("id", diag_col, date_col)]
  
  # 统一列名（可选，但合并后结构更清晰）
  colnames(current_temp) <- c("id", "Diag", "Date")
  
  # 将结果存入列表
  temp_list[[i]] <- current_temp
}

# 合并所有列表中的数据框
final_combined_df <- do.call(rbind, temp_list)

方法二：Tidyverse风格（dplyr+purrr） #

如果习惯tidyverse语法，代码更简洁可读性更强：

library(dplyr)
library(purrr)

code_list = c("E059","E052")

# 用map批量处理1-10的列组
temp_list <- map(1:10, function(i) {
  # 将字符串列名转为符号，用于dplyr的引用
  diag_col <- sym(paste0("Diag", i))
  date_col <- sym(paste0("Date", i))
  
  df %>%
    filter(!!diag_col %in% code_list) %>%  # 筛选符合条件的行
    select(id, !!diag_col, !!date_col) %>% # 提取指定列
    rename(Diag = !!diag_col, Date = !!date_col) # 统一列名
})

# 合并所有结果
final_combined_df <- bind_rows(temp_list)

可选：用assign生成独立temp数据框 #

如果一定要生成temp1到temp10的独立变量，可以用assign，但后续合并需要额外步骤：

code_list = c("E059","E052")

for (i in 1:10) {
  diag_col <- paste0("Diag", i)
  date_col <- paste0("Date", i)
  filter_condition <- df[[diag_col]] %in% code_list
  current_temp <- df[filter_condition, c("id", diag_col, date_col)]
  colnames(current_temp) <- c("id", "Diag", "Date")
  
  # 生成temp1到temp10的变量
  assign(paste0("temp", i), current_temp)
}

# 合并时先将temp1-temp10存入列表再合并
final_combined_df <- do.call(rbind, mget(paste0("temp", 1:10)))

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