如何在ggplot2轴文本的上标中显示真实减号？

针对ggtext::element_markdown()无法渲染上标中Unicode减号的问题，这里提供两种可行的解决方法：

方法一：使用ggplot原生plotmath表达式（无需ggtext） #

直接构造plotmath表达式生成轴标签，原生支持数学符号的正确渲染，无需依赖ggtext：

library(ggplot2)

log_breaks <- 10^(-3:1)
# 生成包含真实减号的plotmath表达式
log_labels <- as.expression(lapply(-3:1, function(x) {
  if (x < 0) {
    bquote(10^.(parse(text = paste0("−", abs(x)))))
  } else {
    bquote(10^.(x))
  }
}))

dt <- data.frame(x = 1, y = log_breaks)

ggplot(dt, aes(x, y)) + 
  geom_point() + 
  scale_y_log10(breaks = log_breaks, labels = log_labels)

方法二：换用HTML上标标签修复ggtext渲染 #

如果坚持使用ggtext，将markdown的^上标语法替换为HTML的<sup>标签，即可正确显示Unicode减号：

library(ggplot2)
library(ggtext)

log_breaks <- 10^(-3:1)
log_labels <- c(paste0('10<sup>−', 3:1, '</sup>'), '10<sup>0</sup>', '10<sup>1</sup>')
dt <- data.frame(x = 1, y = log_breaks)

ggplot(dt, aes(x, y)) + 
  geom_point() + 
  scale_y_log10(breaks = log_breaks, labels = log_labels) +
  theme(axis.text.y = element_markdown())

问题原因说明 #

你之前使用10^−3^的markdown语法时，ggtext对^包裹区域内的特殊字符解析存在异常；换成HTML的<sup>标签后，渲染逻辑更稳定，能正确识别Unicode减号。而plotmath作为ggplot原生的数学表达式系统，对各类数学符号的支持更完善，是处理这类轴标签的可靠方案。

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