當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表達式，可能有一些缺點，fontwise

.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)