使用 cowplot/ggplot2 在空面板中绘制图例

Question

我有一个包含 5 个图和一个共享图例的面板，我想将其排列在一个（2 行，3 列）网格中。右下方的面板应该用于图例。

library(ggplot2)
library(cowplot)
df <-data.frame(a=seq(1,20),b=seq(1,20), c=as.factor(c(rep("A", 10),rep("B",10))))
O <- ggplot(df, aes(x = a, y = b)) + geom_point(aes(col=c))
legend <- get_legend(O)

A <- ggplot(df, aes(x = a, y = b)) + geom_point(aes(col=c), show.legend = F)
B <- ggplot(df, aes(x = c, y = b)) + geom_boxplot(aes(col=c), show.legend = F)
C <- ggplot(df, aes(x = a, y = b)) + geom_line(aes(group=c, col=c), show.legend=F)
D <- ggplot(df, aes(a)) + geom_histogram()



lol <- plot_grid(A, B, C,
                 D, A, NULL, ncol=3, nrow=2, 
                 align="hv", rel_widths = c(1, 1, 1, 1, 1, 1),
                 labels = c('A', 'B', 'C', 'D', 'E', ''))

这遵循此处给出的教程： https://cran.r-project.org/web/packages/cowplot/vignettes/shared_legends.html

现在的问题是，我修改了小插图中的最后一个 plot 命令：

lol + draw_grob(legend, 2/3.3, 0, .3/3.3, 1)

但我无法理解 draw_grob 参数中给出的（明显的？）坐标系的逻辑。有人可以阐明如何将图例导航到空白处吗？

请注意，我不能在 'plot_grid' 中使用对象 'legend'，因为它会阻止对齐工作。

Answer 1

你需要把它看成一个矩形，点(x,y)在左下角，右上角在(x + width,y+高度`）。

因此，在这种情况下：

lol + draw_grob(legend, 2/3, 0, 1/3, 0.5)

请注意，您可能需要增加 y 一点，使其与其他地块的实际绘图区域水平，而不是整个 canvas。

使用 cowplot/ggplot2 在空面板中绘制图例

Plot legend in an empty panel with cowplot/ggplot2

r

ggplot2

cowplot