制表符分隔转为方阵

Question

我有一个制表符分隔的文件，格式如下：

A   B   0.5
A   C   0.75
B   D   0.2

我希望将其转换为一个方阵，例如

       A      B      C       D
A      0     0.5    0.75     0
B             0      0      0.2 
C                    0       0
D                            0

我该如何在R中进行操作？谢谢。

- y2p

Answer 1

如果您在数据框中具有以下列名称的数据：

Var1    Var2    value

您可以使用

标签。

xtabs(value ~ Var1 + Var2, data = df)

可以查看 plyr 包，获取更多通用的数据重塑函数。

- JoFrhwld

Answer 2

另一种方法（不如JoFrhwld的方法优雅）

df<- read.table(textConnection("
Var1    Var2    value
A   B   0.5
A   C   0.75
B   D   0.2
"),header = T)


lev = unique(c(levels(df$Var1),levels(df$Var2)))
A = matrix(rep(0,length(lev)^2),nrow=length(lev))
colnames(A) = lev
rownames(A) = lev
apply(df,1,function(x) A[x[1],x[2]]<<-as.numeric(x[3]))

> A
  A   B    C   D
A 0 0.5 0.75 0.0
B 0 0.0 0.00 0.2
C 0 0.0 0.00 0.0
D 0 0.0 0.00 0.0
> 

- George Dontas

Answer 3

我猜这是一个图的加权邻接矩阵。如果是这样，你可能会对igraph包感兴趣，将数据读取为加权边列表。

- Ken Williams