R语言循环处理df1-df13时触发undefined columns selected错误求助

核心错误点 #

• 代码中的df[i]完全不成立：不存在名为df的统一数据框对象，你的数据是分散的df1到df13，R会把df当成一个数据框去提取第i列，自然会报“未定义列”的错误。
• MyGenes[i]的写法错误：MyGenes未预先定义为列表，直接赋值会导致类型不匹配，且你要存储的是数据框子集（不是单个向量元素）。

正确实现方式 #

步骤1：将分散的数据框整合为列表

先把df1到df13统一放进一个列表，避免逐个调用：

# 方法1：手动列出所有数据框
df_list <- list(df1, df2, df3, df4, df5, df6, df7, df8, df9, df10, df11, df12, df13)

# 方法2：自动生成名称并获取对象（更简洁）
df_list <- lapply(paste0("df", 1:13), get)

步骤2：筛选数据并存储结果

用lapply批量处理列表中的每个数据框，筛选P.Value < 0.05的行：

# 生成结果列表
MyGenes_list <- lapply(df_list, function(x) {
  x[x$P.Value < 0.05, ]
})

可选：生成独立的MyGenes1到MyGenes13对象

如果一定要得到MyGenes1到MyGenes13这样的独立变量，而非列表，可以用list2env将列表元素导出到全局环境：

names(MyGenes_list) <- paste0("MyGenes", 1:13)
list2env(MyGenes_list, envir = .GlobalEnv)

补充说明 #

你提到的“新向量”表述不准确，筛选后的结果是原数据框的子集（仍是数据框），如果只需要提取某一列（比如基因名）作为向量，可以在筛选时指定列，例如：

MyGenes_list <- lapply(df_list, function(x) {
  x$GeneName[x$P.Value < 0.05]  # 假设存在GeneName列
})

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