Gibt es überhaupt grid.arrange () als split.screen ()? Ich möchte einen Tisch arrangieren, der direkt unter der Legende steht.

#create histogram
my_hist<-ggplot(diamonds, aes(clarity, fill=cut)) + geom_bar()

#create inset table
my_table<- tableGrob(head(diamonds)[,1:3],gpar.coretext =gpar(fontsize=8),gpar.coltext=gpar(fontsize=8), gpar.rowtext=gpar(fontsize=8))

grid.arrange(my_hist,my_table, ncol=2)

produziert:

aber ich möchte, dass es ungefähr so ​​aussieht:

Ich habe split.screen () ausprobiert, aber es scheint nicht mit Grafiken vom Typ ggplot zu funktionieren. Irgendwelche Vorschläge? Vielen Dank.