将 3 列长格式转换为 1000 个上（或下）三角矩阵

Question

我想在 R 中转换 8 个特征的一千个上（或下）矩阵中的三个定义的列（数据框）。每个矩阵在数据框中按行写出。 这是一个例子：

Dataframe with 3 columns (and 12000 rows). From this I need to have 1000 matrices (triangular):
           col1  col2  col3
row1         1     2     3 
row2         2     3     4
row3         7     4     5
row4         1     4     5
row5         2     4     5
row6         3     4     5
.            .     .     .
.            .     .     . 
.            .     .     . 
row12000     1     6     9

我需要将它们转换为 1000 个矩阵（三角形），每个矩阵有 8 个特征，并将它们放在一个列表中：将数据帧中的数据转换为第一个矩阵的示例：

            trait 1     trait2         trait3    trait4 trait5 trait6  trait7 trait8
trait1: 1(row1 col1)  
trait2: 2(row1 col2)  5(row3 col3)  
trait3: 3(row1 col3)  1(row4 col1)  3(row6 col1)  
trait4: 2(row2 col1)  4(row4 col2)  4(row6 col2)  value  
trait5: 3(row2 col3)  5(row4 col3)  5(row6 col3)  value  value 
trait6: 4(row2 col3)  2(row5 col1)  .             value  value  value 
trait7: 7(row3 col1)  4(row5 col2)  .             value  value  value  value  
trait8: 4(row3 col2)  5(row5 col3)  .             value  value  value  value  value 

Answer 1

• 按行折叠矩阵值和向量 ( all_values ) 中的数据帧 ( df ) 值。
• 创建 36 个值的组并将它们拆分为一个列表。
• 将 36 个值中的每一个放入 8 X 8 的下三角矩阵中，并获得矩阵列表。

all_values <- c(t(df))
dummmy_matrix <- matrix(nrow = 8, ncol = 8, 
                 dimnames = list(paste0('trait', 1:8), paste0('trait', 1:8)))

matrix_list <- lapply(split(all_values, ceiling(seq_along(all_values)/36)), function(x) {
  dummmy_matrix[lower.tri(dummmy_matrix, diag = TRUE)] <- x
  dummmy_matrix
})
matrix_list