按照特定顺序将R中的矢量转换为下三角矩阵

Question

我有一个向量，其中元素的顺序很重要，比如说

x <- c(1,2,3,4)

我想将我的矢量排列成一个具有特定顺序的下三角矩阵，其中每行包含矢量的前一个元素。我的目标是获得以下矩阵

lower_diag_matrix   
       [,1] [,2] [,3] [,4]
[1,]    4    0    0    0
[2,]    3    4    0    0
[3,]    2    3    4    0
[4,]    1    2    3    4

我知道我可以使用lower_diag_matrix[lower.tri(lower_diag_matrix,diag = T)]<-some_vector填充下三角区域，但我似乎无法弄清楚用于填充下三角区域的向量的排列。在实践中，数字是随机的，所以我需要一种通用的方法来填充该区域。

先谢谢！

Answer 1

这是一种方式：

x <- c(2, 4, 7)
M <- matrix(0, length(x), length(x))
M[lower.tri(M, diag = TRUE)] <- rev(x)[sequence(length(x):1)]
M
#      [,1] [,2] [,3]
# [1,]    7    0    0
# [2,]    4    7    0
# [3,]    2    4    7