删除重复行并对数据帧中最后一列的相应值求和

如果我们想从数据帧中删除重复项 df ,我们只需要写 df[!duplicated(df),] 复制品将被删除。我有以下数据框:

df <- data.frame(from = c("z","y","z","w","y"), to=c("x","w","x","z","w"), weight=c(2,1,3,5,6))

我想得到一些不同的东西。在 df[,1:2] ,第一行和第三行之间是相等的,我想:1)删除其中一行;2)对相应的权重值求和。E、 g.对于本例,预期结果是:

   from to weight
     z  x      5
     y  w      7
     w  z      5

无论如何,如果我使用:

df2=df[,1:2]
which(duplicated(df2) | duplicated(df2[nrow(df2):1, ])[nrow(df2):1])

我得到

[1] 1 2 3 5