annotation_logticks с преобразованием log1p

Question

Есть ли способ настроить annotation_logticks() в ggplot2 для работы с log1p преобразованием?

Пример:

library("ggplot2")
df <- data.frame(trt = c("a", "b", "c"), outcome = c(5, 10, 30))
p <- ggplot(df, aes(trt, outcome)) + geom_col()

Это дает желаемые результаты:

p + scale_y_continuous(trans = "log") +
  annotation_logticks(base = exp(1), sides = "l")

Это не так (обратите внимание, что два набора тиков не совпадают):

p + scale_y_continuous(trans = "log1p") +
  annotation_logticks(base = exp(1), sides = "l")

Answer 1

Использование breaks в пределах scale_y_continuous:

p  + scale_y_continuous(trans = "log1p", breaks = c(1, 5, 10, 20))