使用lapply重置列表中矩阵维度仅返回维度值，如何正确实现？

嘿，这个坑我之前也踩过！你现在的问题核心在于：dim(x) <- c(5,5)这个赋值操作本身返回的是维度向量（也就是你看到的[1] 5 5），而不是修改后的向量转成的矩阵。所以你的lapply其实只是把每个元素的维度值收集起来了，而不是返回修改后的矩阵对象。

正确的两种实现方式： #

方法一：在匿名函数里显式返回修改后的对象

只需要在函数里先设置维度，再把修改后的x返回就行：

# 先生成原始列表
S <- list(c(1:25), c(1:25), c(1:25), c(1:25))

# 用lapply正确转换
mat <- lapply(S, function(x) {
  dim(x) <- c(5, 5)  # 修改维度
  x  # 关键：返回修改后的矩阵
})

方法二：直接用matrix函数更简洁

其实设置维度本质上就是把向量转换成矩阵，所以可以直接用matrix函数作为lapply的操作函数，省去匿名函数的写法：

mat <- lapply(S, matrix, nrow=5, ncol=5)

验证结果 #

运行str(mat)就能看到，每个元素都是int [1:5, 1:5]类型的5×5矩阵，和你原来for循环的效果一致（区别在于for循环直接修改了原列表S，而lapply生成了新的列表mat，原S不会被改动，这也是函数式编程的特点）。

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