r - 在 r 中以相同的 pdf 或 png 输出 textplot 和 qplot

Question

我有一个使用 ggplot2 包中的 plot 生成的直方图：

以及使用 gplots 包中的 textplot 生成的表格

如果可能的话，我想以相同的 pdf 或 png 显示它们。

我试过 grid.arrange 没有运气。还有其他建议吗？由于每个表只有 5 行长，我还考虑将其作为 qplot 边缘的“图例”或文本框插入到绘图中。关于如何使它看起来不错的任何建议？谢谢你的想法。

解决方案＃＃

最后我去了，不幸的是我的配色方案看起来更糟......我已将此问题作为一个新问题发布。

Answer 1

试试这个，

library(ggplot2)
library(gridExtra)

g = tableGrob(iris[1:2, 1:2])

p = qplot(1:10, 1:10, geom = "blank") +
     annotation_custom(g) # as inset

grid.arrange(p, g, ncol=1) # stacked
ggsave("plot-table.pdf", arrangeGrob(p, g, ncol=1))

Answer 2

这是 gridExtra 库的示例

my_hist<-ggplot(diamonds, aes(clarity, fill=cut)) + geom_bar()  
my_table<- tableGrob(head(diamonds)[,1:3],gpar.coretext = gpar(fontsize=8),gpar.coltext=gpar(fontsize=8), gpar.rowtext=gpar(fontsize=8))  
pdf("myplot.pdf")  
grid.arrange(my_hist,my_table, ncol=2)  
dev.off()

您可以更改表格中的字体大小和 pdf 的大小： pdf("myplot.pdf",width=10, height = 6)
如果您喜欢不同的排列方式，您可能还需要一个空白面板：
blankPanel<- grid.rect(gp=gpar(col="white"))