以相同的名称合并几列

Question

我正在尝试使R-package pls中的mvr功能起作用。 在查看示例数据集yarn时，我意识到实际上所有268个NIR列都被视为一列：

 library(pls)
 data(yarn)
 head(yarn)
 colnames(yarn)

我需要将其与数据一起使用（以便将多变量数据集视为一个实体），但是我不知道该如何实现。 我试过了

 TT<-matrix(NA, 2, 3)
 colnames(TT)<-rep("NIR", ncol(TT))
 TT
 colnames(TT)

您会注意到，尽管所有列都具有相同的标题，但colnames（TT）显示的长度为3的向量，因为每一列都被单独处理。 我需要的是在纱线中可以找到的名称“ NIR”仅出现一次，并且适用1-268列。

有人知道该怎么做吗？

Answer 1

您可以只将矩阵分配给data.frame一列

TT <- matrix(1:6, 2, 3 )

# assign to an existing dataframe
out <- data.frame(desnity = 1:nrow(TT))
out$NIR <- TT
str(out)

# assign to empty dataframe
out <- data.frame(matrix(integer(0), nrow=nrow(TT))) ; 
out$NIR <- TT