В моем каталоге есть ряд файлов, которые выглядят так:
Title A.txt
Title A.txt
Title A.txt
Title A.txt
Title A.txt
Title B.txt
Title B.txt
Title B.txt
мой код для предварительной обработки выглядит следующим образом:
all <- readtext("*.txt")
tidy.all <- all %>%
unnest_tokens(word, text) %>%
anti_join(stop_words)%>%
mutate(party = ifelse(doc_id %in% "A", "a", "b"))
проблема возникает с функцией mutate, когда Я пытаюсь добавить новый столбец, он возвращает только значения else для всего фрейма данных, и я не знаю, почему он это делает. Я попытался применить ту же функцию на austen_books и там она работает. Я даже изменил переменную doc_id на факторы, но безрезультатно.
library(janeaustenr)
books <- austen_books() %>%
mutate(party = ifelse(book %in% "Sense & Sensibility", "a", "b"))