R Tidytext unnest_tokens ошибка при использовании TXT-файла в качестве источника

Question

Очень новичок в этом топи c. У меня проблемы с функцией unnest_tokens в пакете tidytext. У меня есть несколько текстов в формате .txt, которые я хочу проанализировать.

Примером было бы поместить следующие предложения в текстовый файл и затем прочитать его в R:

Emily Dickinson wrote some lovely text in her time.

text <- c("Because I could not stop for Death -",
          "He kindly stopped for me -",
          "The Carriage held but just Ourselves -",
          "and Immortality")

Ниже мой код:

library(dplyr)
library(tidytext)
library(readtext)
my_data <- read_file("exp.txt")
my_data_tibble <- tibble(text = my_data)
my_data_tibble %>% 
  unnest_tokens(word, my_data)

Тогда я бы получите сообщение об ошибке ниже:

Error in check_input(x) : 
  Input must be a character vector of any length or a list of character
  vectors, each of which has a length of 1.

У кого-нибудь есть решение моей проблемы? Заранее спасибо!

Answer 1

Первый вход - это имя столбца выходного столбца, который вы хотите, а второй - это входной.

library(tidytext)

my_data_tibble %>% unnest_tokens(word, text)

# A tibble: 20 x 1
#   word       
#   <chr>      
# 1 because    
# 2 i          
# 3 could      
# 4 not        
# 5 stop       
# 6 for        
# 7 death      
# 8 he         
#...
#....