ggplot 右侧的常见图例

Question

我想将一个常见的图例对齐到绘图的右侧而不是底部。 here（史蒂文森的第二个答案）

讨论了一个类似的例子

通过 Stevenson 对代码的基本编辑，我将 legend.position 更改为右侧，如果我保留 ncol=1，则图例仍会出现在底部，但如果我编辑 ncol=2，则图例会出现在右侧，但图例和情节之间有一个巨大的 space。

library(ggplot2)
library(gridExtra)

grid_arrange_shared_legend <- function(...) {
plots <- list(...)
g <- ggplotGrob(plots[[1]] + theme(legend.position="right"))$grobs
legend <- g[[which(sapply(g, function(x) x$name) == "guide-box")]]
lheight <- sum(legend$height)
grid.arrange(
  do.call(arrangeGrob, lapply(plots, function(x)
  x + theme(legend.position="none"))),
legend,
ncol = 2,
heights = unit.c(unit(1, "npc") - lheight, lheight))
}

dsamp <- diamonds[sample(nrow(diamonds), 1000), ]
p1 <- qplot(carat, price, data=dsamp, colour=clarity)
p2 <- qplot(cut, price, data=dsamp, colour=clarity)
p3 <- qplot(color, price, data=dsamp, colour=clarity)
p4 <- qplot(depth, price, data=dsamp, colour=clarity)
grid_arrange_shared_legend(p1, p2, p3, p4)

如何将图例正确地堆叠在图旁边？我看过一些帖子，但 none 实际上已经解决了将多图中的图例向右对齐的问题。

感谢您的帮助，谢谢！

Answer 1

您想调整宽度，而不是高度

grid_arrange_shared_legend <- function(...) {
  plots <- list(...)
  g <- ggplotGrob(plots[[1]] + theme(legend.position="right"))$grobs
  legend <- g[[which(sapply(g, function(x) x$name) == "guide-box")]]
  lw <- sum(legend$width)
  gl <- lapply(plots, function(x) x + theme(legend.position="none"))
  grid.arrange(arrangeGrob(grobs = gl), legend,
    ncol = 2, widths = unit.c(unit(1, "npc") - lw, lw))
}

ggplot 右侧的常见图例

common legend to the right of ggplot

r

ggplot2

gridextra