修复 ggplot2 中相对于绘图标题的绘图大小

Question

我正在使用 ggplot2 创建一些带有标题的图形，但发现当标题有下降（例如，小写 p、q、g、y）时，绘图的实际大小会略微缩小以适应所需的更大空间标题。

在正常的 ggplot 功能中是否有办法固定绘图大小，以便无论标题如何，数字都处于 100% 一致的位置？

这里有一些显示问题的快速示例代码；人们可能需要在本地运行代码才能清楚地看到图像中的差异。

 library(ggplot2)
 # No letters with descenders in title
 ggplot(data=mtcars,aes(x=disp,y=mpg)) + 
    geom_point() + ggtitle("Scatter Plot")

# Title has a descender (lowercase 'p')
ggplot(data=mtcars,aes(x=disp,y=mpg)) + 
    geom_point() + ggtitle("Scatter plot")

Answer 1

您可以在gtable中设置相关高度，

library(ggplot2)

p1 <- ggplot() + ggtitle("a")
p2 <- ggplot() + ggtitle("a\nb")

gl <- lapply(list(p1,p2), ggplotGrob)
th <- do.call(grid::unit.pmax, lapply(gl, function(g) g$heights[3]))
gl <- lapply(gl, function(g) {g$heights[3] <- th; g})
gridExtra::grid.arrange(grobs = gl, nrow=1)

编辑：为简单起见，这里是编辑一个绘图的方法

g = ggplotGrob(qplot(1,1) + ggtitle('title'))
g$heights[3] = grid::unit(3,"line")
grid.draw(g)