如何在R中使用循环对A1-A20行跨400列的测试分数求和生成单列

先对齐场景匹配关系：

• 原始测试数据共20行，行标签为A1-A20
• 全表共400列，每一列对应1名参与者的所有测试题项得分
• 目标输出为1个单列结果，存储每个参与者对应列下20行的得分总和

1. 测试数据准备 #

可以先通过模拟数据跑通逻辑，结构和你实际读入的Excel/CSV数据完全一致：

# 构造20行*400列的得分矩阵
score_data <- matrix(
  data = sample(1:5, size = 20*400, replace = TRUE), # 模拟1-5分的题项得分
  nrow = 20,
  ncol = 400,
  dimnames = list(
    paste0("A", 1:20), # 行名对应A1-A20的行标签
    paste0("p", 1:400) # 列名对应400名参与者
  )
)

2. for循环实现逐列求和 #

完全匹配循环遍历的需求，代码逻辑如下：

# 提前初始化固定长度的结果向量，避免循环中动态拼接降低运行效率
total_scores <- numeric(length = ncol(score_data))

# 逐列遍历所有400个列
for (col_index in seq_along(score_data)) {
  # 对当前列的全部20行数值执行求和
  # 若数据存在NA缺失值，可在sum中添加na.rm = TRUE参数跳过缺失值
  total_scores[col_index] <- sum(score_data[, col_index])
}

# 转换为单列数据框作为最终输出
final_single_col_df <- data.frame(
  total_score = total_scores,
  row.names = colnames(score_data)
)

实用注意事项 #

• 运行完代码后可通过head(final_single_col_df)查看前6个结果，校验数值是否符合预期
• 这类逐列求和的场景，R内置的colSums()函数可以直接生成和循环逻辑完全一致的结果，运行速度远快于自定义循环，没有循环使用需求时可直接调用：final_single_col_df <- data.frame(total_score = colSums(score_data))

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