R，循环中的替换长度错误

Question

所以我有这个循环，我在循环中创建一个新的数据帧（这似乎工作正常）。我还在数据框中创建了一个新列，因此我的前5个值附加了1-5值。 问题似乎是  Top5 $ Rang＆lt; - NA

当我为i的每个单独值运行代码时，但是当我执行循环时。然后我得到这个错误：     $<-.data.frame中的错误（*tmp*，＆＃34; Rang＆＃34;，值= 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)
}