在ggridges中绘制两个范畴向量

Question

我有一个包含几个有机体的数据集，我想在y轴上绘制，相对于日期，我想在x轴上绘制。然而，我希望曲线的波动代表生物体的丰度。也就是说，我想用有机体分离的相对丰度绘制一个时间序列，以显示与时间相似的模式。

然而，当然，仅仅针对一个有机体绘制日期并不能给出任何关于丰度的信息。那么，我的问题是，是否有一种方法，使曲线表示丰富使用ggridges？

下面是示例数据集的代码：

set.seed(1)
Data <- data.frame(
  Abundance = sample(1:100),
  Organism = sample(c("organism1", "organism2"), 100, replace = TRUE)
)
Date = rep(seq(from = as.Date("2016-01-01"), to = as.Date("2016-10-01"), by = 
'month'),times=10)
Data <- cbind(Date, Data)

ggplot(Data, aes(x = Abundance, y = Organism)) + 
  geom_density_ridges(scale=1.15, alpha=0.6, color="grey90")

这就产生了一个与这两个有机体的图，然而，我想要的日期在x轴，而不是丰度。然而，这是行不通的。我读到过，您需要指定group=Date或将日期更改为julian，但是，这并不改变我没有将丰富的内容包含到其中这一事实。

有没有人有一个图表的例子与日期与一个范畴变量(即有机体)绘制的连续变量在格栅？

我非常喜欢从ggridges输出，并希望能够将它用于这些可视化。提前感谢您的帮助！

干杯，安妮

Answer 1

要使用geom_density_ridges，它将有助于重塑数据以在单独的行中显示观察结果，而不是Abundance所总结的那样。

library(ggplot2); library(ggridges); library(dplyr)
# Uncount copies the row "Abundance" number of times
Data_sum <- Data %>%
  tidyr::uncount(Abundance)

ggplot(Data_sum, aes(x = Date, y = Organism)) + 
  ggridges::geom_density_ridges(scale=1, alpha=0.6, color="grey90")

​

​