r - 将数据框转换为R中的附属网络

Question

我有一个具有以下格式的数据框:

name workplace
a     A
b     B
c     A
d     C
e     D
....

我想将此数据框转换为 R 中格式的附属网络

    A B C D ...
a   1 0 0 0
b   0 1 0 0
c   1 0 0 0
d   0 0 1 0
e   0 0 0 1
...

我使用了以下程序:

for (i in 1:nrow(A1)) {  
  a1[rownames(a1) == A1$name[i],
     colnames(a1) == A1$workplace[i]] <- 1
}

其中A1是数据框，a1是隶属网络。但是，由于我有一个大数据框，上面的程序运行起来很慢。有没有一种有效的方法可以避免数据转换中的循环？

非常感谢!

Answer 1

如果您的数据名为 df，只需执行以下操作:

as.data.frame.matrix(table(df))
#   A B C D
# a 1 0 0 0
# b 0 1 0 0
# c 1 0 0 0
# d 0 0 1 0
# e 0 0 0 1