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

【问题标题】：Use different font sizes for different portions of text in ggplot2 title对 ggplot2 标题中不同部分的文本使用不同的字体大小
【发布时间】：2019-03-22 00:21:46
【问题描述】：

考虑下图：

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

左图是代码输出，右图显示想要的结果，我用 Adobe Illustrator 做的

问题是，如果可以改变字体大小in line，在这个例子中是标题中的“[small font]”标签，当然这也是一个普遍的问题关于其他标签，例如轴和图例等。

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

【问题讨论】：

不直接使用 ggplot2。看看gridtext。将它与 SO 上的大量 grob-hacking hack 之一结合使用，将标题 grob 替换为 gridtext 创建的内容，可能会帮助您以您想要的方式获得标题。
稍微修改了标题以获得更好的谷歌搜索结果
感谢您的建议！但我实际上是在问是否有更通用的方法来改变文本大小，也可用于轴等。但我想这太笼统了。我喜欢您针对我的特定标题问题的解决方案，我可能会接受，但仍会等待更长的时间:)
请随意等待，但所有 ggplot2 文本几何图形和绘图注释 grobs 都使用单个文本 grob 元素（请查看我的答案评论中指出的来源）。网格文本 grobs 有 single aesthetic mappings.

标签： r ggplot2 ggtext

【解决方案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))
)

【讨论】：

这是一个令人印象深刻的 hack，感谢您。 - 不过，我会稍等片刻接受，以防万一有人有其他想法！
同一个人有另一个想法怎么样？ :-) 真的，虽然，这不是原生 ggplot2 功能，可能暂时不会，相对于github.com/tidyverse/ggplot2/blob/…
我已经指出了按名称查找[[16]] 的能力。等我有时间我会修改代码。

【解决方案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 package (v0.3.0) 于 2019 年 12 月 3 日创建}

【讨论】：