R ggplot双X轴求助：线性底轴与对数顶轴设置失效

问题分析 #

你遇到的核心问题有两个：

• 同时用不同尺度的var1（1-5）和var3（1e-6到1e-3）作为X轴，导致红色点全部挤在X接近0的位置，顶部轴刻度范围和底部轴完全不匹配；
• 顶部轴没做对数变换，直接用线性刻度显示极小的var3数值，自然会挤在一起。

解决方案代码 #

library(ggplot2)
library(scales)

d1 <- data.frame(var1=c(1,2,3,4,5),
                 var2=c(100,110,99,94,100),
                 var3=c(1e-6,12e-6,27e-6,1e-5,1e-3))

# 把Var3的对数数值映射到Var1的轴范围，让双X轴刻度对齐
ggplot(d1, aes(y = var2)) +
  # 蓝色点用Var1作为主X轴（线性刻度）
  geom_point(aes(x = var1), col = "blue") +
  # 红色点将Var3的log10值线性映射到Var1的1-5区间，保证位置对应
  geom_point(aes(x = (log10(var3) + 6) * 4/3 + 1), col = "red") +
  scale_x_continuous(
    name = "Var1（线性刻度）",
    sec.axis = sec_axis(
      # 逆变换：把主X轴的数值转回Var3的原始值
      trans = ~ 10^((. - 1) * 3/4 - 6),
      # 设置对数刻度的关键节点
      breaks = c(1e-6, 1e-5, 1e-4, 1e-3),
      # 自动生成规范的对数标签（比如1e-6）
      labels = label_log(),
      name = "Var3（对数刻度）",
      # 对顶部轴启用对数变换，解决刻度拥挤
      trans = "log10"
    )
  ) +
  ylab("Var2（线性刻度）") +
  theme_bw()

关键说明 #

1. 数值映射：先把var3的log10值（范围-6到-3）线性转换到var1的1-5区间，确保红色点和蓝色点的X位置一一对应，不会挤在轴的边缘；
2. 对数变换：顶部轴通过trans="log10"启用对数刻度，让极小的var3数值均匀分布，不再拥挤；
3. 标签优化：用label_log()自动生成规范的对数标签，比手动输入更简洁美观。

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