如何用循环拆分m*n矩阵并将各列保存为独立向量？

当然可以用循环搞定这个需求！尤其是当列数n很大的时候，手动一个个赋值确实太麻烦，下面给你两种实用的方法，你可以根据自己的需求选：

方法一：直接用for循环+assign()动态生成变量 #

这个方法最直接，遍历每一列，动态创建对应的列向量变量：

# 先创建你的示例矩阵
data <- matrix(1:9, ncol=3)

# 获取矩阵的总列数
total_cols <- ncol(data)

# 循环遍历每一列
for (i in 1:total_cols) {
  # 生成变量名，比如vec1、vec2、vec3...
  var_name <- paste0("vec", i)
  # 把对应列赋值给新变量，注意加drop=FALSE，这样得到的是3*1的列矩阵（而不是一维向量）
  assign(var_name, data[, i, drop = FALSE])
}

这里重点说下drop=FALSE：默认情况下data[,i]会返回一维向量，而你需要的是3*1的列矩阵（也就是转置后的形式），加上这个参数就能保留矩阵的维度，正好符合你的要求。

方法二：先存为列表，再转为独立变量（更整洁） #

如果你的列数特别多，生成一堆单独的变量可能会让工作区变得很乱，这种情况下先把列向量存成列表会更易管理，之后如果还是需要单独变量，再转成全局变量：

# 用lapply生成列向量的列表
col_list <- lapply(1:total_cols, function(i) data[, i, drop = FALSE])
# 给列表里的元素命名，对应vec1、vec2...
names(col_list) <- paste0("vec", 1:total_cols)

# 如果需要把列表元素转为单独的全局变量，用list2env()
list2env(col_list, envir = .GlobalEnv)

这样既可以通过列表统一管理所有列向量，也能按需生成单独的变量，灵活性更高。

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