LDA 이미지 저장

for (i in 8:12) {

                q_lda <- LDA(dtm, k=i) 

                q_topics <- tidy(q_lda, matrix="beta")

                q_top_terms <- q_topics %>%

                                group_by(topic) %>%

                                top_n(15, beta) %>%

                                ungroup() %>%

                                arrange(topic, -beta)

                q_top_terms$term<-repair_encoding(q_top_terms$term)

                tau<-tapply(q_top_terms$term,q_top_terms$topic,table)

                png(paste0("nate",i,".png"),width=500,height = 500)

                q_top_terms %>%

                                mutate(term=reorder(term, beta)) %>%

                                ggplot(aes(term, beta, fill=factor(topic))) +

                                geom_col(show.legend=FALSE) +

                                facet_wrap(~ topic, scales="free") +

                                coord_flip() +

                                theme(axis.text.y=element_text(family="HYGothic-Extra"))

                dev.off()

                key<-c(sapply(tau,names))

                key_list[[i]]<-key[!key %in% stw]

}

이렇게 코드를 돌리면, 파일은 생기는데, 이미지는 저장되지 않습니다. 왜 그런건가요?