如何在R语言ggplot中仅将主Y轴（而非次Y轴）设置为log10刻度

你遇到的问题本质是ggplot的双Y轴共享底层的坐标轴刻度，所以直接用scale_y_log10或者coord_trans会把两个轴都改成log刻度，甚至导致次轴数据丢失。要实现仅主Y轴（对应Var1的虚线）为log刻度，需要先对Var1做log10转换，再手动调整主、次Y轴的刻度标签来匹配原始数值。

核心思路 #

1. 提前转换Var1：在绘制虚线和点的时候，直接使用log10(Var1)作为y值，这样绘图时的主轴刻度是log后的数值，但我们要把标签显示为原始数值的log10形式（比如10^3）。
2. 调整主Y轴刻度：用scale_y_continuous设置主轴的breaks和labels，映射回原始Var1的log10刻度。
3. 匹配次Y轴变换：次Y轴的Var2原本是通过*1000来对齐原始Var1的范围，现在主轴是log10(Var1)，所以需要把Var2的数值先转换为log10(Var2*1000)来匹配主轴刻度，然后在次轴标签中再转换回原始Var2的数值。

修改后的完整代码 #

library(ggplot2)
library(scales)  # 需用到trans_breaks和math_format工具

data<- data.frame( 
  Day=c(1,2,3,1,2,3,1,2,3), 
  Name=rep(c(rep("a",3),rep("b",3),rep("c",3))), 
  Var1=c(1090,484,64010,1090,484,64010,1090,484,64010), 
  Var2= c(4,16,39,2,22,39,41,10,3) 
) 

ggplot(data) + 
  # 柱状图：Var2*1000后转log10，匹配主轴的log刻度范围
  geom_bar(aes(fill=Name, y=log10(Var2*1000), x=Day),
           stat="identity", colour="black", position= position_stack(reverse = TRUE))+ 
  # 虚线和点：直接用log10(Var1)作为y值，放大数值差异
  geom_line(aes(x=Day, y=log10(Var1)),
            stat="identity",color="black", linetype="dotted", size=0.8)+ 
  geom_point(aes(Day, log10(Var1)), shape=8)+ 
  labs(title= "", x="",y=expression('Var1 (log'[10]*' scale)'))+ 
  scale_y_continuous(
    # 主Y轴：自动生成log10刻度断点，标签显示为10^x的数学形式
    breaks = trans_breaks("log10", function(x) 10^x),
    labels = trans_format("log10", math_format(10^.x)),
    # 次Y轴：把主轴的log值还原为原始Var2的数值
    sec.axis=sec_axis(~ 10^.x / 1000, name= expression(paste("Var2")))
  )+ 
  theme_classic()+ 
  scale_fill_grey(start = 1, end=0.1,name = "", labels = c("a", "b", "c"))

关键细节解释 #

• 柱状图的y值转换：因为主轴现在是log10刻度，Var2需要先乘1000（和你原来的对齐逻辑一致）再取log10，才能和主轴刻度匹配，保证柱状图正常显示。
• 主Y轴的刻度设置：trans_breaks会自动根据Var1的范围生成合适的log10断点，math_format让标签显示为专业的数学表达式，更符合log刻度的阅读习惯。
• 次Y轴的逆变换：~10^.x /1000的作用是把主轴的log10值还原为Var2的原始数值（主轴y值是log10(Var2*1000)，逆运算就是10^y /1000），确保次轴显示的是真实的Var2数据。

这样修改后，你就能看到主Y轴是log10刻度，虚线（Var1）的数值差异被显著放大，次Y轴依然保持线性刻度显示Var2的原始数值，图表也不会出现空白或数据丢失的问题。

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