相关疑难解决方法(0)

我最近开始使用包中的grid.table函数gridExtra将表格数据转换为png图像文件,以便在Web上使用.我一直很高兴,因为它默认产生非常好看的输出,有点像ggplot2桌子.就像提出这个问题的人一样,我很乐意看到能够指定单个列的理由,但那将是一个已经更多的蛋糕.

我的问题是是否可以在a周围添加文本,grid.table以便我可以为绘制的表格提供标题和脚注.在我看来这应该是可行的,但我不太了解网格图形能够解决如何将grobs添加到表格grob.例如,这段代码:

require(gridExtra)

mydf <- data.frame(Item = c('Item 1','Item 2','Item 3'), 
????????????????????Value = c(10,15,20), check.names = FALSE)
grid.table(mydf,
           gpar.coretext=gpar(fontsize = 16),
           gpar.coltext = gpar(fontsize = 16),
           gpar.rowtext = gpar(fontsize = 16),
           gpar.corefill = gpar(fill = "blue", alpha = 0.5, col = NA),
           h.even.alpha = 0.5,
           equal.width = FALSE,
           show.rownames = FALSE,
           show.vlines = TRUE,
           padding.h = unit(15, "mm"),
           padding.v = unit(8, "mm")
           )

生成这个情节:

当我真的希望能够在代码中执行类似下面的操作而不是使用其他应用程序编辑图像时:

我想将我的数据框导出为 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()