表达式无法在函数内找到对象

Question

如果在函数外部运行，下面的代码可以正常工作 - 所有内容都被正确评估，并且比较云可以转换为 ggplot。但是，当我想将其作为函数运行时，表达式无法再找到函数内定义的变量（例如，term.matrix）。

我已经尝试了一系列与 expression() bquote() expr() 等的组合，但未能找到解决方案。

谁能帮助我吗？

library(tm)
library(ggplotify)
library(wordcloud)
library(ggplot2)

cloud_as_ggplot <- function(){
  
  data(SOTU)
corp <- SOTU
corp <- tm_map(corp, removePunctuation)
corp <- tm_map(corp, content_transformer(tolower))
corp <- tm_map(corp, removeNumbers)
corp <- tm_map(corp, function(x)removeWords(x,stopwords()))

term.matrix <- TermDocumentMatrix(corp)
term.matrix <- as.matrix(term.matrix)
colnames(term.matrix) <- c("SOTU 2010","SOTU 2011")

cloud <- expression(
  comparison.cloud(term.matrix,
                   max.words=40,
                   random.order=FALSE,
                   match.colors=TRUE))

title <- "as.ggplot is working"

ggplotify::as.ggplot(cloud) + 
  labs(title = title)
}

cloud_as_ggplot()

Answer 1

这是旧的，但我有一个类似的问题，最终发现了这个： https: //github.com/GuangchuangYu/ggplotify/issues/6#issuecomment-533442229，这为我解决了这个问题。

以下是上面的代码，无需向全局环境分配任何内容：

library(tm)
#> Loading required package: NLP
library(ggplotify)
library(wordcloud)
#> Loading required package: RColorBrewer
library(ggplot2)
#> 
#> Attaching package: 'ggplot2'
#> The following object is masked from 'package:NLP':
#> 
#>     annotate

cloud_as_ggplot <- function(){
  
  data(SOTU)
  corp <- SOTU
  corp <- tm_map(corp, removePunctuation)
  corp <- tm_map(corp, content_transformer(tolower))
  corp <- tm_map(corp, removeNumbers)
  corp <- tm_map(corp, function(x)removeWords(x,stopwords()))
  
  term.matrix <- TermDocumentMatrix(corp)
  term.matrix <- as.matrix(term.matrix)
  colnames(term.matrix) <- c("SOTU 2010","SOTU 2011")
  
  title <- "as.ggplot is working"
  
  ggplotify::as.ggplot(
    function() comparison.cloud(term.matrix, max.words=40, random.order=FALSE, match.colors=TRUE)
  ) + 
    labs(title = title)
}

cloud_as_ggplot()

Answer 2

我认为这是与 Comparison.cloud 获取参数的环境有关的问题。它似乎是 .GlobalEnv 而不是由 cloud_as_ggplot() 创建的。

您可以通过将 term.matrix 设置为全局变量来“修复”它，最后您可以删除它。对于我来说，它有点脏，但很有效。

library(tm)
library(ggplotify)
library(wordcloud)
library(ggplot2)

cloud_as_ggplot <- function(){
  
  data(SOTU)
  corp <- SOTU
  corp <- tm_map(corp, removePunctuation)
  corp <- tm_map(corp, content_transformer(tolower))
  corp <- tm_map(corp, removeNumbers)
  corp <- tm_map(corp, function(x)removeWords(x,stopwords()))
  
  term.matrix <<- TermDocumentMatrix(corp)
  term.matrix <<- as.matrix(term.matrix)
  colnames(term.matrix) <- c("SOTU 2010","SOTU 2011")
  
  cloud <- expression(
    comparison.cloud(term.matrix,
                     max.words=40,
                     random.order=FALSE,
                     match.colors=TRUE))
  
  
  
  title <- "as.ggplot is working"
  p<-ggplotify::as.ggplot(cloud) + 
    labs(title = title)
  rm(term.matrix,envir=.GlobalEnv)
  p
}

cloud_as_ggplot()