R：为文字云图形/png添加标题

我有一些有效的 R 代码，可以从术语文档矩阵生成标签云。

现在，我想从许多文档创建一大堆标签云，并在稍后进行可视化检查。 要知道标签云图片属于哪个文档/语料库，我想为生成的图形添加标题。我怎么做？

也许这是显而易见的，但我仍然是 R 图形的初学者。

我自己的语料库太大，无法在此处列出，但是可以使用此 SO 问题的代码（与 SO 用户 Andrie 接受的答案中的代码相结合）：词云中的空格 https://stackoverflow.com/questions/8069571/spaces-in-wordcloud我想向图片添加自定义标题和更多自定义文本，例如this https://i.stack.imgur.com/ziPvP.png

The wordcloud()函数填充了整个绘图。这意味着您需要在绘图之前在图形设备上为标题预留空间。

Since wordcloud利用基本图形，您可以使用以下任一方法来执行此操作par(mfrow=...) or layout()。然后创建绘图标题text().

我用以下例子来说明layout()，调整示例?wordcloud:

library(tm)
library(wordcloud)

x <- "Many years ago the great British explorer George Mallory, who 
was to die on Mount Everest, was asked why did he want to climb 
it. He said, \"Because it is there.\"

Well, space is there, and we're going to climb it, and the 
moon and the planets are there, and new hopes for knowledge 
and peace are there. And, therefore, as we set sail we ask 
God's blessing on the most hazardous and dangerous and greatest 
adventure on which man has ever embarked."

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, "Title of my first plot")
wordcloud(x, main="Title")

这会生成：