如何通过列索引为多个R数据框新增行均值变量？

错误原因分析 #

• 代码1报错原因：数据框索引语法错误。x[1,2,3,8,9,10]不符合[行,列]的索引规则，多列索引需放在一个向量中，且要明确行范围（选所有行可留空或写,）。
• 代码2报错原因：select()是dplyr包的函数，第一个参数必须是目标数据框，你直接传入列索引向量，函数找不到对应处理方法导致报错。

正确解决方案 #

方法1：基础R实现（无需额外包） #

通过正确的数据框索引结合rowMeans()，用lapply()批量处理：

# 定义需要计算均值的列索引
target_cols <- c(1:3, 8:10)
# 批量处理每个数据框，新增mean列
dfs_new <- lapply(dfs, function(x) {
  # na.rm = TRUE可选，用于处理数据中的缺失值
  x$mean <- rowMeans(x[, target_cols], na.rm = TRUE)
  x
})

x[, target_cols]表示选取数据框x的所有行和指定列，rowMeans()计算每行均值后赋值给新列mean。

方法2：tidyverse风格实现（dplyr + purrr） #

如果习惯使用tidyverse工具链，可结合mutate()和select()完成：

library(dplyr)
library(purrr)

target_cols <- c(1:3, 8:10)
dfs_new <- map(dfs, ~ .x %>% 
                 mutate(mean = rowMeans(select(.x, all_of(target_cols)), na.rm = TRUE)))

select(.x, all_of(target_cols))明确从数据框.x中选取目标列，mutate()新增存储均值的mean列，map()完成批量处理。

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