автоматизация сохранения нескольких графиков

Question

Мне нужно создать 170 графиков. Когда я пытаюсь автоматизировать сохранение всех графиков, только первые появляются с правой графикой, другие - пустыми.

df <- read.csv("Full_data.csv", header = TRUE) 
all.station <- as.vector(unique(df$Station)) 
for (i in 1:10) { 
df.sub <- subset(df, df$Station == all.station[i]) 
df.1 <- df.sub[1:3, ] 
v <- df.1[1,1] 
z <- df.1[1, 3] 
u <- df.sub[6, 3] 

p1 = ggplot(...) 
p2 = ggplot(...) 
p3 = ggplot(...) 
grid.arrange(p1, p2, p3, ncol = 3) 
f.name <- paste(v, ".png", sep = "") 
png(f.name) 
ggsave(f.name, width=3.5, height=5, units = c("in"), dpi=100) 

} 
dev.off() 

Когда я делаю это вручную, все они отлично работали в команде экспорта в окне графика. Я попытался использовать метод в кулинарной книге, но он работает только для первого графика. Любое предложение о том, что я делаю неправильно?

Answer 1

я смог через исследования (матовые, чтобы узнать, что ggsave не работаю с grid.arrange

, так что я должен был использовать это, что работает отлично:.

f.name <- paste(v, ".png", sep = "") + 
    png(f.name) + 
    grid.arrange(p1, p2, p3, ncol = 3) 
    dev.off() 
    }