按表格中的第4行排序

source <- read.csv(file.choose(),stringsAsFactors = F,header = T,row.names = 1)
PRC <- source[,order(as.numeric(source[4,]))]
write.csv(PRC,"PRC.csv")