0

我正在使用 grid_arrange_shared_legend 将具有相同图例的图组合成一个图例和一个图例。有没有办法稍微编辑函数，使其也共享 x 和 y 轴标签？例如，如果我制作了 3 个图表并想要使用 grid_arrange_shared_legend 制作的这些图表的 3x1 网格，并且想要最底部的共享 x 轴标签和左侧的共享 y 轴标签，我该怎么做？这是我用于该功能的代码：

grid_arrange_shared_legend <- function(..., ncol=1, mytitle="mytitle") {
  plots <- list(...)
  g <- ggplotGrob(plots[[1]] + theme(legend.position="bottom"))[["grobs"]]
  legend <- g[[which(sapply(g, function(x) x$name) == "guide-box")]]
  lheight <- sum(legend$height)
  grid.arrange(
    do.call(arrangeGrob, c(ncol=ncol, lapply(plots, function(x)
      x + theme(legend.position="none")))),
    legend,
    ncol = 1,
    heights = unit.c(unit(.95, "npc") - lheight, lheight),
    top=textGrob(mytitle,  gp = gpar(fontsize=16)))

}
4

1 回答 1

0

我有同样的问题。

我的解决方案是为每个图添加一个空白的 x 轴标题（以节省空间来添加轴标题）：

p1 <- p1 + xlab(" ")

然后创建了具有共享图例的图：

grid_arrange_shared_legend(p1, p2, p3, position = "right")

然后我添加了新文本作为新的轴标题：

grid.text("My title", y= 0.02, x=0.43)
于 2019-07-12T13:41:58.410 回答