Fatal编程技术网
  • r/
  • R 我需要通过选择原始矩阵的替代列来构建新矩阵

R 我需要通过选择原始矩阵的替代列来构建新矩阵

r select matrix

R 我需要通过选择原始矩阵的替代列来构建新矩阵,r,select,matrix,lapply,cbind,R,Select,Matrix,Lapply,Cbind,我有一个矩阵，其中第一列是样本的ID，第2列到第15列是观察到的14种鱼类的存在，第16列到第29列是预测的14种鱼类的存在 我需要构建14个矩阵（每个物种1个），每个矩阵有3列：第一列=样本ID（例如原始矩阵的第1列），第二列=观察到的物种存在，第三列=预测的物种存在 假设A是我的样本的ID： A我们可以使用lappy通过循环列序列创建矩阵的列表 lst <- lapply(seq_len(ncol(B)), function(i) cbind(A, B= B[,i], C=C[,i])

我有一个矩阵，其中第一列是样本的ID，第2列到第15列是观察到的14种鱼类的存在，第16列到第29列是预测的14种鱼类的存在

我需要构建14个矩阵（每个物种1个），每个矩阵有3列：第一列=样本ID（例如原始矩阵的第1列），第二列=观察到的物种存在，第三列=预测的物种存在

假设A是我的样本的ID：

A我们可以使用
lappy
通过循环列序列创建
矩阵的
列表


lst <- lapply(seq_len(ncol(B)), function(i) cbind(A, B= B[,i], C=C[,i]))
names(lst) <- paste0("A", seq_along(lst))



我们可以使用
lappy
通过循环列序列来创建
矩阵的
列表


lst <- lapply(seq_len(ncol(B)), function(i) cbind(A, B= B[,i], C=C[,i]))
names(lst) <- paste0("A", seq_along(lst))