如何在ggplot2标签中实现哥特体𝔅搭配常规R字体下标x？

要实现哥特体字符𝔅（Unicode编码U1D505）搭配常规字体下标x的y轴标签，可通过以下两种方案解决：

方案1：使用ggtext包的Markdown语法（推荐） #

ggtext支持用HTML标签在文本中指定局部字体，操作更灵活直观：

# 安装并加载所需包
install.packages("ggtext")
library(ggplot2)
library(ggtext)

# 定义带字体指定的y轴标签
y_label <- "<span style='font-family: UnifrakturMaguntia;'>𝔅</span><sub>x</sub>"

df <- data.frame()
ggplot(df) + 
  geom_point() + 
  xlim(0, 10) + 
  ylim(0, 100) + 
  ylab(y_label) +
  # 启用Markdown语法解析轴标题
  theme(axis.title.y = element_markdown(size = 20),
        title = element_text(family="sans"))

说明：

• 用<span>标签给哥特体字符单独指定UnifrakturMaguntia字体
• <sub>标签实现下标x，默认使用系统常规字体
• element_markdown()会自动解析标签中的HTML/Markdown语法

方案2：使用grid包手动构建混合字体文本对象 #

如果不想额外安装包，可借助grid包的文本对象组合功能：

library(ggplot2)
library(grid)

# 分别创建哥特体的𝔅和常规字体的下标x文本对象
grob_b <- textGrob("𝔅", family = "UnifrakturMaguntia", gp = gpar(fontsize = 20))
grob_x <- textGrob("x", gp = gpar(fontsize = 14, vjust = 0.5))
# 组合两个文本对象，调整位置让x成为下标
combined_grob <- gTree(children = gList(
  grob_b,
  translateGrob(grob_x, x = unit(0.1, "npc"), y = unit(-0.2, "npc"))
))

df <- data.frame()
p <- ggplot(df) + 
  geom_point() + 
  xlim(0, 10) + 
  ylim(0, 100) + 
  theme(axis.title.y = element_blank(), # 隐藏默认轴标题
        title = element_text(family="sans"))

# 将组合好的文本对象添加到y轴标题位置
p + annotation_custom(combined_grob, xmin = -1, xmax = -1, ymin = 50, ymax = 50)

说明：

• 分别生成不同字体的文本grob，通过translateGrob调整下标x的偏移位置
• annotation_custom将组合后的文本对象放置到y轴标题对应的坐标区域

原代码问题说明 #

你之前的代码将整个y轴标题统一设置为fraktur字体，导致下标x也被强制转换为哥特体。核心解决思路是单独控制不同字符的字体属性，而非给整个标签应用单一字体。

内容的提问来源于stack exchange，提问作者JR96