批量打印ggmaps
批量打印ggmaps
提问于 2018-04-11 09:00:35
考虑一个包含1,000张ggmaps的列表。让我们把这个列表称为maps。
如何将它们作为.png打印到工作目录中？
我为单个ggmap使用的代码是：
png(filename = "1.png",width=1000, height=1000)
m1<-ggmap(maps[[1]])
print(m1)
dev.off()我正在考虑使用lapply来做这样的事情：
lapply(maps, function (x) png(filename = "x.png", width=1000, height=1000) x
<-ggmap(maps[[x]]) print(x) dev.off() )或者for，
for (x in maps) { png(filename = "x.png", width=1000, height=1000)
x <-ggmap(maps[[x]]) print(x) dev.off()}然而，我觉得这是错误的，因为filename=的论点。由于引号，我不知道如何将列表的元素x赋值给它。
我不想中断R会话，必须终止它，因为它花费了大约两个小时的时间和我的API查询来获得1,000个ggmaps的列表。
回答 1
Stack Overflow用户
回答已采纳
发布于 2018-04-11 12:39:05
我按照建议使用了for和seq_along。最后，在包stringr的帮助下。
for (i in seq_along(maps)) {
filename <-str_c(i,".png")
png(filename = filename,width=1000, height=1000)
m <-ggmap(maps[[i]])
print(m)
dev.off()
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/49770829
复制相关文章
相似问题
腾讯云开发者
