Difference between revisions of "R: tidytext data frame"
Jump to navigation
Jump to search
Onnowpurbo (talk | contribs) (Created page with " # text asli # text <- c("Because I could not stop for Death -", "He kindly stopped for me -", "The Carriage held but just Ourselves -", "a...") |
Onnowpurbo (talk | contribs) |
||
| Line 13: | Line 13: | ||
text_df <- data_frame(line = 1:4, text = text) | text_df <- data_frame(line = 1:4, text = text) | ||
text_df | text_df | ||
| + | |||
| + | |||
| + | # konversi menjadi token | ||
| + | # | ||
| + | library(tidytext) | ||
| + | text_df %>% | ||
| + | unnest_tokens(word, text) | ||
Revision as of 09:23, 6 November 2018
# text asli
#
text <- c("Because I could not stop for Death -",
"He kindly stopped for me -",
"The Carriage held but just Ourselves -",
"and Immortality")
text
# konversi ke data fame # library(dplyr) text_df <- data_frame(line = 1:4, text = text) text_df
# konversi menjadi token # library(tidytext) text_df %>% unnest_tokens(word, text)