R rep seq, gdzie liczba wierszy nie jest wielokrotnością długości seq

Mam ramkę danych z 1666 wierszami. Chciałbym dodać kolumnę z powtarzającą się sekwencją