Создать вектор на неделю и год

Question

Мне нужно создать вектор для дней года (1-365), а затем назначить ему дни недели, начиная с понедельника.Я могу сделать первую часть, но не могу понять, как объединить дни недели (понедельник, вторник ...) с ними, чтобы они повторялись в течение года при печати:

all.days = c(1:365)
days.week = (days=c("Monday", "Tuesday", "Wednesday", "Thursday",
"Friday", "Saturday","Sunday")

Answer 1

Это дает вектор, который имеет длину 365 и начинается с понедельника и дает последовательные дни недели. Он основан на том факте, что 2018-01-01 - понедельник.

all.days <- 1:365
format(as.Date("2018-01-01") + all.days - 1, "%A")

дает:

[1] "Monday"    "Tuesday"   "Wednesday" "Thursday"  "Friday"    "Saturday" 
[7] "Sunday"    "Monday"    "Tuesday"   "Wednesday" "Thursday"  "Friday"   
[13] "Saturday"  "Sunday"    "Monday"    "Tuesday"   "Wednesday" "Thursday" 
... etc ...