批量打印ggmaps

Question

考虑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 Session并且必须终止它，因为它花了大约两个小时来我的API查询以获得1,000 ggmaps的列表。

Answer 1

我建议使用for和seq_along。最后在包stringr。

的帮助下

＆＃13;

＆＃13;

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()

＆＃13;

＆＃13;

＆＃13;