-3

这是我的代码

这里粘贴功能仅适用于两种组合。我需要在一个循环中同时使用相同的代码来处理两种以上的组合。

i<-2

while (i<=10)
 {
 results<-data.frame()
 results<- t(apply(data,1,function(x) combn(x,i,prod)))
 comb <- combn(colnames(data),i)
 colnames(results) <- apply(comb,i,function(x) paste(x[1],x[2]))
 i<-i+1
 }

现在我得到了这两种组合

V1V2, V1V3,V1V4,....

现在我想要

 v1v2v3, v1v2v4, ... 

paste功能上。

4

1 回答 1

0

comb <- combn(colnames(data),v)

colnames(results) <- apply(comb,2,function(rows) paste0(rows, collapse = ""))

粘贴使用paste0

@henrik 和 @chargaff

于 2013-11-30T09:06:11.407 回答