添加标题并从wordcloud2中删除空白

Question

我试图在wordcloud2图中添加一个标题。我找到了一种添加标题的方法，但它确实使情节看起来很难看，因为空格太大了。

例如，下面是一个dataframe：

df <- structure(list(key = c("Hello", "Okay", "Apple", "Orange", "Cheerios", 
"Today", "Tomorrow", "Water", "Steve", "Basket"), count = c(52L, 
51L, 25L, 21L, 20L, 12L, 12L, 12L, 11L, 9L)), row.names = c(57L, 
53L, 20L, 36L, 18L, 3L, 16L, 50L, 13L, 15L), class = "data.frame")

我成功地在htmlwidgets::prependContent中添加了一个标题，但是，这里的空格太多了。我能做些什么来使这个看起来更好并去掉空白呢？

library(wordcloud2)

wordcloud2(data = df, size=.5, color='random-dark') %>% 
htmlwidgets::prependContent(htmltools::tags$h1("Title")) 

​

​

Answer 1

我在自己的wordcloud上尝试了下面的代码(不幸的是，我没有使用wordcloud2，但我希望这个函数也能工作)。

使用 cex 放大字体，即150% is cex = 1.5,200% is cex=2

## codes for creating canvas for the text (placeholder)
layout(matrix(c(1, 2), nrow=2), heights=c(1, 4))
par(mar=rep(0, 4))
plot.new()
text(x = 0.5, y = 0.5, "The intended title", cex = 1.5, font = 2)

## then your wordcloud
wordcloud2(data = df, size=.5, color='random-dark')