R语言如何按字符列所有两两组合对数据集数值列求和

你需要的是对A列生成所有不考虑顺序的2元素不重复组合，匹配每个组合对应的B列值求和，4个元素总共会生成C(4,2)=6组结果，你给出的示例只列了4组，剩余2组为a&c求和为4、b&d求和为6。下面给3种新手易上手的实现方案，从无依赖基础方法到常用数据处理包方法都覆盖：

方法1：基础R实现，无需安装额外包 #

核心用R内置的combn()函数直接生成所有两两组合，不需要额外依赖，复制就能跑：

# 构造原始示例数据
df <- data.frame(A = c("a","b","c","d"), B = c(1,2,3,4))

# 生成A列所有2元素组合，结果每一列对应一组组合
combs <- combn(df$A, m = 2)

# 逐组匹配B值求和
sum_vals <- apply(combs, 2, function(group) sum(df$B[df$A %in% group]))

# 拼接为最终结果数据框
result <- data.frame(
  comb_A = apply(combs, 2, paste, collapse = " "),
  sum_B = sum_vals
)

运行后输出结果：

comb_A sum_B
1    a b     3
2    a c     4
3    a d     5
4    b c     5
5    b d     6
6    c d     7

完全匹配你需要的输出结构。

方法2：dplyr实现，适配tidyverse数据处理流程 #

如果你后续打算学tidyverse系列的数据处理语法，可以用这个方法，第一次使用需要先运行install.packages("dplyr")安装包：

library(dplyr)

df <- data.frame(A = c("a","b","c","d"), B = c(1,2,3,4))

result <- df %>%
  # 生成所有两两配对的笛卡尔积
  full_join(df, by = character()) %>%
  # 过滤掉重复顺序组合（如a b和b a只保留一个）、自身配对（如a a）
  filter(A.x < A.y) %>%
  # 拼接组合名、计算B值和
  mutate(
    comb_A = paste(A.x, A.y),
    sum_B = B.x + B.y
  ) %>%
  # 保留需要的输出列
  select(comb_A, sum_B)

输出结果和基础R方法完全一致，逻辑更直观，适合多步数据处理的场景拼接使用。

方法3：data.table实现，适合大数据量场景 #

如果你的数据集行数较多（万级以上），可以用data.table的方法，运行速度比前两种快很多，第一次使用需要先运行install.packages("data.table")安装包：

library(data.table)
dt <- data.table(A = c("a","b","c","d"), B = c(1,2,3,4))

result <- dt[, .(A1 = A, B1 = B)][
  dt, 
  on = .(A1 < A), 
  allow.cartesian = T
][, .(comb_A = paste(A1, A), sum_B = B1 + B)]

小提示：如果你需要考虑组合顺序（即a b和b a算两组不同结果），只要把上述方法里的组合生成逻辑替换为排列生成即可，比如用expand.grid()生成所有有序配对，删掉自身配对的行就能得到有序组合的结果。从你给出的示例看，默认的无顺序不重复组合已经满足需求。

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