岭图中的曲线未出现在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，那将是很棒的。 非常感谢！

Answer 1

这似乎是使用dplyr重新创建您的图：

library(datasets)
library(tidyverse)
library(ggridges)
library(zoo)

data <- fortify.zoo(EuStockMarkets) %>% mutate(Index = as_factor(floor(Index)))

ggplot(data, aes(x = DAX, y = Index, fill = ..x..)) +
  geom_density_ridges_gradient() +
  scale_fill_viridis_c(option = "C",
                       direction = -1,
                       guide = "none") +
  labs(title = "DAX", x = "", y = "")

direction = -1的选项guide = "none"和scale_fill_viridis_c不是必不可少的，但似乎在所示的图中使用了。根据需要将其注释掉。

请以后在提问时出示MWE。