脊图曲线未出现在 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

脊图曲线未出现在 r 中的图中

Ridge plot curves not appearing in plot in r

r

ggplot2

ridgeline-plot