通过删除重复来汇总数据 [重复]

Question

我有一个带有值的数据框：

x y value 
A B 10  
B A 15  
A C 5  
C A 10  
B C 20

df <- data.frame(x = c("A", "B", "A", "C", "B"),
                 y = c("A", "A", "C", "A", "C"),
                 value = c(10, 15, 5, 10, 20))

我想将这些数据汇总到 x 和 y 的每个组合，并得到每个组合的值的总和。结果是：

x y value
A B 25  
A C 15  
B C 20

我发现这个question 和我的问题差不多。但解决方案在我的情况下不起作用。这是因为 x 和 y 中的值是字符串，min() 和 max() 不起作用。

任何想法如何做到这一点？

Answer 1

一个选项是sort前两列中的行并替换它，使用aggregate通过组'x'和'y'获取'value'的sum。

df[1:2] <- t(apply(df[1:2], 1, sort))
aggregate(value~., df, sum)
#  x y value
# 1 A B    25
# 2 A C    15
# 3 B C    20