将多个图保存在函数内部的一个pdf中

编程问答 2022-08-15

问题描述

在这里，我使用函数AD.graph绘制了大约300次的两个不同的图。通常，我只是在函数中添加一个ggsave，它将保存所有这600个图形，每个材质2个（Plot_AD和Plot_QTY）。但我想将每种材料的图保存在一个pdf中。因此300 pdf的变量名各有两个图。我编写了这段代码，但没有任何反应。所以我希望你们能提供帮助。

AD.graph <- function(df,na.rm = T,...) {
  
  variable <- unique(T_AD$Material)

  for (i in seq_along(variable)) {
    
    
    plot_AD <- ggplot(subset(T_AD,T_AD$Material == variable[i]),aes(
                        x = "Name Sales Representative",y = n,fill = Timeline)) +
      geom_bar(stat = "identity",position = "stack") +
      scale_fill_manual(brewer.pal(3,"BuGn"))
    ggtitle("variable[i]") +
      coord_flip()
    
    
    plot_QTY <- ggplot(subset(T_QTY,T_QTY$Material == variable[i]),aes(Month,QTY,group=Year,colour=Year)) +
      geom_point(size = 2) +
      geom_line(size = 1) +
      expand_limits(y = 0) +
      ggtitle(variable[i])
    
    pdf("variable[i].pdf")
    print(plot_QTY)
    print(plot_AD)
    dev.off()
  }
  
}

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

mergepdfplotrrsave