> head(gene_rn)
$ALDOA
[1] "rn:R02568" "rn:R01829"
$ALDOB
[1] "rn:R02568" "rn:R01829"
$ALDOC
[1] "rn:R02568" "rn:R01829"
$ALDH2
[1] "rn:R02957" "rn:R03869" "rn:R03283" "rn:R01986" "rn:R02549" "rn:R05050"
[7] "rn:R04065" "rn:R02678" "rn:R04903" "rn:R01752" "rn:R02940" "rn:R02678"
[13] "rn:R04903" "rn:R04904" "rn:R05050" "rn:R05237" "rn:R05238" "rn:R05286"
[19] "rn:R02957"
转成:
> head(a,10)
[,1] [,2]
[1,] "ALDOA" "rn:R02568"
[2,] "ALDOA" "rn:R01829"
[3,] "ALDOB" "rn:R02568"
[4,] "ALDOB" "rn:R01829"
[5,] "ALDOC" "rn:R02568"
[6,] "ALDOC" "rn:R01829"
[7,] "ALDH2" "rn:R02957"
[8,] "ALDH2" "rn:R03869"
[9,] "ALDH2" "rn:R03283"
[10,] "ALDH2" "rn:R01986"
我写的程序:
- a<-cbind(names(gene_rn[1]),gene_rn[[1]])
- for(i in 2:length(gene_rn)){
- b<-cbind(names(gene_rn[i]),gene_rn[[i]])
- a<-rbind(a,b)
- }
感觉这么写好傻。。。


雷达卡




京公网安备 11010802022788号







