Need help with displaying log tick marks

[constantbeta]

Hi
I have a stat_bin plot with a log scale on y-axis. I'm trying to insert log ticks on the y-axis here. But on using annotation_logticks(sides="l"), the log ticks are not aligning with the labels. I have attached a reference figure showing the problem.

q <- p + scale_y_continuous(expand = c(0, 0), trans = pseudo_log_trans(0.0001, 1000), breaks=c(0.001,0.01,0.1,1,10,100), limits=c(0.001,150), 
    labels = scales::trans_format("log10", scales::math_format(10^.x)), 
    sec.axis = sec_axis(~.*1500, name = "Sec. Axis", breaks=c(1,10,100,1000,10000,100000),
     labels = scales::trans_format("log10", scales::math_format(10^.x)))) 
q + annotation_logticks(sides="l")

How to align the log ticks accurately on the primary y-axis.
Thank you.

[AlexisW]

In ?annotation_logticks

These tick marks probably make sense only for base 10.

And indeed, if you change that:

trans = scales::pseudo_log_trans(0.0001, base = 10), 

it's aligned.

reprex:

library(ggplot2)
library(tibble)

set.seed(123)
dat <- tibble(Variables = 1:5,
              Quantity = runif(5, .001, 150))

dat
#> # A tibble: 5 × 2
#>   Variables Quantity
#>       <int>    <dbl>
#> 1         1     43.1
#> 2         2    118. 
#> 3         3     61.3
#> 4         4    132. 
#> 5         5    141.

p <- ggplot(dat) +
  geom_point(aes(x = Variables, y = Quantity))

q <- p +
  scale_y_continuous(expand = c(0, 0), 
                     trans = scales::pseudo_log_trans(0.0001, 10), 
                     breaks=c(0.001,0.01,0.1,1,10,100), 
                     limits=c(0.001,150), 
                     labels = scales::trans_format("log10",
                                                   scales::math_format(10^.x)), 
                     sec.axis = sec_axis(~.*1500,
                                         name = "Sec. Axis",
                                         breaks=c(1,10,100,1000,10000,100000),
                                         labels = scales::trans_format("log10",
                                                                       scales::math_format(10^.x)))) 
q + annotation_logticks(sides="l")

^{Created on 2023-01-19 by the reprex package (v2.0.1)}

[constantbeta]

That works. Thank you, I appreciate the help. I have a follow-up question, would it be possible to do the same for the secondary y-axis?