R如何使用Lappy保存xts绘图
我正在与一些议会文本copra合作,并试图将一些结果可视化。因为我得到了一个项目列表,所以我尝试使用lappy来迭代我的列表R如何使用Lappy保存xts绘图,r,plot,lapply,xts,R,Plot,Lapply,Xts,我正在与一些议会文本copra合作,并试图将一些结果可视化。因为我得到了一个项目列表,所以我尝试使用lappy来迭代我的列表 keywords <- c("inburgering", "inburgeringscursus", "inburgeringsplicht", "kennismigranten", "gezinshereniging",
keywords <- c("inburgering",
"inburgeringscursus",
"inburgeringsplicht",
"kennismigranten",
"gezinshereniging",
"gezinsvorming",
"Vreemdelingenwet")}
非常感谢您的帮助。我解决了它。您必须将其设置为打印:
print(plot(ts_adj,
main=keyword,
multi.panel = TRUE,
col = c("black", "black", "blue", "green", "red", "yellow"),
lwd=6,
cex = 1.5,
las = 1))
dev.off()
似乎一切都按预期进行,也许您提供的路径有问题。如果你试图在课程中直接画出一个关键词,你会得到什么?@Cath我同意,我没有充分阅读这个问题。
lapply(keywords, function(keyword){
disp <- dispersion(corpus_in_use, query = keyword, sAttribute = c("date", "party"))
ts <- xts(x = disp[,c("CDA", "PVV", "VVD", "PvdA", "D66", "GL")],
order.by = as.Date(sprintf("%s-01-01", disp[["date"]])))
#ts_adj <- aggregate(ts, as.Date(sprintf("%s-01-01", gsub("^(\\d{4})-.*?$", "\\1", index(ts)))))
ts_adj <- as.xts(aggregate(ts, as.Date(as.yearmon(index(ts)))))
jpeg(
filename = paste("/Users/simgeh/Downloads/", keyword, ".jpg", sep=""),
width = 4000, height = 2400,
res = NA
)
plot(ts_adj,
main=keyword,
multi.panel = TRUE,
col = c("black", "black", "blue", "green", "red", "yellow"),
lwd=6,
cex = 1.5,
las = 1)
dev.off()
})
print(plot(ts_adj,
main=keyword,
multi.panel = TRUE,
col = c("black", "black", "blue", "green", "red", "yellow"),
lwd=6,
cex = 1.5,
las = 1))
dev.off()