将每个facet_wrap写为单独的jpeg文件

Question

我有大约17个独特的商店名称。我希望编写一个函数，使得对于每个商店的每个facet_wrap，它应该分别编写一个图并将其保存为jpeg。 例如：该函数应该能够为variable vs value的每个商店编写jpeg。因此应该有17个这样的jpeg输出。

 df_melt = melt(df,id = c("Store", "series"))
    names = unique(df_melt$Store)
    df = fread('Book3.csv',sep = "auto")    
    ggplot(df_melt, aes(x=variable, y = value))+
          geom_path(aes(group=series, color = series))+
          geom_point(aes(color = series))+
          coord_cartesian()+
          theme(axis.text.x=element_text(angle=90,hjust=1,vjust=0.5))+
          facet_wrap(~Store,scales = "free_y")

names
 [1]  612 1074 1254 1541 1544 1710 1770 3887 4101 4149 4415 4940 6612 6646 6934 8582 8941

我希望我能够正确地提出我的问题。请各位成员帮帮我。