拆分矩阵并在循环中保存在单独的变量中

Question

我有一个 m*n 矩阵的数据。我想按列拆分矩阵并将每一列分别保存在不同的向量中。 例如

data<-matrix(1:9, ncol=3)

我想让vec1 包含第一列所以

vec1 将转置[1,2,3]，一个维度为 3*1 的列矩阵，基本上是第一列数据。同样，vec2 代表第二列，vec3 代表最后一列。

我知道我可以通过重复手动执行此操作

vec1<-data[,1], 
vec2<-data[,2] 
... 
vecn<-data[,n]. 

但是，当 n 很大时，这是不可行的。 所以我想知道使用循环来做到这一点是否可行。

Answer 1

正如已经指出的那样，这可能不是一个好主意。但是，如果您仍然觉得需要沿着这条路继续前进，而不是使用list 或仅使用源matrix 本身，最简单的方法可能是使用list2env 和data.frame 的组合。

这是一个演示，一步一步：

data <- matrix(1:9, ncol=3)

ls()  # Only one object in my workplace
# [1] "data"

data_list <- unclass(data.frame(data))
str(data_list)
# List of 3
#  $ X1: int [1:3] 1 2 3
#  $ X2: int [1:3] 4 5 6
#  $ X3: int [1:3] 7 8 9
#  - attr(*, "row.names")= int [1:3] 1 2 3

ls() # Two objects now
# [1] "data"      "data_list"

list2env(data_list, envir = .GlobalEnv)

ls() # Five objects now
# [1] "data"      "data_list" "X1"        "X2"        "X3"  

X1
# [1] 1 2 3

---

如果要单列data.frames，可以使用split.list：

list2env(setNames(split.default(data.frame(data), seq(ncol(data))), 
                  paste0("var", seq(ncol(data)))), envir = .GlobalEnv)
var1
#   X1
# 1  1
# 2  2
# 3  3

将这些放在一起，您实际上可以一次完成所有操作（无需先创建“data_list”），如下所示：

list2env(data.frame(data), envir = .GlobalEnv)

但同样，您应该有充分的理由这样做！