Вы можете использовать desc()
из dplyr
library(dplyr)
data <- expand.grid(date = seq.Date(Sys.Date() - days(10), Sys.Date(), "days"),
string1 = diamonds$color %>% levels() %>% unique(),
string2 = diamonds$cut %>% levels() %>% unique()
)
data %>%
arrange(desc(date), string1, string2)