R: sentiments analysis: Difference between revisions
From OnnoCenterWiki
Jump to navigationJump to search
Onnowpurbo (talk | contribs) Created page with " library(tidytext) sentiments ==Pranala Menarik== * R" |
Onnowpurbo (talk | contribs) No edit summary |
||
| Line 5: | Line 5: | ||
get_sentiments("afinn") | |||
get_sentiments("bing") | |||
get_sentiments("nrc") | |||
library(janeaustenr) | |||
library(dplyr) | |||
library(stringr) | |||
tidy_books <- austen_books() %>% | |||
group_by(book) %>% | |||
mutate(linenumber = row_number(), | |||
chapter = cumsum(str_detect(text, regex("^chapter [\\divxlc]", | |||
ignore_case = TRUE)))) %>% | |||
ungroup() %>% | |||
unnest_tokens(word, text) | |||
==Pranala Menarik== | ==Pranala Menarik== | ||
* [[R]] | * [[R]] | ||
Revision as of 09:56, 8 November 2018
library(tidytext) sentiments
get_sentiments("afinn")
get_sentiments("bing")
get_sentiments("nrc")
library(janeaustenr) library(dplyr) library(stringr)
tidy_books <- austen_books() %>%
group_by(book) %>%
mutate(linenumber = row_number(),
chapter = cumsum(str_detect(text, regex("^chapter [\\divxlc]",
ignore_case = TRUE)))) %>%
ungroup() %>%
unnest_tokens(word, text)
