使用 cowplot 中的 plot_grid 排列绘图时，较长的绘图标签向右移动

Question

我在 Twitter 上被问到这个问题，我认为把它放在这里可能会很好。

使用 制作带标签的并排图时plot_grid()，对于单字母标签，事情按预期工作：

library(cowplot)

p1 <- ggplot(iris, aes(x = Sepal.Length, fill = Species)) + 
  geom_density(alpha = 0.7) +
  ggtitle("") + theme_minimal()

p2 <- ggplot(iris, aes(x = Sepal.Length, fill = Species)) + 
  geom_density(alpha = 0.7) +
  ggtitle("") +
  scale_fill_grey() + theme_minimal()

plot_grid(p1, p2, labels = c("A", "B"))

但是，如果我们使用较长的字符串作为标签，标签会向右移动，并且它们移动得越多，字符串越长：

plot_grid(p1, p2, labels = c("Density plot in color", "In gray"))

如何解决这个问题？

免责声明：我是包的作者。在这里发布这个答案，希望它会有用。

Answer 1

参数hjust和label_xin的默认设置针对plot_grid()单字母标签进行了优化，它们不适用于较长的标签。覆盖设置可以解决问题：

plot_grid(p1, p2, labels = c("Density plot in color", "In gray"),
          hjust = 0, label_x = 0.01)

特别是，默认hjust设置是hjust = -0.5。这会将标签向右移动相当于其宽度一半的量。这对于单字母标签是有意义的，因为这样我们就可以通过设置使字母出现在距左边框半个字母宽度的位置label_x = 0，并且无论标签字体大小或用户可能选择的任何其他绘图功能如何，这都将起作用。

但是，对于较长的标签，尤其是不同长度的标签，将标签移动其宽度的一半完全没有任何意义。