如果其他两列中的值的组合是唯一的，则对变量求和[重复]

我有发件人和收件人的数据以及发送的电子邮件数量。一个玩具示例：

senders <- c("Mable","Beth", "Beth","Susan","Susan")
receivers <- c("Beth", "Mable", "Susan", "Mable","Beth")
num_email <- c(1,1,2,1,1)

df <- data.frame(senders, receivers, num_email)

senders receivers num_email
Mable      Beth          1
Beth       Mable         1
Beth       Susan         2
Susan      Mable         1
Susan      Beth          1

我想获得一个 data.frame，其中包含每个唯一对的总消息。例如。连接 Mable | Beth 的值为 2，因为 Mable 向 Beth 发送了一条消息，而 Beth 向 Mable 发送了一条消息。对于每个唯一的电子邮件发送者组合，生成的 data.frame 应该只有一行（例如，只有 Mable | Beth 或 Beth | Mable，而不是两者都有。

我已经尝试了各种重塑和 data.table 的方法，但我没有任何运气。我想避免创建一个唯一的字符串 BethMable 并以这种方式合并。非常感谢

我们可以使用base R方法首先sort按行计算前两列。我们用apply with MARGIN=1为此，转置输出，转换为“data.frame”以创建“df1”，使用公式方法aggregate得到sum按转换数据集的前两列分组的“num_email”。

df1 <- data.frame(t(apply(df[1:2], 1, sort)), df[3])
aggregate(num_email~., df1, FUN=sum)

#      X1    X2 num_email
# 1  Beth Mable         2
# 2  Beth Susan         3
# 3 Mable Susan         1

或者使用data.table，我们将前两列转换为character class, unname将前两列的列名更改为默认的“V1”、“V2”，并转换为“data.table”。使用字符列的字典顺序，我们为 i (V1 > V2）， 分配 （:=) 通过反转列的顺序来满足条件的列 (.(V2, V1)），并得到sum按“V1”、“V2”分组的“num_email”。

library(data.table)
dt = do.call(data.table, c(lapply(unname(df[1:2]), as.character), df[3]))
dt[V1 > V2, c("V1", "V2") := .(V2, V1)]
dt[, .(num_email = sum(num_email)), by= .(V1, V2)]

#       V1    V2 num_email
# 1:  Beth Mable         2
# 2:  Beth Susan         3
# 3: Mable Susan         1

或者使用dplyr， 我们用mutate_each将列转换为character类，然后颠倒顺序pmin and pmax，按“V1”、“V2”分组并得到sum“num_email”。

library(dplyr)
df %>%
  mutate_each(funs(as.character), senders, receivers) %>%
  mutate( V1 = pmin(senders, receivers), 
          V2 = pmax(senders, receivers) ) %>%
  group_by(V1, V2) %>%
  summarise(num_email=sum(num_email))

#      V1    V2 num_email
#   (chr) (chr)     (dbl)
# 1  Beth Mable         2
# 2  Beth Susan         3
# 3 Mable Susan         1

注意：data.table解决方案已由@Frank 更新。