在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 = "白色"))