Difference between revisions of "R: tidytext: bronte"
Jump to navigation
Jump to search
Onnowpurbo (talk | contribs) (Created page with "# Ref: https://github.com/dgrtwo/tidy-text-mining/blob/master/01-tidy-text.Rmd library(knitr) opts_chunk$set(message = FALSE, warning = FALSE, cache = TRUE) options(width = 1...") |
Onnowpurbo (talk | contribs) |
||
| Line 1: | Line 1: | ||
| − | # Ref: https://github.com/dgrtwo/tidy-text-mining/blob/master/01-tidy-text.Rmd | + | # Ref: https://github.com/dgrtwo/tidy-text-mining/blob/master/01-tidy-text.Rmd |
| − | library(knitr) | + | library(knitr) |
| − | opts_chunk$set(message = FALSE, warning = FALSE, cache = TRUE) | + | opts_chunk$set(message = FALSE, warning = FALSE, cache = TRUE) |
| − | options(width = 100, dplyr.width = 100) | + | options(width = 100, dplyr.width = 100) |
| − | library(ggplot2) | + | library(ggplot2) |
| − | theme_set(theme_light()) | + | theme_set(theme_light()) |
| − | library(dplyr) | + | library(dplyr) |
| − | library(stringr) | + | library(stringr) |
| − | bronte <- gutenberg_download(c(1260, 768, 969, 9182, 767)) | + | bronte <- gutenberg_download(c(1260, 768, 969, 9182, 767)) |
| − | tidy_bronte <- bronte %>% | + | tidy_bronte <- bronte %>% |
| − | + | unnest_tokens(word, text) %>% | |
| − | + | anti_join(stop_words) | |
| − | tidy_bronte %>% | + | tidy_bronte %>% |
| − | + | count(word, sort = TRUE) | |
Latest revision as of 11:03, 2 December 2019
# Ref: https://github.com/dgrtwo/tidy-text-mining/blob/master/01-tidy-text.Rmd
library(knitr) opts_chunk$set(message = FALSE, warning = FALSE, cache = TRUE) options(width = 100, dplyr.width = 100) library(ggplot2) theme_set(theme_light()) library(dplyr) library(stringr)
bronte <- gutenberg_download(c(1260, 768, 969, 9182, 767))
tidy_bronte <- bronte %>% unnest_tokens(word, text) %>% anti_join(stop_words)
tidy_bronte %>% count(word, sort = TRUE)
Referensi