有没有办法在quanteda中为这个词云添加标题?

Is there a way to add a title to this word cloud in quanteda?

library(quanteda)
library(quanteda.textplots)

corpus_subset(data_corpus_inaugural, 
              President %in% c("Washington", "Jefferson", "Madison")) %>%
    tokens(remove_punct = TRUE) %>%
    tokens_remove(stopwords("english")) %>%
    dfm() %>%
    dfm_group(groups = President) %>%
    dfm_trim(min_termfreq = 5, verbose = FALSE) %>%
    textplot_wordcloud(comparison = TRUE)

我正在尝试为该情节添加标题,例如“我的第一个情节”。有没有办法为这个情节添加标题?我在文档中看不到方法,但也许有办法?

textplot_wordcloud 使用基本的 R 图形引擎来创建绘图。这意味着您可以使用图形命令来调整某些词云功能。

创建词云后,您可以使用titlemtext为您的词云添加标题。我使用 mtext 是因为它可以更好地控制将文本放置在绘图上的位置。使用 title 会将文本绘制在“Jefferson”上。

corpus_subset(data_corpus_inaugural, 
              President %in% c("Washington", "Jefferson", "Madison")) %>%
    tokens(remove_punct = TRUE) %>%
    tokens_remove(stopwords("english")) %>%
    dfm() %>%
    dfm_group(groups = President) %>%
    dfm_trim(min_termfreq = 5, verbose = FALSE) %>%
    textplot_wordcloud(comparison = TRUE)

mtext("my first wordcloud",
      side=3, 
      line=3, 
      at=-0.07, 
      adj=0, 
      cex=1)