R语言遍历多数据框列表并调用指定列的循环问题

你的问题出在列表索引的用法上：当使用Samples_Dictionary[x]时，返回的是长度为1的子列表，而非单个数据框对象，因此无法直接用$diameter访问列。改用双括号[[x]]提取列表中的数据框元素即可解决这个问题。

修改后的均值/标准差计算代码 #

Samples_List = names(Samples_Dictionary)
mean_vals <- NULL
std_vals <- NULL

for (x in Samples_List){
  # 用[[x]]直接提取对应的数据框
  current_df <- Samples_Dictionary[[x]]
  # 建议加上na.rm参数处理缺失值
  mean_vals[x] <- mean(current_df$diameter, na.rm = TRUE)
  std_vals[x] <- sd(current_df$diameter, na.rm = TRUE)
}

扩展：循环移除异常值（以均值±3倍标准差为例） #

如果要完成你最终的目标——自动移除每个数据框中的异常值，可以在循环中加入筛选逻辑：

for (x in Samples_List){
  current_df <- Samples_Dictionary[[x]]
  # 计算当前数据框的均值和标准差
  diam_mean <- mean(current_df$diameter, na.rm = TRUE)
  diam_sd <- sd(current_df$diameter, na.rm = TRUE)
  # 筛选出非异常值的行
  cleaned_df <- current_df[abs(current_df$diameter - diam_mean) <= 3*diam_sd, ]
  # 将清理后的数据框放回原列表
  Samples_Dictionary[[x]] <- cleaned_df
}

补充说明 #

• 单括号[]用于列表时，会返回一个包含目标元素的子列表；双括号[[]]则直接返回元素本身（这里就是数据框）。
• 除了$diameter，也可以用current_df[["diameter"]]访问列，效果一致，后者在列名含特殊字符时更通用。

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