如何对矩阵/数据框指定列求和？解决rowSums字符列报错问题

问题根源 #

矩阵中只要包含字符型列，整个矩阵的所有元素会被强制转换为字符类型，直接用rowSums会因非数值输入报错；直接用tibble(mat)转换矩阵时，会把整个矩阵当作单列传入，导致无法定位目标列。

方案一：直接处理矩阵 #

先提取需要求和的列，将其转换为数值型矩阵后计算行和：

# 提取第3-7列并转为数值矩阵
numeric_submat <- apply(your_matrix[, 3:7], 2, as.numeric)
# 计算行和
row_total <- rowSums(numeric_submat)
# 合并原字符列与求和结果（可选）
final_result <- cbind(your_matrix[, 1], row_total)
colnames(final_result) <- c("Group", "Total")

方案二：转换为tibble后处理 #

用as_tibble()正确转换矩阵为tibble，再转换列类型并求和：

library(tibble)
library(dplyr)

# 将矩阵转为tibble（自动按列拆分）
tb <- as_tibble(your_matrix, .name_repair = ~paste0("col", 1:7))
# 转换指定列为数值型并计算行和
tb <- tb %>%
  mutate(across(col3:col7, as.numeric)) %>%
  mutate(total = rowSums(select(., col3:col7)))

关键注意点 #

• 不要用tibble(your_matrix)，要用as_tibble(your_matrix)才能将矩阵的每一列转为tibble的列
• 必须先将求和列从字符型转为数值型，否则rowSums无法正常工作

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