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

Question

我正在尝试为 wordcloud2 图添加标题。我找到了一种添加标题的方法，但这确实让情节看起来很难看，因为空格太多了。

例如，这是一个数据框：

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%为cex = 1.5，200%为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')

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

add a title and remove whitespace from wordcloud2

r

word-cloud