在R中输出wordcloud的函数？

问题描述

我有一个带几条鸣叫的df。我想创建一个函数，该函数可以根据放在函数中的特定单词来过滤推文，然后，在清除文本数据后，我希望输出结果是一个单词云，其中包含过滤数据中使用最多的单词。

这是我到目前为止所拥有的代码。

wordcloud_function <- function(x) {
  freq <- twitter2 %>% filter(str_detect(text_tolower,x))
  twt_txt_url2 <- rm_twitter_url(freq$text_tolower)
  twt_txt_chrs2  <- gsub("[^A-z]"," ",twt_txt_url2)
  twt_txt2 <- twt_txt_url2 %>% VectorSource %>% Corpus() 
  twt_corpus_stpwd2 <- tm_map(twt_txt2,removeWords,stopwords("english"))
  twt_corpus_final2 <- tm_map(twt_corpus_stpwd2,stripWhitespace)
  dtm2 <- TermDocumentMatrix(twt_corpus_final2)
  d2 <- dtm2$dimnames$Terms
  output3 <- wordcloud(d2,min.freq = 15,colors = c("#443A83FF","#2C728EFF","#20A486FF","#FDE725FF"),scale = c(3,0.5),random.order = FALSE,max.words=50)
  return(output3)
}

除wordcloud输出外，其他所有功能均正常运行。有谁知道如何使wordcloud作为函数的输出？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）