Предполагается, что ваш язык говорит на английском языке.Это связано с тем, что встроенная переменная month.name
использует английские названия месяцев.
Прежде всего, создайте набор данных, поскольку вы его еще не опубликовали.
set.seed(1)
d <- seq(as.Date("2017-01-01"), Sys.Date(), by = "month")
mydata <- data.frame(orderdate = sample(d, 1e2, TRUE))
Теперь проблема.Обратите внимание, что order
является его собственным обратным, тот факт, что этот ответ использует.
library(dplyr)
library(lubridate)
result <- mydata %>%
count(months(as.Date(orderdate)))
inx <- order(month.name)
result[order(inx), ]