grobs的定位

Question

我想在主图中绘制线性模型的数据，并使用 arrangeGrob.

在子图中绘制效果图（森林图）

数据如下：

set.seed(1)
main.df <- data.frame(sample=c(paste("E.plus.A.plus",1:3,sep="_"),paste("E.minus.A.plus",1:3,sep="_"),paste("E.plus.A.minus",1:3,sep="_"),paste("E.minus.A.minus",1:3,sep="_")),
                      replicate=rep(1:3,4),cpm=c(rnorm(12)),
                      factor.level=factor(c(rep("E.plus.A.plus",3),rep("E.minus.A.plus",3),rep("E.plus.A.minus",3),rep("E.minus.A.minus",3)),
                                    levels=c("E.plus.A.plus","E.minus.A.plus","E.plus.A.minus","E.minus.A.minus")))

effects.df <- data.frame(factor.level=c("E.plus.A.plus-E.minus.A.plus","E.plus.A.plus-E.plus.A.minus","E.plus.A.plus-E.minus.A.minus",
                                        "E.minus.A.plus-E.plus.A.minus","E.minus.A.plus-E.minus.A.minus","E.plus.A.minus-E.minus.A.minus"),
                         effect=rnorm(6),effect.df=runif(6,0,0.5),p.value=runif(6,0,1),y=1:6+0.2)
effects.df$effect.high <- effects.df$effect+effects.df$effect.df
effects.df$effect.low <- effects.df$effect-effects.df$effect.df
effects.df$factor.level <- factor(effects.df$factor.level,levels=effects.df$factor.level)

ggplots：

require(ggplot2)
require(grid)
require(gridExtra)
main.plot <- ggplot(main.df,aes(x=replicate,y=cpm,color=factor.level))+geom_point(size=3)+
  facet_wrap(~factor.level,ncol=length(levels(main.df$factor.level)))+
  labs(x="replicate",y="cpm")+scale_x_continuous(breaks=unique(main.df$replicate))+theme_bw()+
  theme(legend.key=element_blank(),panel.border=element_blank(),strip.background=element_blank(),axis.title=element_text(size=8),plot.title=element_text(size=9,hjust=0.5))

这是：

sub.plot <- ggplot(effects.df,aes(x=effect,y=factor.level,color=factor.level))+geom_point(size=2.5,shape=19)+geom_errorbarh(aes(xmax=effect.high,xmin=effect.low),height=0.1)+
  geom_vline(xintercept=0,linetype="longdash",colour="black",size=0.25)+theme_bw()+theme(legend.key=element_blank(),panel.border=element_blank(),strip.background=element_blank(),axis.title=element_text(size=7),axis.text=element_text(size=7),legend.text=element_text(size=7),legend.title=element_text(size=7))+
  geom_text(aes(x=effects.df$effect,y=effects.df$y,label=format(signif(effects.df$p.value,2),scientific=T)),size=2.5)

并且是：

下面是我尝试将它们组合成一个图的方法：

if(!is.null(dev.list())) dev.off()
blank <- grid.rect(gp = gpar(col = "white"))
sub.plot.grob <- arrangeGrob(blank,sub.plot,ncol=1)
combined.plot <- arrangeGrob(main.plot,sub.plot,ncol=2,widths=c(1,1))
grid.arrange(combined.plot)

给出：

如何调整位置和尺寸，使sub.plot变小（所有图层，例如文本按比例缩小），并位于main.plot的图例下方？

Answer 1

我强烈推荐包 cowplot 用于此类任务。在这里，我正在构建三个嵌套集（左边是主图，然后是右上角的两个图例，然后是右下角的子图）。请注意精彩的 get_legend 功能，它使提取图例变得异常容易。

plot_grid(
  main.plot + theme(legend.position = "none")
  , plot_grid(
    plot_grid(
      get_legend(main.plot)
      , get_legend(sub.plot)
      , nrow = 1
    )
    , sub.plot + theme(legend.position = "none")
    , nrow = 2
  )
  , nrow = 1
  )

给出：

显然我建议更改一个（或两个）调色板，但这应该能满足您的需求。

如果您真的想要带有 sub.plot 的图例，而不是其他图例，您可以跳过 get_legend。

您还可以使用 rel_widths 和 rel_heights 调整套装的 width/height，如果您想要的不是均匀尺寸。

作为补充说明，cowplot 在加载时设置了自己的默认主题。我通常会在加载后立即通过运行 theme_set(theme_minimal()) 恢复到我喜欢的状态。

Answer 2

这里有一个 grid.arrange 解决方案，

grid.arrange(grobs = replicate(4, ggplot(), simplify = FALSE), 
             layout_matrix = cbind(c(1,1), c(3,2), c(4, 2)), 
             widths = c(2,1,1))

有了那些点点滴滴，

get_legend <- function(p) {
   g <- ggplotGrob(p)
   id <- grep("guide", g$layout$name)
   g$grobs[[id]]
}

leg1 <- get_legend(main.plot); leg2 <- get_legend(sub.plot)
gl <- list(main.plot + theme(legend.position = "none"), 
           sub.plot + theme(legend.position = "none"), leg1, leg2)

grid.arrange(grobs = gl, 
             layout_matrix = cbind(c(1,1), c(3,2), c(4, 2)), 
             widths = c(2,1,1))

grobs的定位

Positioning of grobs

grid

r

ggplot2

grob