Fatal编程技术网
  • r/
  • 在R个匹配列和行名中填充新列表

在R个匹配列和行名中填充新列表

r

在R个匹配列和行名中填充新列表,r,R,这是我的代码： mydatamatrix<-matrix(rnorm(30),nrow=10,ncol=26);colnames(mydatamatrix)<-LETTERS[1:26] pairs<-matrix(LETTERS[1:20],ncol=2); mylist <- rep(list(vector(mode = "list", 2)),nrow(pairs)) mydatamatrix我们可以按行拆分“对”，并在列表中提取数据集的列 lapply(spl

这是我的代码：

mydatamatrix<-matrix(rnorm(30),nrow=10,ncol=26);colnames(mydatamatrix)<-LETTERS[1:26]
pairs<-matrix(LETTERS[1:20],ncol=2);

mylist <- rep(list(vector(mode = "list", 2)),nrow(pairs))

mydatamatrix我们可以
按行拆分“对”，并在
列表中提取数据集的列


lapply(split(pairs, row(pairs)), function(x) 
        list(mydatamatrix[, x[1]], mydatamatrix[, x[2]]))




或者使用
for
循环将提取值的输出分配给已创建的“mylist”


for(i in seq_along(mylist)) mylist[[i]] <- list(mydatamatrix[, pairs[i,][1]], 
                       mydatamatrix[, pairs[i, ][2]])



for（沿（mylist）的顺序中的i）mylist[[i]]