R 将每个面作为单独的jpeg文件写入

我有大约17个独特的店名。我希望编写一个函数，这样对于每个存储的每个方面，它应该分别编写一个绘图并将其保存为jpeg。 例如：函数应该能够为

变量

vs

值

的每个存储写入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

---

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

我不确定分割镶嵌面包裹对象的功能是否已经开发或实现。不过，您的问题还有解决办法，例如，如果向facet_wrap nrow=1、ncol=1提供一个参数，则会使每个facet显示在单个页面上。您需要使用能够接受多页输出的图形设备。我认为JPEG不符合这一要求，所以考虑PDF或TIFF。@ 42——不会<代码> FAXETHORD（~，NoRE，NROC= 1，NCOL＝1）< /Cord>导致“错误：NRO*NCOL*= n不是真的”？这回答了你的问题吗？我不确定是否已经开发或实现了拆分facet_wrap对象的功能。不过，您的问题还有解决办法，例如，如果向facet_wrap nrow=1、ncol=1提供一个参数，则会使每个facet显示在单个页面上。您需要使用能够接受多页输出的图形设备。我认为JPEG不符合这一要求，所以考虑PDF或TIFF。@ 42——不会<代码> FAXETHORD（~，NoRE，NROC= 1，NCOL＝1）< /Cord>导致“错误：NRO*NCOL*= n不是真的”？这回答了你的问题吗？