R, ошибка длины замены в цикле

Question

Итак, у меня есть этот цикл, в котором я создаю новый фрейм данных, находясь в цикле (кажется, что он работает нормально). Я также создаю новый столбец в фрейме данных, чтобы к моим лучшим 5 значениям присваивалось значение 1-5. Проблема, кажется, заключается в Top5 $ Rang <- NA </p>

Не когда я запускаю код для каждого отдельного значения i, а когда я делаю цикл. И тогда я получаю эту ошибку: Ошибка в $<-.data.frame (*tmp*, «Rang», значение = NA): замена имеет 1 строку, данные имеют 0

Кто-нибудь может увидеть, что мне не хватает? Это цикл:

for (i in Komnr){
    Top <- filter(pendling, Komnr==i) 
    Top5 <- Top %>% top_n(5) 

    write.table(Top5)

    Top5$Rang <- NA
    Top5$Rang <- 1:nrow(Top5)

    write.table(Top5)
}