在ggplot2直方图中的图例下插入一个表格 [英] Inserting a table under the legend in a ggplot2 histogram

问题描述

有没有办法让grid.arrange（）充当split.screen（）？

 ＃创建直方图
 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 ）
  

产生：

但我希望它看起来大致像这：

我试过split.screen（），但它似乎不适用于ggplot类型的图形。有什么建议么？谢谢。

解决方案

Dickoa的答案非常整齐。 Mine给你更多元素的控制权。

  my_hist<  -  ggplot（diamonds，aes（clarity，fill = cut）） + geom_bar（）
 
 #create嵌入表
 my_table<  -  tableGrob（head（菱形）[，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<  - 其中（sapply（tmp $ grobs，function（x）x $ name）==guide-box）
 legend <  -  tmp $ grobs [[leg]] 
 return（legend）} 
 
 legend<  -  g_legend（my_hist）
 
＃创建视口，按他们画出并上涨
 grid.newpage（）
 vp1<  -  viewport（width = 0.75，height = 1，x = 0.375，y = .5）
 vpleg<  - 
 subvp < -  viewport（width = 0.3，height = 0.3，x = 0.85，y = 0.25）
 print（viewport（width = 0.25，height = 0.5，x = 0.85，y = 0.75） my_hist + opts（legend.position =none），vp = vp1）
 upViewport（0）
 pushViewport（vpleg）
 grid.draw（图例）
＃使新视口处于活动状态并绘制
 upViewport（0）
 pushViewport（subvp）
网格。 draw（my_table）
  

Is there anyway to get grid.arrange() to act as split.screen ()? I would like to arrange a table to be located directly underneath the 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)

produces:

but I would like it look roughly like this:

I tried split.screen () but it doesn't seem to work with ggplot type graphics. Any suggestions? Thanks.

解决方案

Dickoa's answer is very neat. Mine gives you more control over the elements.

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)

这篇关于在ggplot2直方图中的图例下插入一个表格的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！