按一列排序，按另一列排序

Question

我必须对数据帧DF1 进行排序

DF1

LC        Day 
1    RM11 2019-02-18    
2    WK15 2019-02-18    
3    AS17 2019-02-19    
4    WK14 2019-02-19
5    RM11 2019-02-19    
6    WK15 2019-02-20
7    AS17 2019-02-22   
8    WK14 2019-02-22   

在这里，我想按列"LC"&按列"天"排名

输出应为：

LC        Day  Rank
1    RM11 2019-02-18   1  
2    WK15 2019-02-18   1
3    AS17 2019-02-19   1
4    WK14 2019-02-19   1
5    RM11 2019-02-19   2 
6    WK15 2019-02-20   2
7    AS17 2019-02-22   2  
8    WK14 2019-02-22   2

我试过下面的代码，但它给了我整数的排名：

> workingday = as.data.frame(workingday %>% group_by(LC) %>%
+                               mutate(rank = rank(Day)) %>%
+                               arrange(Day))

有人能帮我写一些其他代码吗？

Answer 1

您可以像一样使用ave

x$Rank <- ave(unclass(as.Date(x$Day)), x$LC, FUN=order)
x
#    LC        Day Rank
#1 RM11 2019-02-18    1
#2 WK15 2019-02-18    1
#3 AS17 2019-02-19    1
#4 WK14 2019-02-19    1
#5 RM11 2019-02-19    2
#6 WK15 2019-02-20    2
#7 AS17 2019-02-22    2
#8 WK14 2019-02-22    2

Answer 2

使用data.table

library(data.table)
setDT(workingday)[, Rank := frank(as.IDate(Day)), by = LC]

Answer 3

workingday %>%
group_by(LC) %>%
mutate(Rank = rank(as.Date(Day)))