如何在R中为列分配类别并按行计算类别内数值之和？

先构造和你需求匹配的示例数据，方便直接测试：

# 树木-地衣数量数据框（行=树木，列=地衣物种）
tree_lichens <- data.frame(
  Tree_ID = c("T1", "T2", "T3"),
  Lichen_A = c(5, 3, 7),
  Lichen_B = c(2, 4, 1),
  Lichen_C = c(0, 6, 3),
  Lichen_D = c(4, 2, 5)
)

# 地衣-敏感度类别数据框
lichen_sensitivity <- data.frame(
  Lichen_Species = c("Lichen_A", "Lichen_B", "Lichen_C", "Lichen_D"),
  Sensitivity = c("高敏感", "低敏感", "高敏感", "低敏感")
)

方法一：用tidyverse（dplyr + tidyr）实现（推荐） #

这个方法简洁高效，完全自动化处理，无需手动指定物种：

library(tidyverse)

# 1. 将宽格式数据转长格式，便于关联敏感度类别
long_data <- tree_lichens %>%
  pivot_longer(cols = -Tree_ID, names_to = "Lichen_Species", values_to = "Count")

# 2. 关联敏感度表，按树木ID和敏感度类别汇总求和
summary_result <- long_data %>%
  left_join(lichen_sensitivity, by = "Lichen_Species") %>%
  group_by(Tree_ID, Sensitivity) %>%
  summarise(Total_Count = sum(Count), .groups = "drop")

# 可选：转回宽格式（每棵树一行，敏感度类别为列，和原始数据结构对齐）
summary_wide <- summary_result %>%
  pivot_wider(names_from = Sensitivity, values_from = Total_Count)

关键步骤说明 #

• pivot_longer把列形式的地衣物种转成单独的列，解决宽格式无法直接关联分类表的问题
• left_join自动匹配物种名，把敏感度类别挂载到对应地衣的数量数据上
• group_by + summarise自动按树木和敏感度分组求和，不管你有多少种敏感类别、多少种地衣，都能批量处理

方法二：基础R实现（无需加载第三方包） #

如果不想依赖tidyverse，用基础R的矩阵运算也能实现：

# 提取地衣数量的数值矩阵（剔除Tree_ID列）
lichen_counts <- as.matrix(tree_lichens[, -1])

# 按敏感度类别分组，获取每组对应的地衣列索引
sensitivity_groups <- split(colnames(lichen_counts), lichen_sensitivity$Sensitivity)

# 对每个敏感度类别，计算每棵树的总和
summary_list <- lapply(sensitivity_groups, function(species) {
  rowSums(lichen_counts[, species, drop = FALSE])
})

# 合并树木ID，转成最终数据框
summary_result_base <- cbind(tree_lichens["Tree_ID"], as.data.frame(summary_list))

关键步骤说明 #

• split自动把地衣物种按敏感度分类，生成对应列名的分组列表
• rowSums直接计算每组列的行总和，运算效率高
• 最后合并树木ID即可得到结构化结果

两种方法都能适配你的40余种地衣、多组树木数据集，直接替换成你的真实数据框就能用，完全不需要手动操作。

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