将大数据框导出为 pdf 文件

Question

我想将我的数据框导出为 pdf 文件。数据框非常大，因此在导出时会导致问题。我使用了此处指定的 gridExtra 包将数据框写入 pdf 表，但它不适用于我的数据框，因为它包含大量数据。

任何想法如何实现？

代码：

library(gridExtra)
df <- data.frame(replicate(10,sample(0:1,1000,rep=TRUE)))

pdf(file = "df2.pdf")

grid.table(df)
dev.off()

Answer 1

@Baqir，您可以尝试此链接上给出的解决方案：https ://thusithamabotuwana.wordpress.com/2016/01/02/creating-pdf-documents-with-rrstudio/

它会是这样的：

    library(grid)    
    library(gridExtra)  
    df <- data.frame(replicate(10,sample(0:1,1000,rep=TRUE)))    
    dim(df)  
    maxrow = 35   
    npages = ceiling(nrow(df)/maxrow)      
    pdf("test.pdf", height = 11, width = 8.5)  
    idx = seq(1, maxrow)  
    grid.table(df[idx,],rows = NULL)  
    for(i in 2:npages){
      grid.newpage();
      if(i*maxrow <= nrow(df)){
      idx = seq(1+((i-1)*maxrow), i * maxrow)
    }
    else{
      idx = seq(1+((i-1)*maxrow), nrow(df))
    }
    grid.table(df[idx, ],rows = NULL)
    }
    dev.off()

希望这有效！