如何实现-1至1区间伪对数等距刻度的图表坐标轴？

自定义伪对数变换 #

要实现你需要的刻度等距效果，我们可以自定义一个伪对数变换，在-1到1区间内对数值进行对数转换，区间外切换为线性刻度（也可按需改为对数刻度）。以下是基于R语言ggplot2和scales包的实现方案：

首先定义变换函数和逆变换函数：

library(ggplot2)
library(scales)

# 自定义伪对数变换
pseudo_log_trans <- function() {
  trans_new(
    name = "pseudo_log",
    transform = function(x) {
      case_when(
        x > 1 ~ x + 2,  # 大于1时用线性，衔接x=1对应的变换值3
        x > 0 & x <=1 ~ log10(x * 100) + 1,  # 0-1区间：0.01→1，0.1→2，1→3
        x == 0 ~ 0,
        x >= -1 & x <0 ~ -(log10(abs(x) * 100) + 1),  # -1-0区间：-0.01→-1，-0.1→-2，-1→-3
        x < -1 ~ x - 2  # 小于-1时用线性，衔接x=-1对应的变换值-3
      )
    },
    inverse = function(y) {
      case_when(
        y > 3 ~ y - 2,
        y > 0 & y <=3 ~ 10^(y -1)/100,
        y ==0 ~0,
        y >= -3 & y <0 ~ -10^(-y -1)/100,
        y < -3 ~ y +2
      )
    },
    domain = c(-Inf, Inf)
  )
}

绘制小提琴图示例 #

我们模拟一组符合你数据范围（-0.68至2.12）的数据，验证变换效果：

# 模拟数据
set.seed(123)
data <- data.frame(
  group = rep(c("A", "B"), each = 500),
  value = c(rnorm(500, mean = 0.2, sd = 0.3), rnorm(500, mean = 1.5, sd = 0.4))
)

# 绘制小提琴图，关闭trim
ggplot(data, aes(x = group, y = value)) +
  geom_violin(trim = FALSE) +
  scale_y_continuous(
    breaks = c(-1, -0.1, -0.01, 0, 0.01, 0.1, 1, 2, 3),  # 设置需要的刻度点
    labels = c("-1", "-0.1", "-0.01", "0", "0.01", "0.1", "1", "2", "3"),
    trans = pseudo_log_trans()
  ) +
  theme_minimal()

关键说明 #

• 变换逻辑：在-1到1区间内，通过对数变换让目标刻度点转换后等距分布；区间外使用线性变换，保证刻度衔接自然。如果需要区间外继续用对数刻度，只需修改x>1和x<-1的变换逻辑（调整偏移量保证刻度连续即可）。
• 解决trim=FALSE异常：自定义变换是单调可逆的，不会像sqrt变换那样因非单调特性导致图表范围异常，能准确反映数据实际分布。

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