将日期和时间添加到 wordcloud plot
Add date and time to wordcloud plot
我运行整天都是一个循环，在执行过程中，它保存了不同的词云图。我需要在图表底部、脚注甚至副标题中包含或添加时间。
这是我的代码结构的基本示例：
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()))
但没用
尝试修改此代码：
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
我运行整天都是一个循环，在执行过程中，它保存了不同的词云图。我需要在图表底部、脚注甚至副标题中包含或添加时间。
这是我的代码结构的基本示例：
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()))
但没用
尝试修改此代码：
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")