减小上标字体大小ggplot2 R

Reduce superscript font size ggplot2 R

我正在用 ggplot2 和程序包 ggtext 开发一个脚本,以生成一些标题旁边带有上标的图,这些图进一步分组在参考 table 中。

我正在做的一个简化示例是:

library(ggplot2)
library(ggtext)

ggplot() +
geom_blank() +
labs(title = "The title of the plot^21") +
theme_void() +
theme(plot.title = element_markdown(size = 20, hjust = 0.5))

但是因为我需要在我的项目中使用大字体,所以上标字体太大了。有没有办法在保持相同文本大小的同时减少它?提前谢谢你。

也许这会有所帮助:

library(ggplot2)
library(ggtext)
#Code
ggplot() +
  geom_blank() +
  labs(title = "The title of the plot<span style='font-size:20pt;
       color:black'><sup>2</sup></span>") +
  theme_void() +
  theme(plot.title = element_markdown(size = 25, hjust = 0.5))

输出:

后来我发现我们可以在代码中使用双克拉,这也回答了我的问题:

labs(title = "The title of the plot^^21")