这是我的代码
此处粘贴功能仅适用于两个组合。我需要在循环中使用相同的代码同时为两个以上的组合。
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
函数中。
答案 0 :(得分:0)
comb <- combn(colnames(data),v)
colnames(results) <- apply(comb,2,function(rows) paste0(rows, collapse = ""))
而不是粘贴使用paste0
@henrik和@chargaff