R /在下三角形元素的向量中创建一个对称矩阵

Question

我提供了一些数据以在向量形式的R中使用。这个大小为n（n + 1）/ 2的向量的元素应该以对称矩阵重新排列。 例子：

n<-4 
x<-seq(from=1,to=n*(n+1)/2) 

什么是一个很好的方式来获得

mat<- 1 2 3 4 
     2 5 6 7 
     3 6 8 9 
     4 7 9 10 

Answer 1

我们可以使用lower.tri

m1 <- matrix(, n, n) 
m1[lower.tri(m1, diag=TRUE)] <- x 
m2 <- t(m1) 
m2[lower.tri(m2, diag=TRUE)] <- x 

或代替做最后两步

pmax(m1, t(m1), na.rm=TRUE) 
#  [,1] [,2] [,3] [,4] 
#[1,] 1 2 3 4 
#[2,] 2 5 6 7 
#[3,] 3 6 8 9 
#[4,] 4 7 9 10