R 在ggplot2直方图中的图例下插入表格

是否仍然可以让grid.arrange（）充当split.screen（）？我想在图例的正下方安排一张桌子

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

#创建直方图
我的历史首先你应该看看这个，有很多例子（看看arrangeGrob）。
通过这些例子，我得到了这个解决方案

require(gridExtra)
require(ggplot2)

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

## get the legend 
tmp <- ggplot_gtable(ggplot_build(my_hist))
leg <- which(sapply(tmp$grobs, function(x) x$name) ==  "guide-box")
legend <- tmp$grobs[[leg]]

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


### final result 
grid.arrange(my_hist + opts(legend.position = "none"), arrangeGrob(legend, my_table), ncol = 2)

require（gridExtra）
需要（ggplot2）
##原始图
我的历史Dickoa的回答非常简洁。我的让你对元素有更多的控制

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

#Extract Legend
g_legend <- function(a.gplot){
  tmp <- ggplot_gtable(ggplot_build(a.gplot))
  leg <- which(sapply(tmp$grobs, function(x) x$name) == "guide-box")
  legend <- tmp$grobs[[leg]]
  return(legend)}

legend <- g_legend(my_hist)

#Create the viewports, push them, draw and go up
grid.newpage()
vp1 <- viewport(width = 0.75, height = 1, x = 0.375, y = .5)
vpleg <- viewport(width = 0.25, height = 0.5, x = 0.85, y = 0.75)
subvp <- viewport(width = 0.3, height = 0.3, x = 0.85, y = 0.25)
print(my_hist + opts(legend.position = "none"), vp = vp1)
upViewport(0)
pushViewport(vpleg)
grid.draw(legend)
#Make the new viewport active and draw
upViewport(0)
pushViewport(subvp)
grid.draw(my_table)

my_hist检查一下。不久前我也需要做同样的事情，虽然我不确定这里的代码是否已经过时。这是一个老问题，如果你想让它们工作，你必须更改下面答案中的
选项。谢谢你，这非常有帮助！维基链接是dead@PajeetRamahari-马瓦里·库米尼非常感谢，这真的很有帮助。我更新了链接。@Iselzer谢谢你的建议！非常感谢