R: tidytext: bronte: Difference between revisions
From OnnoCenterWiki
Jump to navigationJump 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) No edit summary |
||
| 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 04: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
