작성자 없음
작성자 정보가 삭제된 글입니다.
작성
·
233
0
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]
}
이렇게 코드를 돌리면, 파일은 생기는데, 이미지는 저장되지 않습니다. 왜 그런건가요?