Question

I have a histogram produced using plot in the ggplot2 package:

and a table produced using textplot from the gplots package

I would like to display them in the same pdf or png if possible.

I have tried grid.arrange without luck. Any other suggestions? As each table is only 5 rows long I was also considering inserting it into the plot as a ‘legend’ or text-box in the margin of the qplot. Any advice on how to make this look good? Thanks for your ideas.

SOLUTION##

In the end I went for and inset unfortunately my colour scheme looks worse…I have posted this issue as a new question.

Answer 1

Try this,

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