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

【问题标题】：R / creating a symmetric matrix out of the vector of the lower triangle elementsR / 从下三角形元素的向量中创建一个对称矩阵
【发布时间】：2016-03-01 10:57:43
【问题描述】：

我获得了一些在 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

【问题讨论】：

标签： r matrix vector

【解决方案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

【讨论】：