重塑中的R

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