R语言for循环问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

小小小小白求助！！！！！！
我的代码如下，
#1
A<-test[which(test$Sample_ID==id[1]),]
dif<-intersect(x=A$gene,y=pathway1$BIOCARTA_FEEDER_PATHWAY)
w<-length(dif)                    
dif<-intersect(x=A$gene,y=pathway1$BIOCARTA_PROTEASOME_PATHWAY)
w2<-length(dif)                     
w3<-append(w,w2)

for(j in pathwayid){
dif<-intersect(x=A$gene,y=pathway1[[j]])
w<-length(dif)
w3<-append(w3,w)
h1<-matrix(data=w3, nrow =1, byrow = T, dimnames = NULL)
}
#2
A<-test[which(test$Sample_ID==id[2]),]
dif<-intersect(x=A$gene,y=pathway1$BIOCARTA_FEEDER_PATHWAY)
w<-length(dif)                    
dif<-intersect(x=A$gene,y=pathway1$BIOCARTA_PROTEASOME_PATHWAY)
w2<-length(dif)                       
w3<-append(w,w2)

for(j in pathwayid){
dif<-intersect(x=A$gene,y=pathway1[[j]])
w<-length(dif)
w3<-append(w3,w)
h2<-matrix(data=w3, nrow =1,  byrow = T, dimnames = NULL)
}
h3<-rbind(h1,h2)

#3
A<-test[which(test$Sample_ID==id[3]),]
dif<-intersect(x=A$gene,y=pathway1$BIOCARTA_FEEDER_PATHWAY)
w<-length(dif)                    
dif<-intersect(x=A$gene,y=pathway1$BIOCARTA_PROTEASOME_PATHWAY)
w2<-length(dif)                     
w3<-append(w,w2)

for(j in pathwayid){
dif<-intersect(x=A$gene,y=pathway1[[j]])
w<-length(dif)
w3<-append(w3,w)
h2<-matrix(data=w3, nrow =1,  byrow = T, dimnames = NULL)
}
h4<-rbind(h2,h3)

A<-test[which(test$Sample_ID==id[1]),]中的id有五千多个，我如何用for循环编写代码呢

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：for循环 For R语言 R语言