Надеюсь, это поможет вам решить вашу проблему.
Используя пример из ggridges
(https://wilkelab.org/ggridges/articles/introduction.html), я добавил +1
, чтобы избежать нулей (и таким образом Inf
) при взятии log10
library(ggridges)
d <- data.frame(
x = rep(1:5, 3),
y = c(rep(0, 5), rep(1, 5), rep(2, 5)),
height = c(0, 1, 3, 4, 0, 1, 2, 3, 5, 4, 0, 5, 4, 4, 1)
)
ggplot(d, aes(x, (y + 1), height = height, group = y)) +
geom_ridgeline(fill = "lightblue")+
scale_y_log10() +
annotation_logticks(sides = "l")
Генерирует:
![enter image description here](https://i.stack.imgur.com/4LM3V.png)