R+ggplot2：对数分箱直方图添加对数刻度失败问题求助

我生成了对数正态分布的数据，采用对数均匀间隔的非均匀分箱绘制直方图，但使用ggplot2的annotation_logticks函数无法为图表添加对数刻度。以下是完整的可复现代码：

library(tidyverse)
library(scales)

## auxiliary functions
scale_x_log10nice <- function(name=NULL,omag=seq(-20,20),...) {
    breaks10 <- 10^omag
    scale_x_log10(name,breaks=breaks10,
                  labels=scales::trans_format("log10", scales::math_format(10^.x)),...)
}

log_binning <- function(x_min,x_max,n_bin){
x_max <- x_max
m <- n_bin-1
r <- (x_max/x_min)^(1/m)
my_seq <- seq(0,m,by=1)
grid <- x_min*r^my_seq
}

# 生成数据并绘图
set.seed(1234)
n_bins <- 10
df <- tibble(x=rlnorm(10e4, sdlog=2))
my_breaks2 <- log_binning(min(df$x), max(df$x), n_bins)

gpl <- ggplot(df, aes(x=x )) +
theme_bw()+
geom_histogram(colour="black", fill="blue", breaks=my_breaks2)+
scale_x_log10nice("x values")

# 添加对数刻度后不显示
gpl2 <- gpl+
    annotation_logticks(sides="b", outside=T)
gpl2

问题原因分析 #

主要有两个核心原因导致对数刻度不显示：

• 绘图区域边距不足：设置outside=T后，对数刻度会绘制在绘图区域外部，但默认的plot.margin底部空间太小，刻度直接被裁剪掉了。
• 你的自定义对数分箱和刻度逻辑本身是没问题的，只是视觉显示的空间没预留出来。

解决方案 #

调整绘图区域的底部边距，给外部刻度留出足够空间即可。修改后的代码如下：

# 调整后的代码
gpl2 <- gpl +
    annotation_logticks(sides="b", outside=T) +
    theme(plot.margin = margin(10, 10, 25, 10)) # 增加底部边距，单位为pt

gpl2

额外优化建议 #

• 如果希望刻度层级更清晰，可以自定义主、次、微刻度的长度：

  annotation_logticks(sides="b", outside=T, 
                      length = unit(c(0.2, 0.15, 0.1), "cm")) # 依次对应主、次、微刻度
  

• 你的scale_x_log10nice已经完成了对数坐标变换，不需要额外添加coord_trans(x="log10")，避免重复变换导致混乱。

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