R: tidytext data frame

# 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)

Pranala Menarik

• R