无序组合和中的R

生成相关索引向量假设我有三个人A，B和C数据，和每一个都具有两个状态（1和2）。这些组合是：A,B,C,AB,AC,BC和ABC（即，2^2-1组合）。因此，我需要类似索引的向量来引用每个组合。例如，组合A的索引向量将是IV<-c(1, 2, 2)。对于另一个示例，组合AB的索引向量将为IV<-c(1, 1, 2)。最后，组合ABC的索引向量将是IV<-c(1, 1, 1)。无序组合和中的R

任何人都可以帮忙吗？谢谢。

来源

2015-11-18 tzu

使用expand.grid：

IV<-expand.grid(2:1,2:1,2:1)[-1,] 
rownames(IV)<-c('A','B','AB','C','AC','BC','ABC'); colnames(IV)<-NULL 
IV<-as.matrix(IV) 

    IV 
    [,1] [,2] [,3] 
A  1 2 2 
B  2 1 2 
AB  1 1 2 
C  2 2 1 
AC  1 2 1 
BC  2 1 1 
ABC 1 1 1

要使用矢量把名字用引号，不要忘了逗号：

IV['A',] 
[1] 1 2 2

请注意，如果你想要做同样的四（以上）的信件，你可以这样做：

number<-4 
IV<-expand.grid(replicate(number,2:1,simplify=FALSE))[-1,]; colnames(IV)<-LETTERS[1:number] 
IV<-as.matrix(IV) 

# this will computes the rownames 
for (i in 1:nrow(IV)){ 
    temp<-'' 
    for (j in 1:ncol(IV)){ 
     if (all.equal(IV[i,j],1)==TRUE) { 
      temp<-paste0(temp,colnames(IV)[j]) 
     } 
    } 
    rownames(IV)[i]<-temp 
} 
colnames(IV)<-NULL

对于顺序，使用

IV<-IV[order(row.names(IV)),] 
IV<-IV[order(sapply(1:nrow(IV),function(x){nchar(row.names(IV)[x])})),]

它可以在

IV[order(sapply(1:nrow(IV),function(x){nchar(row.names(IV)[x])}),row.names(IV)),]

这将责令由字母顺序排列的长度，使得它给缩短了，再：

rownames(IV) 
[1] "A" "B" "C" "D" "AB" "AC" "AD" "BC" "BD" "CD" "ABC" "ABD" "ACD" "BCD" 
[15] "ABCD"

来源

2015-11-18 08:20:33 etienne

谢谢您的回答@eitnne。我想知道是否有任何方法可以将组合重新排序为A，B，C，AB，AC，BC，ABC？ – tzu

@tzu：我编辑了答案 – etienne

明白了，谢谢。还有一个问题，如果没关系。你介意向我解释一下这段代码吗？ 'IV [order（sapply（1：nrow（IV），function（x）{nchar（row.names（IV）[x]）}），row.names（IV）），]'对我来说，好像它先命令'sapply'部分，然后命令'row.names（IV）'部分。这是代码顺序的工作原理吗？谢谢！ @eitnne – tzu

无序组合和中的R

回答

相关问题