如何按R中每列的最后一个值对数据框中的列进行重新排序

debugcn 发表于 Dev

h4rves7er

这是我的第一个问题，很高兴来到这里:)因此，我有一个数据框，例如：

date <- as.Date(c('2019-03-1','2019-4-25','2019-5-25','2019-6-14','2019-7-14','2019-8-15'))
US <- c(340, 450, 100, 400, 500, 350)
JP <- c(600, 700, 400, 600, 500, 700)
CHN <- c(400, 550, 450, 600, 200, 300)
GER <- c(800, 900, 700, 700, 600, 900)
IT <- c(400, 500, 350, 600, 600, 500)
BR <- c(300, 400, 450, 300, 450, 250)

df <- data.frame(date, US, JP, CHN, GER, IT, BR)

这使

      startdate  US  JP CHN GR  IT  BR
1   2019-03-01  340 600 400 800 400 300
2   2019-04-25  450 700 550 900 500 400
3   2019-05-25  100 400 450 700 350 450
4   2019-06-14  400 600 600 700 600 300
5   2019-07-14  500 500 200 600 600 450
6   2019-08-15  350 700 300 900 500 250

我想要的是更改此数据框中的列顺序，以使最后一个日期的值最高的国家（在这种情况下为“ 2019-08-15”）将成为第二列，第二个值的国家最高最后一个日期将是第三列，依此类推。这只是最后一个值，而不是更早的日期。就像这里：


      startdate  GR  JP  IT US  CHN  BR
1   2019-03-01  800 600 400 340 400 300
2   2019-04-25  900 700 500 450 550 400
3   2019-05-25  700 400 350 100 450 450
4   2019-06-14  700 600 600 400 600 300
5   2019-07-14  600 500 600 500 200 450
6   2019-08-15  900 700 500 350 300 250

试图弄清楚两天了，却一无所获。请帮忙：）

罗纳克·沙

基本的R选项将是获取数据框的最后一行，并order根据其中的值获取它们。在订购时，我们将忽略该date列。

df[c(1, order(-df[nrow(df), -1]) + 1)]

#        date GER  JP  IT  US CHN  BR
#1 2019-03-01 800 600 400 340 400 300
#2 2019-04-25 900 700 500 450 550 400
#3 2019-05-25 700 400 350 100 450 450
#4 2019-06-14 700 600 600 400 600 300
#5 2019-07-14 600 500 600 500 200 450
#6 2019-08-15 900 700 500 350 300 250

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。