Adding a table of values below the graph in ggplot2

Question

Sample data:

### Data
df <- data.frame(year = seq(as.Date(\"1998/1/1\"), as.Date(\"2012/1/1\"), \"years\"),
                 ton = sample(200:500, 15, rep         


        

Answer 1

tt <- ttheme_default(colhead=list(fg_params = list(parse=TRUE)),
                     base_size = 10,
                     padding = unit(c(2, 4), "mm"))
tbl <- tableGrob(df1, rows=NULL, theme=tt)

png("E:/temp/test.png", width = 1000, height = 1000)
grid.arrange(plot1, plot2, tbl, 
             nrow = 3, heights = c(2, 2, 0.5))
dev.off()