Question

我的数据框看起来像

F1      F2        Number
Banana  Apple     9
Orange  Banana    7
Apple   Orange    8
Banana  Orange    6

我需要将其转换为

Type    F1   F2
Banana  15   7
Orange  7    14
Apple   8    9

Answer 1

这是一种方法：

setNames(merge(aggregate(Number ~ F1, dat, sum),
               aggregate(Number ~ F2, dat, sum),
               by.x = "F1", by.y = "F2", all = TRUE),
         c("Type", "F1", "F2"))

#     Type F1 F2
# 1  Apple  8  9
# 2 Banana 15  7
# 3 Orange  7 14

其中dat是数据框的名称。

Answer 2

使用“reshape2”软件包可以很容易地解决这个问题：

library(reshape2)

x <- melt(mydf, id.vars="Number")
dcast(x, value ~ variable, value.var="Number", fun.aggregate=sum)
#    value F1 F2
# 1  Apple  8  9
# 2 Banana 15  7
# 3 Orange  7 14

然而，它也很容易用基础R来解决：

xtabs(Number ~ values + ind, 
      cbind(mydf["Number"], 
            stack(mydf[setdiff(names(mydf), "Number")])))
#         ind
# values   F1 F2
#   Apple   8  9
#   Banana 15  7
#   Orange  7 14

如果您的数据已经很长，就像它们在your comment中一样，那就更直接了：

xtabs(Number ~ Date + Type, mydf)
#           Type
# Date       M1 M2
#   01/01/14  9  7
#   01/02/14  8  6

在R中重塑数据框

2 个答案: