Question

如果我将\n与labs(title="whatever \n comes after this")一起使用，我最终会在这些行之间留出相当大的空间。有没有办法影响它？（我的意思是除了标题本身的字体大小）。

Answer 1

你可以这样做（选项 lineheight 来修改行间距）

  p <- qplot(mpg, wt, data = mtcars)
  p <- p + ggtitle("whatever \n comes after this") + 
  theme(plot.title = element_text(lineheight=.1))
  p

Answer 2

要完美地居中所有（\n在几种情况下不会做的话），保持每段文字的大小相同或者如果有超过2行则可以相对调整它（这在某些方面很有用）（）并且同时能够调整行间距，请改用：

labs(title=expression(atop(textstyle("whateverline1"),atop(textstyle("whateverline2"),atop(scriptscriptstyle(""),textstyle("whateverline3"))))))

然后使用labeller=label_parsed

这也适用于facet_grid，xlab和ylab

注意atop和textstyle定位文本，同时保持文本大小相同，scriptscriptstyle("")控制文本行之间的间距。您还可以根据需要使用scriptstyle或scriptscriptstyle使用不同相对大小的文字