小小小小白求助！！！！！！
我的代码如下，
#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循环编写代码呢