R 如何混合密度函数和时间序列图

有没有办法绘制时间序列上的密度图？我在找这样的东西：

克劳斯·威尔克在电影的小插曲中扮演了重要角色。这是一个可复制的例子，说明了它是如何完成的：

library(ggridges)
library(ggplot2movies)

ggplot(movies[movies$year>1912,], aes(x = length, y = year, group = year)) +
  geom_density_ridges(scale = 10, size = 0.25, rel_min_height = 0.03) +
  theme_ridges() +
  scale_x_continuous(limits=c(1, 200), expand = c(0.01, 0)) +
  scale_y_reverse(breaks=c(2000, 1980, 1960, 1940, 1920, 1900), expand = c(0.01, 0))

每年的胶片长度

---

发布一些数据，展示你的尝试。