r - 当 ggtitle 包含字母 q,y,p,g,j 时如何保持绘图尺寸相等

Question

我注意到在 ggplot 中，当您添加包含小写字母 q、y、p、g、j 的标题时，图的尺寸会被修改。



飞涨



*红线已手动添加

如您所见，当我将上述字母之一添加到标题时，情节的高度会变小

如何在具有不同标题的几个地块之间保持高度不变？

用于生成两个图的代码:

# plot 1
ggplot(mpg, aes(factor(cyl), hwy)) + 
  geom_point(size=4) + 
  theme_bw() + 
  ggtitle("main")

# plot 2
ggplot(mpg, aes(factor(cyl), hwy)) + 
  geom_point(size=4) + 
  theme_bw() +
  ggtitle("pmain")

Answer 1

您可以添加一个幻影小写字母，但这需要将您的文本转换为 plotmath 表达式，这可能有一些缺点，字体

.st <- function(s){
  bquote(phantom("tp")*.(s))
}

# plot 1
p1 <- ggplot(mpg, aes(factor(cyl), hwy)) + 
  geom_point(size=4) + 
  theme_bw() + 
  ggtitle(.st("main"))

# plot 2
p2 <- ggplot(mpg, aes(factor(cyl), hwy)) + 
  geom_point(size=4) + 
  theme_bw() +
  ggtitle(.st("pmain"))

grid.arrange(p1,p2,ncol=2)