Question

我有一个类似于下面的对称矩阵，其中元素是字符。我试图找到一种方法将其导出为数据框，这样它就是数字而不是＆＃34; NA＆＃34;是被胁迫的。我还想保留行名和列名（不是索引而是实际名称）。

  MYmatrix<- structure(c("0", "2/10", "2/10", "2/10", "0", "3/10", "2/10", 
"3/10", "0"), .Dim = c(3L, 3L), .Dimnames = list(c("t534", "t535", 
"t830"), c("t534", "t535", "t830")))

由于

Answer 1

如果您希望将分数表示为数字值，您可以将eval与parse一起使用（例如@SymbolixAU提供给您的链接）。

这是一个带有数字条目的矩阵：

MYmatrix02 <- matrix(sapply(MYmatrix, function(x) eval(parse(text = x))),
    nrow = nrow(MYmatrix), dimnames = dimnames(MYmatrix))

> MYmatrix02
     t534 t535 t830
t534  0.0  0.2  0.2
t535  0.2  0.0  0.3
t830  0.2  0.3  0.0

或者如果你想要一个数据框：

MYdataframe <- as.data.frame(MYmatrix02)

Answer 2

喜欢这个吗？

library(Matrix)
s<-matrix(as.factor(letters[1:25]),5)
s[lower.tri(s)] = t(s)[lower.tri(s)]
s[ row(s) == col(s) ] <- 0
s
      [,1] [,2] [,3] [,4] [,5]
 [1,] "0"  "f"  "k"  "p"  "u" 
 [2,] "f"  "0"  "l"  "q"  "v" 
 [3,] "k"  "l"  "0"  "r"  "w" 
 [4,] "p"  "q"  "r"  "0"  "x" 
 [5,] "u"  "v"  "w"  "x"  "0"

如何将对称字符矩阵转换为数值数据框？

2 个答案: