ggplot with nice log ticks

gg.R

LINE.W <- 0.232 # 0.5pt

breaks_log10 <- function(x) {
    low <- floor(log10(min(x)))
    high <- ceiling(log10(max(x)))
    10^(seq.int(low, high))
}

... scale_y_log10(
            limits = c(1e-3, 10),
            breaks = breaks_log10,
            labels = trans_format("log10", math_format(10^.x))
        ) +
        labs(x = "", y = "") +
        annotation_logticks(sides = "l", size = LINE.W, outside = TRUE, short = unit(0.04, "cm"), mid = unit(0.07, "cm"), long = unit(0.1, "cm")) +
        coord_cartesian(clip = "off")