如何通过R中的矩阵从向量列表中提取向量

Question

问题：

我有很多向量。 我想对从1到n向量进行数字签名。 然后，我想将这些数字转换为下lower.triangular矩阵。 在那之后，我想提取向量到矩阵的最后一行。

问题的步骤：

1. 符号编号从1到n n向量。

2. 将这些数字转换为下lower.triangular矩阵M。

3. 然后，提取与矩阵M最后一行中的数字匹配的向量。

例：

假设我有10向量（ X ）的列表：

X <- list(x1=c(1:3), x2=(2:5), x3=c(4:2), x4=c(5:7), x5=c(12,34,54), x6=c(3:6), x7=c(3:6), x8=c(3,4,5), x9=c(44,56,7), x10=c(34,5,4))

然后，我想将它们从1到10进行排序，其中1表示第一个向量，依此类推。 然后，我将得到这些数字的向量，例如x = c(1:10) 。 然后，我想将其转换为下三角矩阵M

 M <- matrix(0,5,5)

> M[lower.tri(M, diag=FALSE)] <- x
> M
     [,1] [,2] [,3] [,4] [,5]
[1,]    0    0    0    0    0
[2,]    1    0    0    0    0
[3,]    2    5    0    0    0
[4,]    3    6    8    0    0
[5,]    4    7    9   10    0

现在，我想提取最后一行。

> tail(M, 1)
     [,1] [,2] [,3] [,4] [,5]
[5,]    4    7    9   10    0

> newX <- as.vector(tail(M,1))
> newX
[1]  4  7  9 10  0

现在所需的向量（要从整个向量中提取）是x4, x7, x9, and x10和10。换句话说，我需要提取x4, x7, x9, and x10 。

因此，我想提取与这些数字匹配的向量。

有什么想法或帮助吗？

Answer 1

您可以使用paste ：

X[paste0("x", newX[newX != 0])]

$`x4`
[1] 5 6 7

$x7
[1] 3 4 5 6

$x9
[1] 44 56  7

$x10
[1] 34  5  4

paste0("x", newX[newX != 0]将创建字符向量"x4", "x7", "x9", "x10" ，可用于为列表建立索引。