pathway_name = rownames(g1)
tm <- list('P-value' = c(), 'Pathway_name' = c())
for(i in 1:dim(g1)[1]){
    results<- t.test(g1[i,],g2[i,])$p.value
    print(results)
    tm$`P-value`<-append(tm$`P-value`,results)
    tm$Pathway_name<- append(tm$Pathway_name,pathway_name[i])
}


dftm<- data.frame(tm)
dftm <- dftm[sort(dftm$P.value,index.return=TRUE)$ix,]   #按照某一个字段排序

1 data  #dataframe对象 含有v1,v2两列
2 
3 data[sort(data$v1,index.return=TRUE)$ix,]　　#对data的数据按v1排列,v1须为numeric  as.numeric()