添加日期和时间到wordcloud图

Question

我整天都在运行一个循环，在执行过程中，它会保存不同的wordcloud图形。我需要在图表底部，脚注甚至副标题中包含或添加时间。

以下是我的代码结构的基本示例：

jpeg(paste("C:/Users/,
i,format(Sys.time(), "_%d-%m-%y %H-%M"), ".jpg", sep=""),
width=5, height=5, units="in",  res=1300)

w=wordcloud(dm$word, dm$freq, min.freq=25, random.order = F, 
colors = sample(colors()[3:79]))
print(w)
dev.off()

我确实试过

title(paste(Sys.time()))

但没有工作

Answer 1

尝试调整此代码：

library("tm")
library("wordcloud")
x<-"Nel mezzo del cammin di nostra vita mi ritrovai per una selva oscura, ché la diritta via era smarrita."

x<-unlist( strsplit(gsub("[[:punct:]]", '', x), "\ ")) 

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, Sys.time())
wordcloud(x, main="Title")

示例改编自此前post