Czy mimo to chcesz uzyskać grid.arrange (), aby działało jako split.screen ()? Chciałbym zorganizować stół do umieszczenia bezpośrednio pod legendą.

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

produkuje:

ale chciałbym, żeby wyglądało to mniej więcej tak:

Próbowałem split.screen (), ale nie działa z grafiką typu ggplot. Jakieś sugestie? Dzięki.