如何为列表中的每个dataframe添加新列？已尝试方法未解决

嘿，我懂你的问题啦！你之前的代码之所以只返回了向量列表，是因为你的匿名函数最后返回的是赋值操作的结果（也就是diversity(tab)生成的向量），而不是修改后的整个DataFrame。咱们调整一下函数逻辑就行：

方法1：基础R实现 #

在匿名函数里完成赋值后，明确返回整个DataFrame：

abundance_tables <- lapply(abundance_tables, function(tab) {
  # 给当前DataFrame添加diversity列
  tab$diversity <- diversity(tab)
  # 返回修改后的完整DataFrame
  tab
})

方法2：tidyverse风格（如果你常用dplyr） #

如果你习惯用dplyr的语法，也可以用mutate来添加列，代码更直观：

library(dplyr)
abundance_tables <- lapply(abundance_tables, function(tab) {
  tab %>% mutate(diversity = diversity(tab))
})

为什么之前的代码失效？ #

在R里，tab$diversity <- diversity(tab)这种赋值操作的返回值是被赋予的那个向量，而不是整个DataFrame。所以你的lapply/mapply最后收集到的只是这些单独的向量，而不是更新后的DataFrame。只要在函数末尾明确返回整个DataFrame，就能得到你想要的结果啦！

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