R语言求助：如何为每个参与者计算12列子集的行均值？

核心需求 #

为数据集中每位参与者（每行）计算12个GAAIS正向条目列的行均值。

常见问题排查 #

你之前尝试的代码主要问题包括：

• 手动输入列名时大小写不一致（如GAAIS_Pos_item_5和GAAIS_Pos_Item_6），容易导致列选择错误
• 类型转换后未恢复为数据框/矩阵格式，rowMeans无法处理列表或一维向量
• 误计算了列均值而非行均值

可行实现方法 #

方法1：使用dplyr管道（推荐，代码简洁）

library(dplyr)

# 直接在原数据中新增行均值列
df_wide_final <- df_wide_final %>%
  mutate(
    # 匹配所有以GAAIS_Pos_开头的列，统一转为数值型后计算行均值
    GAAIS_pos_mean = rowMeans(
      across(starts_with("GAAIS_Pos_"), ~as.numeric(.x)),
      na.rm = TRUE  # 忽略NA值，不需要可删除此参数
    )
  )

# 如果只需要正向条目和均值结果
positive_subscale_result <- df_wide_final %>%
  select(starts_with("GAAIS_Pos_")) %>%
  mutate(GAAIS_pos_mean = rowMeans(across(everything(), ~as.numeric(.x)), na.rm = TRUE))

方法2：基础R实现

# 自动匹配所有GAAIS正向条目列（忽略大小写差异）
positive_cols <- grep("^GAAIS_Pos_item_", colnames(df_wide_final), ignore.case = TRUE, value = TRUE)

# 提取列并转为数值矩阵
positive_subscale <- df_wide_final[, positive_cols]
positive_subscale_num <- sapply(positive_subscale, as.numeric)

# 计算行均值并添加到原数据
df_wide_final$GAAIS_pos_mean <- rowMeans(positive_subscale_num, na.rm = TRUE)

关键注意事项 #

• 列名匹配：用starts_with或正则表达式自动匹配列，避免手动输入的大小写/拼写错误
• 数据类型：如果原列是字符型，必须用as.numeric转换，非数值内容会被转为NA
• NA处理：na.rm = TRUE可跳过NA值计算均值，若需要保留NA结果则删除该参数

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