source <- read.csv(file.choose(),stringsAsFactors = F,header = T,row.names = 1)
PRC <- source[,order(as.numeric(source[4,]))]
write.csv(PRC,"PRC.csv")
source <- read.csv(file.choose(),stringsAsFactors = F,header = T,row.names = 1)
PRC <- source[,order(as.numeric(source[4,]))]
write.csv(PRC,"PRC.csv")
本文标题:按表格中的第4行排序
本文链接:https://www.haomeiwen.com/subject/srrinctx.html
网友评论