将多个表格和图表的列表导出为pdf和Excel文件

问题描述

我有一个存储在数据框中的数据集。我从该数据集中生成2个矩阵和2个ggplots对象，然后将它们存储在列表中。在某些情况下，这些对象之一的输出为null。无论输出如何，我都很难将其保存为pdf文件（所有4个对象在一页上）。 文件结尾为空，大小为3kb。 “它可能已损坏或使用了预览无法识别的文件格式。”

请在我的代码下面找到：

audience_summary<-function(df){
  #cities<-unique(df$Account.name)
  cities=c('AMIENS','TOULOUSE','NANCY')
  do.call(file.remove,list(list.files("output/",full.names = TRUE)))
  list_pages<-list()
  counter=1
  for (i in cities){
    subset_df<-filter(df,Account.name==i)
    audience_list<-unique(subset_df$Ad.set.name)
    for (a in audience_list){
      subset_df1<-filter(subset_df,Ad.set.name==a)
      subset_post<-filter(subset_df1,medium=='post')
      subset_video<-filter(subset_df1,medium=='video')
      post_dataset<-NULL
      video_dataset<-NULL
      fig_post<-NULL
      fig_video<-NULL
      if(nrow(subset_post)>0){
        post_dataset<-audience_dataset(subset_post,months_list,'post')
        fig_post<-audience_plot(df,'post')
      }
      if(nrow(subset_video)>0){
        video_dataset<-audience_dataset(subset_video,'video')
        fig_video<-audience_plot(df,'video')
      }
      one_page<-list()
      one_page[[1]]<-fig_post
      one_page[[2]]<-post_dataset
      one_page[[3]]<-fig_video
      one_page[[4]]<-video_dataset
      revised_page<-list()
      page_counter<-1
      for (z in 1:length(one_page)){
        if (!is.null(one_page[[z]])){
          revised_page[[page_counter]]<-one_page[[z]]
          page_counter=page_counter+1
        } 
      }
      print(counter)
      #list_pages[[counter]]<-revised_page
      write_to_pdf(paste(a,'-',i),revised_page)
      counter=counter+1
    }
  }
  #return(list_pages)
  staplr::staple_pdf(input_directory='output',output_filepath=paste0('Summary_Analysis_',Sys.Date(),'.pdf'),overwrite=TRUE)
}
write_to_pdf<-function(filename,array_of_objects) {
  pdf(paste0('output/',filename,width=8,height=11)
  for (o in 1:length(array_of_objects)){
    print(array_of_objects[[o]])
  dev.off()
}
audience_results<-audience_summary(revised_filtered)

我希望在pdf页面上以及在Excel工作表上输出Revised_pa​​ge。 谢谢您的帮助。

---

请在下面找到数据集

summary(revised_filter)
 Ad.set.name        Account.name       Post.engagement.rate reported_date Platform         
 Length:30          Length:30          Min.   :0.001642     Length:30          Length:30         
 Class :character   Class :character   1st Qu.:0.152426     Class :character   Class :character  
 Mode  :character   Mode  :character   Median :0.318894     Mode  :character   Mode  :character  
                                       Mean   :0.346229                                          
                                       3rd Qu.:0.545346                                          
                                       Max.   :0.714029      

---

更新 我已经找到了pdf的解决方案，但仍然希望为出口到excel寻求解决方案

解决方法

我能够解决有关创建pdf文件的问题。 我最终从库ggpubr中使用了ggpubr :: ggarrange（plotlist = revised_pa​​ge） if（typeof（object）=='character'，那是一个矩阵表，我用ggtexttable（object）。 该链接非常有用。 http://www.sthda.com/english/articles/24-ggpubr-publication-ready-plots/81-ggplot2-easy-way-to-mix-multiple-graphs-on-the-same-page/

page_counter<-1
      for (z in 1:length(one_page)){
        if (is.null(one_page[[z]])){}
        else{
          if(typeof(one_page[[z]])=='character'){
            revised_page[[page_counter]]<-ggtexttable(one_page[[z]],theme = ttheme("mOrange"))
          }
          if(typeof(one_page[[z]])[1]=='list'){
           revised_page[[page_counter]]<-one_page[[z]]
          }
          page_counter=page_counter+1
        } 
      }
      numberofiems<-length(revised_page)
      output_page<-ggarrange(plotlist=revised_page,ncol=1,nrow=numberofiems)
      print(counter)
      list_pages[[counter]]<-output_page
      write_to_pdf2(paste(a,'-',i),output_page)

我简化了pdf函数来处理我的代码

write_to_pdf2<-function(filename,one_page){
  pdf(paste0('output/',filename,'.pdf'),width=8,height=12)
  print(one_page)
  dev.off()
}