DATA_1 % mutate(method = "SimplePos22") ) %>% ggplot(aes(x = reorder(Var1, Freq), y = Freq, fill = method)) + geom_bar(stat = "identity", colour = "red") + facet_wrap(~ method, nrow = 1, scales = "free") + coord_flip() + labs(x = "Words", y = "Freq") 같은 내용을 R에서 명사추출로 가장 많이 사용하는 extractNoun, SimplePos를 활용하여 추출 결과가 어떻게 다른지 살펴볼 수 있는 시각화 자료 생성 가능 코드