ggplot 2中的多行标题,带有多个斜体字

Question

我试图创建一个手动格式化在两行上的情节标题,其中包括两个斜体字,我已经 在Stack Exchange上做了一些搜索但是没有找到一个很好的解决方案来解决这个看似简单的问题.

这两个物种的科学名称相当长,因此需要多行标题(ggplot2不会对此进行格式化).

目的:

..........第一行标题与物种

第二行的话是另一种语言的结尾

ggplot(mtcars,aes(x=wt,y=mpg))+
  geom_point()+
  labs(title= expression(paste(atop("First line of title with ", atop((italic("Species")))),"
       secondline words", italic("anotherSpecies"), "the end")))

产生以下错位标题:

Answer 1

使用的组合atop,paste,italic和scriptstyle:

ggplot(mtcars, aes(x = wt, y = mpg)) +
  geom_point() +
  labs(title = ~ atop(paste('First line of title with ',italic("Species")),
                      paste(scriptstyle(italic("Species")),
                            scriptstyle(" secondline words "),
                            scriptstyle(italic("anotherSpecies")),
                            scriptstyle(" the end"))))

给你想要的结果:

使用scriptstyle不是必需的,但是使用比主标题更小的字体更好的字幕.

另请参阅?plotmath其他有用的自定义.

Answer 2

作为插入换行符的替代方法title,您可以title与subtitle(可从ggplot 2.2.0)一起使用.可能这使得结构plothmath更加简单明了.

p <- ggplot(mtcars, aes(x = wt, y = mpg)) +
  geom_point() +
  labs(title = expression("First line: "*italic("Honorificabilitudinitatibus")),
       subtitle = expression("Second line: "*italic("Honorificabilitudinitatibus praelongus")*" and more"))
p

如果你想字体大小是相同的两条线,设置所需的size在theme.

p + theme(plot.title = element_text(size = 12),
          plot.subtitle = element_text(size = 12))

请注意,默认情况下,标题和副标题都是左对齐的ggplot2 2.2.0.通过添加hjust = 0.5到element_text上面可以使文本居中.