(DF <- data.frame(DATE =
seq.Date(Sys.Date()-10,Sys.Date(),by = 1)))
DF$day_of_week <- wday(DF$DATE)
DF$day_of_week_name <- c("Sunday",
"Monday",
"Tuesday",
"Wednesday",
"Thursday",
"Friday",
"Saturday"
)[DF$day_of_week]
DF
DATE day_of_week day_of_week_name
1 2021-05-25 3 Tuesday
2 2021-05-26 4 Wednesday
3 2021-05-27 5 Thursday
4 2021-05-28 6 Friday
5 2021-05-29 7 Saturday
6 2021-05-30 1 Sunday
7 2021-05-31 2 Monday
8 2021-06-01 3 Tuesday
9 2021-06-02 4 Wednesday
10 2021-06-03 5 Thursday
11 2021-06-04 6 Friday