如何在ggplot2的10进制对数刻度中使用负常用对数杠记法？

能否直接使用杠记法？ #

ggplot2默认的刻度格式化工具并不支持这种工程师常用的「特征数上方加杠」的负对数表示法，需要通过自定义刻度标签来实现。

用Unicode创建自定义刻度的方法 #

我们可以利用Unicode的**组合上划线字符（U+0305）**来给数字添加上方的杠，再通过自定义函数生成符合要求的刻度标签，具体步骤如下：

1. 定义杠记法转换函数 #

这个函数会把负的10进制对数值转换成「杠+特征数.尾数」的格式：

# 生成杠记法刻度标签的函数
bar_log_label <- function(x) {
  # 非负数直接返回原字符，负数处理为杠记法
  ifelse(x >= 0, as.character(x), {
    abs_x <- abs(x)
    # 拆分整数（特征数）和小数（尾数）部分
    int_part <- floor(abs_x)
    dec_part <- abs_x - int_part
    # 给特征数的每个数字加上组合上杠
    bar_int <- paste0(strsplit(as.character(int_part), "")[[1]], "\u0305", collapse = "")
    # 拼接成最终格式，去掉小数部分开头的0
    paste0(bar_int, substr(sprintf("%.5f", dec_part), 2))
  })
}

2. 在ggplot2中应用自定义刻度 #

把上述函数传入scale_x_continuous()（或scale_y_continuous()）的labels参数即可：

library(ggplot2)

# 生成示例数据
set.seed(123)
df <- data.frame(x = seq(-3, 0, by = 0.5), y = rnorm(length(x)))

# 绘制带杠记法刻度的图形
ggplot(df, aes(x, y)) +
  geom_point(size = 2) +
  scale_x_continuous(
    breaks = seq(-3, 0, by = 0.5),
    labels = bar_log_label,
    name = "负10进制对数（杠记法）"
  )

注意事项 #

• 组合上划线（U+0305）是叠加在字符上方的修饰符，需要确保绘图使用的字体支持该字符（多数现代系统字体如Arial、Roboto都兼容）。
• 如果需要更美观的显示效果，可以调整小数部分的精度（修改sprintf("%.5f", dec_part)中的数字5）。

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