能否将向量列表存储为矩阵？实现可提取子向量的2×2下三角矩阵

其实在R里要实现这个需求，关键是要构建一个列表矩阵——也就是每个元素都是向量的矩阵，毕竟普通的数值矩阵只能存储单个数值，没法直接放整段向量。下面给你两种简单的实现方式，附详细代码：

第一步：先准备示例数据 #

先按你的需求生成测试用的向量，我加了个随机种子让结果可复现：

set.seed(123) # 固定随机数，方便验证
x <- rnorm(10)
y <- rnorm(10)

方法一：直接构造列表矩阵 #

我们可以用matrix()函数，把向量用list()包裹后作为输入，指定好矩阵的维度即可。这里按你要的2×2下三角结构来填充：

# 构建2×2矩阵，下三角（含对角线）填充x和y，上三角设为NA
Mat <- matrix(list(y, NA, x, y), nrow = 2, ncol = 2)

这里的顺序是按列填充的：(1,1)位置是y，(2,1)是x，(1,2)是NA，(2,2)是y，刚好符合下三角的结构。

方法二：先创建空矩阵再赋值 #

如果你想更灵活地指定每个位置的元素，可以先创建一个空的列表矩阵，再逐个赋值：

# 创建一个2×2的空列表矩阵
Mat <- matrix(vector("list", 4), nrow = 2, ncol = 2)
# 给下三角元素赋值
Mat[1,1] <- list(y)  # 对角线第一个元素放y
Mat[2,1] <- list(x)  # 下三角非对角线元素放x
Mat[2,2] <- list(y)  # 对角线第二个元素放y
# 上三角可以设为NA或者空列表
Mat[1,2] <- list(NA)

测试提取向量 #

现在就可以按你想要的方式提取向量啦：

# 获取x的全部10个值，注意用双括号[[直接拿到向量
Mat[[2,1]]
# 如果用单括号[，会返回一个包含x的列表，再套个[[1]]也能拿到向量
Mat[2,1][[1]]

小提醒 #

这种列表矩阵和普通的数值矩阵不一样，没法直接做矩阵乘法这类运算，但如果只是用来存储和提取向量，完全够用。

内容的提问来源于stack exchange，提问作者user8389133