基于双向命中的聚合[重复]

Question

我有下表：

df <- read.table(textConnection("V1 V2 V3
1  T  Y
                                 4  Y  T
                                 1  O  P
                                 2  Q  E
                                 2  E  Q
                                 5  C  V
                                 2  V  C"), header=TRUE)

我想根据 V2 和 V3 上的双向命中作为 V1 的总和进行聚合。

所以结果是

V1 V2 V3
5  Y  T       ### the order here does not matter (Y T or T Y are the same)
1  O  P
4  Q  E
7  V  C

我的意思是总是可以使用传统的 for 循环来执行此操作，但我认为在 R 中应该有更好的方法来执行此操作？

Answer 1

我们可以通过 sorting 遍历“V2”和“V3”的每一行，然后按“V2”和“V3”分组的“V1”的 aggregate 来做到这一点

df[2:3] <- t(apply(df[2:3], 1, sort))
aggregate(V1 ~ ., df, sum)
#  V2 V3 V1
#1  O  P  1
#2  E  Q  4
#3  C  V  7
#4  T  Y  5