pathway_name = rownames(g1)
tm <- list('P-value' = c(), 'Pathway_name' = c())
for(i in :dim(g1)[]){
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,] #按照某一个字段排序
 data  #dataframe对象 含有v1,v2两列

 data[sort(data$v1,index.return=TRUE)$ix,]  #对data的数据按v1排列,v1须为numeric  as.numeric()
05-19 01:28