r - 添加到拼凑而成的 grobs 的控制填充

Question

这是 this question 的后续问题. OP 要求一种方法以特定距离安排地 block 的一部分。我认为 teunbrand 给出了一个很好的答案。
我自己的建议(用cowplot提取图例，并以所需比例将它们缝合到图上)并不完全令人满意，因为它在给定示例中只是“偶然”起作用-图例标签足够长以将图例集中到第三个绘图的视口(viewport)。
较短的标签揭示了问题 - 添加 grob 时，拼凑此 grob 居中，基本上向所有侧面均等填充。
我的问题是，你知道控制这种填充行为的方法吗？
Cowplot(或任何其他 ggplot 组合包)也非常受欢迎。

library(tidyverse)
library(patchwork)
data <- midwest %>% 
  head(5) %>% 
  select(2,23:25) %>%
  pivot_longer(cols=2:4,names_to="Variable", values_to="Percent") %>% 
  mutate(Variable=factor(Variable, 
                         levels=c("percbelowpoverty","percchildbelowpovert","percadultpoverty"),
                         labels = paste0("perc", 1:3)))

p1 <- 
  ggplot(data=data, mapping=aes(x=county, y=Percent, fill=Variable)) +
  geom_col() + 
  scale_fill_manual(values = c("#CF232B","#942192","#000000")) +
  theme(legend.background = element_rect(fill = "grey50"))

p_legend <- cowplot::get_legend(p1)

p_main <- p1 <- 
  ggplot(data=data, mapping=aes(x=county, y=Percent, fill=Variable)) +
  geom_col(show.legend = FALSE) + 
  scale_fill_manual(values = c("#CF232B","#942192","#000000"))

p_main + plot_spacer() + p_legend + 
  plot_layout(widths = c(12.5, 1.5, 4)) &
  theme(plot.margin = margin(),
        plot.background = element_rect(colour = "black"))

不太理想的结果 - 图例 grob(灰色背景)应与左图边框(黑线)对齐

由 reprex package 创建于 2021-04-09| (v1.0.0)

Answer 1

据我所知，问题不在 patchwork s侧。看看图例的gtable的布局我们看到它由 5 行和 5 列组成，并且图例将放置在中心的单元格中:

p_legend <- cowplot::get_legend(p1)
p_legend
#> TableGrob (5 x 5) "guide-box": 2 grobs
#>                                     z     cells                  name
#> 99_a788e923bf245af3853cee162f5f8bc9 1 (3-3,3-3)                guides
#>                                     0 (2-4,2-4) legend.box.background
#>                                               grob
#> 99_a788e923bf245af3853cee162f5f8bc9 gtable[layout]
#>                                     zeroGrob[NULL]
gtable::gtable_show_layout(p_legend)

因此，添加图例时 patchwork中心符合 gtable 的要求布局。
控制图例的定位或填充的一个选项是通过 cowplot::gtable_squash_cols 挤压第一列如果需要，可以通过 gtable::gtable_add_cols 添加具有所需填充量的新列来添加一些填充。 :

# Squash first column
p_legend <- cowplot::gtable_squash_cols(p_legend, 1)
# Add some padding by adding a new col
p_legend <- gtable::gtable_add_cols(p_legend, unit(.1, "cm"), pos = 1)

p_main <- p1 <- 
  ggplot(data=data, mapping=aes(x=county, y=Percent, fill=Variable)) +
  geom_col(show.legend = FALSE) + 
  scale_fill_manual(values = c("#CF232B","#942192","#000000"))

p_main + plot_spacer() + p_legend + 
  plot_layout(widths = c(12.5, 1.5, 4)) &
  theme(plot.margin = margin(),
        plot.background = element_rect(colour = "black"))