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

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

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但我似乎无法弄清楚用于填充下三角区域的向量的排列。实际上，数字是随机的，所以我需要一种通用的方法来填充该区域。

这是一种方法：

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