锁定部分网格的宽高比

Question

我正在尝试编写一个函数，其中我们的公司徽标会在导出时自动添加到每个图表中，作为函数的一部分，在标题和副标题旁边。每个输出的尺寸将取决于当时的需求，因此不幸的是，设定尺寸不会特别有用。

为此，我已经生成了一系列网格，将所有内容放在一起，如下所示（使用虹膜数据集）。

library(datasets)
library(tidyverse)
library(gridExtra)
library(grid)
library(png)

m <- readPNG("Rlogo.png") # download from: https://www.r-project.org/logo/Rlogo.png

plot <- ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width)) +
  geom_col() +
  ggtitle("Title goes here",
          subtitle = "subtitle down here")


txtTitle <- plot$labels$title
txtSubTitle <- plot$labels$subtitle

plot$labels$title <- NULL
plot$labels$subtitle <- NULL

buffer <- grobTree(rectGrob(gp = gpar(fill = "white", col = "white")))

Title <- grobTree(textGrob(label = txtTitle,  
                           hjust = 1, 
                           x = 0.98))
SubTitle <- textGrob(label = txtSubTitle, 
                     hjust = 1, 
                     x = 0.98)
Logo <- grobTree(rasterGrob(m, x = 0.02, hjust = 0))



TitlesGrid <- grid.arrange(Title, SubTitle, ncol = 1)
TopGrid <- grid.arrange(Logo, TitlesGrid, widths = c(1, 7), ncol = 2)
AllGrid <- grid.arrange(TopGrid, arrangeGrob(plot), heights = c(1,7))

这提供了以下不同宽高比的输出。

第一个例子在标题和副标题之间有一个很好的差距，而第二个例子则太多了。我如何制作它以使TopGrid的高度固定为绝对大小，但其余的填充到所需的大小？

Answer 1

网格图形具有绝对和相对单位的概念。无论视口大小如何，绝对单位（例如“cm”，“in”，“pt”）始终保持相同的大小。相对单位（称为“null”）根据需要扩展或缩小。在常规ggplot2对象中，绘图面板以相对单位指定，而面板周围的各种元素（如标题，轴刻度等）以绝对单位指定。

使用unit()函数指定绝对或相对单位：

> library(grid)
> unit(1, "cm")
[1] 1cm
> unit(1, "null")
[1] 1null

在您的情况下，heights的{​​{1}}参数可以采用任意网格单元对象，因此您只需将顶部高度设为绝对单位：

grid.arrange