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

Question

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

和使用gplots包中的textplot生成的表

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

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

SOLUTION ##

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

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＆LT; -grid.rect（GP = gpar（COL = “白色”））