如何在R中计算dataframe同名列的行均值与行标准差？

嗨，我知道你现在遇到的问题啦——用split.default配合rowMeans算出了同名列的行均值，但换成rowSds就失效了对吧？这主要有两个原因：一是rowSds并不是base R自带的函数，它属于matrixStats包；二是我们需要调整处理逻辑，让它能同时输出均值和标准差。下面给你两种可行的解决方案：

方法一：使用matrixStats包（更高效） #

首先得先安装并加载matrixStats包，因为rowSds在这里面。然后我们可以写一个自定义函数，对每个列分组同时计算行均值和行标准差，这样一次拆分就能得到所有结果：

# 安装并加载matrixStats包（如果没安装过的话）
install.packages("matrixStats")
library(matrixStats)

# 你的示例数据
df <- data.frame(c(1, 2, 3, 4,5), c(2, 3, 4,NA,2), c(3, 4, 5,3,6), c(3, 7, NA,3,6))
names(df) <- c("a", "b", "a", "b")

# 自定义函数：对每组列计算行均值和行标准差
calc_row_stats <- function(x) {
  data.frame(
    mean = rowMeans(x, na.rm = TRUE),
    sd = rowSds(as.matrix(x), na.rm = TRUE)  # 注意要转成矩阵，rowSds需要矩阵输入
  )
}

# 按列名分组并应用函数，最后整理结果
result <- lapply(split.default(df, names(df)), calc_row_stats)
# 把结果合并成一个整洁的dataframe
final_result <- do.call(cbind, result)
# 重命名列，让结果更清晰
colnames(final_result) <- c("a_mean", "a_sd", "b_mean", "b_sd")

# 查看结果
final_result

运行后你会得到每个分组的行均值和标准差，结构非常清晰。

方法二：纯base R实现（无需额外包） #

如果你不想加载额外的包，我们可以自己写一个行标准差的函数，用base R的apply来实现：

# 你的示例数据
df <- data.frame(c(1, 2, 3, 4,5), c(2, 3, 4,NA,2), c(3, 4, 5,3,6), c(3, 7, NA,3,6))
names(df) <- c("a", "b", "a", "b")

# 自定义base R版行标准差函数
row_sd_base <- function(x) {
  apply(x, 1, function(row) sd(row, na.rm = TRUE))
}

# 自定义统计函数
calc_row_stats_base <- function(x) {
  data.frame(
    mean = rowMeans(x, na.rm = TRUE),
    sd = row_sd_base(x)
  )
}

# 处理数据并整理结果
result_base <- lapply(split.default(df, names(df)), calc_row_stats_base)
final_result_base <- do.call(cbind, result_base)
colnames(final_result_base) <- c("a_mean", "a_sd", "b_mean", "b_sd")

# 查看结果
final_result_base

这个方法不需要额外安装包，逻辑也很直观，就是用apply逐行计算标准差。

两种方法都能完美解决你的问题，你可以根据自己的需求选择~

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