如何在ggtern图的xarrow、yarrow、zarrow标题中添加下标？

问题核心 #

ggtern的箭头标题（xarrow、yarrow、zarrow）属于主题（theme）元素，默认未开启文本解析功能，因此直接使用下划线格式或expression()函数不会生效，而坐标轴标题默认支持解析，所以之前的方法只对轴标题有效。

解决方案 #

通过theme()函数修改对应箭头标题的元素属性，开启文本解析（parse = TRUE），再结合plotmath语法实现下标效果。

代码示例 #

1. 基础静态下标用法

library(ggtern)

ggtern() +
  theme_ggtern() +
  # 开启箭头标题的文本解析
  theme(
    xarrow.title = element_text(parse = TRUE, size = 12),
    yarrow.title = element_text(parse = TRUE, size = 12),
    zarrow.title = element_text(parse = TRUE, size = 12)
  ) +
  # 使用plotmath语法定义带下标标题，下标用[]包裹
  labs(
    xarrow = expression(NaAlSi[3]O[8]),
    yarrow = expression(KAlSi[3]O[8]),
    zarrow = expression(CaAl[2]Si[2]O[8])
  )

2. 动态下标用法（结合bquote()）
   如果需要动态生成下标内容，可使用bquote()插入变量值：

ggtern() +
  theme_ggtern() +
  theme(xarrow.title = element_text(parse = TRUE, size = 12)) +
  labs(
    xarrow = bquote(NaAlSi[.(3)]O[.(8)]) # .()用于嵌入变量或动态值
  )

关键说明 #

• plotmath语法中，下标用[]包裹、上标用^，这和markdown的下划线语法不同，也是之前下划线格式无效的原因。
• 必须在theme()中给对应箭头标题设置parse = TRUE，否则表达式不会被解析渲染。

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