R语言循环过滤多列数据并存入列表报错问题解决

报错原因分析 #

• 循环对象错误：columns = list(df$colA, df$colB, df$colC)存储的是列的数值向量，而非列名，既无法生成合法变量名，也不能正确引用原数据框的列。
• 非法赋值操作：paste0("new", column, sep="_") = ...试图给字符串结果赋值，R不允许将字符串作为赋值目标，赋值对象必须是合法的语言对象（如变量名）。
• 覆盖原始数据：循环内df <- data.frame(column,df$key)直接覆盖了原始df，导致后续循环丢失初始数据。
• 列表添加逻辑错误：new = c(new, paste0(...))仅将字符串加入列表，而非过滤后的数据集。

修正后的代码 #

df <- data.frame(colA=c(-10, 30, 50, 60, 102),
                 colB=c(60, 200, 70, -4, 60),
                 colC=c(400, 300, 10, 230, 2))

# 创建用于合并的key列
df$key <- seq(1, nrow(df))

# 用列名而非列值初始化循环对象
columns <- c("colA", "colB", "colC")

# 初始化空列表存储结果
new <- list()

# 循环处理每一列
for(col_name in columns){
  # 提取当前列和key列，生成临时数据框
  temp_df <- df[, c(col_name, "key")]
  # 过滤0到100之间的行
  filtered_df <- temp_df[temp_df[[col_name]] > 0 & temp_df[[col_name]] < 100, ]
  # 将结果存入列表，用列名作为列表元素名称
  new[[col_name]] <- filtered_df
}

# 查看过滤后的数值（匹配预期输出）
lapply(new, function(x) x[[1]])

输出结果 #

运行上述代码后，lapply的输出为：

$colA
[1] 30 50 60

$colB
[1] 60 70 60

$colC
[1] 10  2

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