如何遍历列表中多个DataFrame的指定列并修改数据？

错误原因分析 #

你之前的循环写法核心问题是用索引数字i直接访问列，但i是1、2、3这类数值，不是DataFrame对象，自然会报错。另外用pluck的操作错误地把整个DataFrame替换成了修改后的单个列值，导致列表元素变成0。

正确实现方法 #

方法1：for循环（直观易读）

for (i in 1:length(exlist)) {
  # 取出当前列表中的DataFrame
  current_df <- exlist[[i]]
  # 将adj.P.Val大于0.05的设为0
  current_df$adj.P.Val[current_df$adj.P.Val > 0.05] <- 0
  # 对应行的logFC设为0
  current_df$logFC[current_df$adj.P.Val == 0] <- 0
  # 把修改后的DataFrame放回列表
  exlist[[i]] <- current_df
}

方法2：lapply（更简洁的R风格写法）

exlist <- lapply(exlist, function(df) {
  df$adj.P.Val[df$adj.P.Val > 0.05] <- 0
  df$logFC[df$adj.P.Val == 0] <- 0
  return(df)
})

从列表中提取DataFrame的方法 #

1. 提取单个DataFrame：用列表索引直接获取，比如取第一个：

first_df <- exlist[[1]]

2. 批量提取到全局环境：先给列表命名，再用list2env导入全局环境：

# 给列表元素命名（和原始DataFrame名对应）
names(exlist) <- c("ex1", "ex2", "ex3")
# 导入到全局环境
list2env(exlist, envir = .GlobalEnv)

执行后，全局环境中就会出现修改后的ex1、ex2、ex3。

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