R循环+排列组合

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

各位：如何把排列组合运用到循环中呢？比如下面这个列子



y4为10行4列的矩阵，行为文本数，列为关键词，矩阵中的元素1代表有，0代表没有，想要求包含有关键词1和2，1和3,1和4,2和3,2和4,3和4的文本数（也就是按照组合S=combinations(4,2)来算）分别有多少？
我的程序是一个一个求的，但是当关键词数量很大时，就不实际了。请各位高手帮帮忙，感谢！程序如下：
m1=vector( )
for(i in 1:10) {
if (y4[i,1]+y4[i,2]==2) {      
m1=1
} else {
m1=0
}
}
sum(m1)

m2=vector( )
for(i in 1:10) {
if (y4[i,1]+y4[i,3]==2) {      
m2=1
} else {
m2=0
}
}
sum(m2)

m3=vector( )
for(i in 1:10) {
if (y4[i,1]+y4[i,4]==2) {      
m2=1
} else {
m3=0
}
}
sum(m3)

m4=vector( )
for(i in 1:10) {
if (y4[i,2]+y4[i,3]==2) {      
m4=1
} else {
m4=0
}
}
sum(m4)

m5=vector( )
for(i in 1:10) {
if (y4[i,2]+y4[i,4]==2) {      
m5=1
} else {
m5=0
}
}
sum(m5)

m6=vector( )
for(i in 1:10) {
if (y4[i,3]+y4[i,4]==2) {      
m6=1
} else {
m6=0
}
}
sum(m6)

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：Combinations combination Nations Vector Nation 关键词 程序 如何 元素

这个觉的倒是可以简单的向量相加

1. #比如考察10个文本，中10个关键词的情况
   
2. #10个关键词之间两两配对，共有45种可能。
   
3. set.seed(1)
   
4. data<-matrix(sample(c(0,1),100,replace=T),nrow=10)
   
5. comb<-t(combn(c(1:10),2));comb
   
6. newmatrix<-data[,comb[,1]]+data[,comb[,2]]
   
7. new2<-newmatrix
   
8. new2[which(newmatrix>=2)]=1
   
9. new2[which(newmatrix<2)]=0
   
10. new2
    
11. #为1的为有两两有关键词，new2列 查看 comb的行对应于原来data的哪两个列。

复制代码

y4 <- matrix(sample(0:1, 40, replace = T), nrow = 10)

pair <- as.matrix(expand.grid(col1 = 1:ncol(y4), col2 = 1:ncol(y4)))

pair <- pair[pair[, 1] < pair[, 2], ]

comp <- apply(pair, 1, function(x) y4[, x[1]] & y4[, x[2]])

colnames(comp) <- apply(pair, 1, function(x) paste0("m", x, collapse=""))

cbind(y4, comp)

非常感谢