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

我在ggplot2包中使用plot产生了直方图:

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

如果可能，我希望将它们显示为相同的pdf或png。
我试过grid.arrange没有运气。还有其他建议吗？由于每个表只有5行，因此我也在考虑将其作为qplot边缘的“图例”或文本框插入图中。关于如何使它看起来不错的任何建议？感谢您的想法。
解决方案＃＃
最后我不幸地插入了一个配色方案，不幸的是，我的配色方案看起来更糟了。

最佳答案

试试这个，

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))

关于r - 在R中以相同的pdf或png输出textplot和qplot，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/11603262/