Проблемы с Wordcloud при использовании rtweet

Question

В настоящее время я пытаюсь получить облако слов в R со скриптом, который работал, когда я впервые использовал его. Сейчас я перепроверяю свой документ по уценке и получил следующую проблему:

Я работаю с rtweet, чтобы создать облако слов для количества твитов в специальной теме c.

tokenized_tweets <- tidy_tweets %>% select(status_id, text) %>% unnest_tokens(word, text)

custom_stopwords <- tibble(lexicon = "custom", word = c("t.co", "https"))

tokenized_tweets %>%
  anti_join(stop_words) %>%
  anti_join(custom_stopwords) %>%
  count(word) %>%
  with(wordcloud(word, n, max.words = 25))

Однако, когда я использую этот скрипт (который работал для меня), я получаю следующий вывод:

Joining, by = "word" Joining, by = "word «Ошибка в UseMethod (« as.quoted »): нет применимого метода для« as.quoted », примененного к объекту класса« function »

Спасибо за вашу помощь!

Answer 1

Для более легкой ссылки, найдите ниже воспроизводимый пример, созданный с reprex. Все работает просто отлично, и оно должно работать для вас в чистом сеансе R (перезапустите R, удалите все объекты и повторно запустите ваш код).

Глядя на ваше сообщение об ошибке, кажется, что в вашей рабочей области есть функция custom_stopwords ... рассмотрите возможность присвоения любого другого имени фрейму данных, который вы называете custom_stopwords.

library("rtweet")
library("tidytext")
library("tibble")
library("dplyr")
library("wordcloud")

tidy_tweets <- rtweet::search_tweets(q = "punk") 

tokenized_tweets <- tidy_tweets %>% select(status_id, text) %>%
  unnest_tokens(word, text)

custom_stopwords <- tibble(lexicon = "custom", word = c("t.co", "https"))

tokenized_tweets %>%
  anti_join(tidytext::stop_words) %>%
  anti_join(custom_stopwords) %>%
  count(word) %>%
  with(wordcloud(word, n, max.words = 25))
#> Joining, by = "word"
#> Joining, by = "word"

^{Создано в 2020-01-12 пакетом Представить (v0.3.0)}