将加权边缘列表与R中的数据帧成对

Question

我有一个包含三列的数据集。

X = c("x", "y", "z", "x", "y", "w")
Y = c("a", "b", "c" , "b", "a", "c")
set.seed(3)
Z = sample(10,6)
dat = data.frame(X, Y, Z)

数据看起来像

 X Y Z
1 x a 2
2 y b 8
3 z c 4
4 x b 3
5 y a 9
6 w c 6

我想将上述数据转换为行为X且列为Y的格式，矩阵中的值为Z.基本上我想要以下内容：

    a   b    c
x   2   3    0
y   9   8    0
z   0   0    4
w   0   0    6

这有点类似于边缘列表到邻接矩阵，除了数据矩阵不是正方形。请帮忙。谢谢！

Answer 1

尝试

library(reshape2)
acast(dat, X~Y, value.var='Z', fill=0)

按顺序获取行作为预期结果

acast(dat, factor(X, levels=unique(X))~Y, value.var='Z', fill=0)

或者@thelatemail评论

xtabs(Z~X+Y, data= dat)[unique(dat$X),]

如果两列都不按顺序修改版本

with(dat, xtabs(Z ~ X + Y)[unique(X), unique(Y)])