从包含数字和字符值的数据框中创建矩阵

Question

我有一个包含三列的数据框，如下所示：

     IS1     IS2     Dist
      A       A       0
      A       B       1
      A       C       2
      A       D       3 
      B       B       0
      B       C       4
      B       D       5
      C       C       0
      C       D       6
      D       D       0

我想获得这样的矩阵：

     A    B    C    D
 A   0    1    2    3  
 B   1    0    4    5  
 C   2    4    0    6
 D   3    5    6    0

有什么建议吗？

Answer 1

我们可以使用xtabs

执行此操作

r1 <- xtabs( Dist ~IS2 + IS1, df1)
r1+ t(r1)