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] } 이렇게 코드를 돌리면, 파일은 생기는데, 이미지는 저장되지 않습니다. 왜 그런건가요?

네이버 주식 크롤링 (1) 질문드립니다. b<-htmltab(url, encoding="UTF-8") 코드 입력하면  Argument 'which' was left unspecified. Choosing first table. 라고 에러가 나오면 어떡해야 하나요?

 new_age_group이 문자형으로 나오는데 왜 그런가요?

강의하는 데이터는 어디에서 구해야 하나요? 파일을 올려주시던지 url를 알려주셔야 실습을 할 수 있을 것 같습니다.