重塑R中的数据框

Question

I have a data frame that looks like

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

I need to convert this to

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

Answer 1

Here's an approach:

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

where dat is the name of your data frame.

Answer 2

This problem can also be tackled pretty easily with the "reshape2" package:

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

---

However, it is also pretty easily tackled with base 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

In cases where your data are already long, as they are in your comment , it is even more straightforward:

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