r - 对 ggplot2 标题中不同部分的文本使用不同的字体大小

Question

考虑下图：

require(ggplot2)
ggplot(iris, aes(Sepal.Length, Sepal.Width)) + geom_point() +
  labs(title = 'Iris[small font]' ) +
  theme_classic()

左图是代码输出，右图显示所需的结果，我使用 Adob​​e Illustrator

问题是，如果可以更改line中的字体大小，在此示例中为标题中的“[small font]”标签，但当然这也是关于其他标签（例如轴和图例）的一般问题等等

显然，字体大小是用 设置的theme()。但是，可能有一种设置“相对字体大小”的方法，例如使用rel()和使用它以某种方式与 labeller 功能？

Answer 1

library(grid)
library(gridtext) # devtools::install_github("clauswilke/gridtext")
library(gridExtra)
library(ggplot2)

ggplot(iris, aes(Sepal.Width, Sepal.Length)) +
  geom_point() +
  labs(title = "Replace-able") -> gg

gb <- ggplot_build(gg)
gt <- ggplot_gtable(gb)

title <- "<span style='font-size:20'>Iris </span><span style='font-size:12'>[some text]</span>"
tg <- rich_text_grob(title, x = unit(0, "lines"), y = unit(2, "lines"))

gt$grobs[[16]] <- tg

grid.newpage()
grid.draw(gt)

然后，有：

ggplot(iris, aes(Sepal.Width, Sepal.Length)) +
  geom_point() -> gg

title <- "<span style='font-size:20'>Iris </span><span style='font-size:12'>[some text]</span>"
tg <- rich_text_grob(title, x = unit(2, "lines"), y = unit(2, "lines"))

grid.newpage()
grid.draw(
  arrangeGrob(tg, gg, heights=c(0.1, 0.8))
)

Answer 2

如果您使用包 ggtext 代替，您可以避免摆弄网格 grobs。

# this requires the current development versions of ggplot2 and ggtext
# remotes::install_github("tidyverse/ggplot2")
# remotes::install_github("clauswilke/ggtext")

library(ggplot2)
library(ggtext)

ggplot(iris, aes(Sepal.Width, Sepal.Length)) +
  geom_point() +
  ggtitle("<span style='font-size:20pt'>Iris </span><span style='font-size:12pt'>[some text]</span>") +
  theme(
    plot.title = element_markdown()
  )

^{由reprex 包（v0.3.0）于 2019 年 12 月 3 日创建}