r - Rのプロットにリッジプロット曲線が表示されない

Question

このリッジ プロットを再作成しようとしています。

https://i.stack.imgur.com/QAFs1.jpg

ただし、曲線をプロットに表示することはできないようです。ご想像のとおり、私は r に非常に慣れていないので、https://bytefish.de/blog/timeseries_databases_5_visualization_with_ggridgesをかなりコピーしました。 /私がいる場所にたどり着くために。

コードは次のとおりです。

eustockmark_index <- fortify.zoo(EuStockMarkets)

eustockmark_index$Index=as.factor(eustockmark_index$Index)
eustockmark_index$Index=factor(eustockmark_index$Index,levels=c(1991,1992,1993,1994,1995,1996,1997,1998))
eustockmark_index$Index= trimws(eustockmark_index$Index)

eustockmark_index

ggplot(eustockmark_index, aes(x = `DAX`, y =`Index`,fill=..x..)) +
  geom_density_ridges_gradient() +
  labs(title = "DAX",
       x = " ",
       y = " ")+
  scale_fill_viridis(option = "C")

また、Y 軸の上部に NA がある理由を誰かが説明できれば、それは素晴らしいことです。どうもありがとう！