r - 在R中按组转置数据

Question

我有以下结构的数据:

x <- read.table(header=T, text="
X Y D S
a e 1 10
a e 2 20
a f 1 50
b c 1 40
b c 2 30
b c 3 60
b d 1 10 
b d 2 20")

我想得到以下结果:

X Y   1   2   3
a e  10  20
a f  50
b c  40  30  60
b d  10  20

对于 X和 Y列的每种组合，我想按顺序在 S列中转置 D列中的数据。

我以为 xtabs()可以使用，但我认为不是，我最好的版本是:

xtabs(formula=S~Y+D,data=x)

结果:

   D
Y    1  2  3
  c 40 30 60
  d 10 20  0
  e 10 20  0
  f 50  0  0

Answer 1

require(reshape2)
dcast(x, X + Y ~ D, value.var="S")

如果您想用 0而不是 NA(这是默认设置)填充空白条目，那么，

dcast(x, X + Y ~ D, value.var="S", fill=0)