Add ordered argument to lubridate::wday
wday(x, label = FALSE, abbr = TRUE, ordered = FALSE)Input date vector
Weekday as label (TRUE, FALSE)
Abbreviate label (TRUE, FALSE)
Order factor (TRUE, FALSE)
See the lubridate::wday() function in the lubridate package for additional details