按行中的行數值排列數據，並按列中的值排序R

我有六隻鸚鵡鳥，"Beefy", "Scoundrel", "Baston", "Mattdamon", "Jesus", and "Hulkhogan"。這些鳥在很多不同的地方都會嘔吐。我已經決定追蹤過去兩週內這種情況發生的頻率，我試圖弄清楚今天這些小惡魔在哪裏發生的事情。按行中的行數值排列數據，並按列中的值排序R

mydata <- data.frame(Dates = structure(c(16656, 16657, 16658, 16659, 
             16660, 16661, 16662, 16663, 
             16664, 16665, 16666, 16667, 
             16668, 16669 
             ), 
             class = "Date"), 
        PooLoc1 = sample(1:40, 7), 
        PooLoc2 = sample(1:10, 7), 
        PooLoc3 = sample(1:10, 7), 
        PooLoc4 = sample(1:30, 7), 
        PooLoc5 = sample(1:20, 7), 
        PooLoc6 = sample(1:70, 7) 
) 

head(mydata) 
    Dates PooLoc1 PooLoc2 PooLoc3 PooLoc4 PooLoc5 PooLoc6 
2015-08-09  24  3  9  1  16  45 
2015-08-10  39  2  2  12  12  2 
2015-08-11  14  7  6  5  19  4 
2015-08-12  26  9  8  27  3  64 
2015-08-13  20  4  1  15  20  48 
2015-08-14  9  1  4  8  8  61

我可以爲了mydata行柱日期很容易地找到今天的普斯像這樣：

mydata <- mydata[order(mydata[["Dates"]], decreasing = TRUE), ]

但我怎麼通過今天的日期獲得這樣我就可以立馬值排序列在mydata的左上角找到我的問題的答案？你能做到一行嗎？

來源

2015-08-23 r3robertson

我認爲這可能是你想要的。我們只需在第一行中排列列（第二個到結尾）。

mydata[, c(1, order(mydata[1, -1], decreasing = TRUE) + 1)] 
#  Dates PooLoc6 PooLoc1 PooLoc4 PooLoc5 PooLoc3 PooLoc2 
# 6 2015-08-14  61  9  8  8  4  1 
# 5 2015-08-13  48  20  15  20  1  4 
# 4 2015-08-12  64  26  27  3  8  9 
# 3 2015-08-11  4  14  5  19  6  7 
# 2 2015-08-10  2  39  12  12  2  2 
# 1 2015-08-09  45  24  1  16  9  3

現在左上角的值是今天日期的最高值。

而且每個註釋中的要求，我們可以用

mydata[ 
    order(mydata$Dates, decreasing = TRUE), 
    c(1, order(mydata[1, -1], decreasing = TRUE) + 1) 
]

來源

2015-08-23 01:07:28

由於訂購一個呼叫的行和列！是否可以在一行中進行列排序和日期排序？ – r3robertson

是的，只要把你的日期順序調用放在逗號左邊，列順序在右邊，像這樣 - 'mydata [order（mydata $ Dates，decrease = TRUE），c（1，order（mydata [1 ，-1]，遞減= TRUE）+ 1）]' –

按行中的行數值排列數據，並按列中的值排序R

回答

相關問題