Предполагается, что ваши даты хранятся в фрейме данных:
dates_df$numbers <- rep(1:7, length.out = nrow(dates_df))
Функция rep (), которая будет реплицировать первый аргумент 1: 7 - Создает вектор последовательности от 1 до 7 length.out - Аргументэто будет повторять 1: 7, пока оно не станет length.out long nrow (date_df) - хотите, чтобы последовательность 1: 7 повторялась до такой же длины, как ваш вектор даты