单独的密度图与相同的颜色

Question

我正在尝试创建一个具有数百个背景密度和单个观察密度的图。我希望每个背景密度具有相同的外观（颜色，线型等），并且观察到的密度将是唯一不同的。

是否有一种简单的方法可以对背景数据进行“分组”，以便将每个密度绘制为单独的一行而不用颜色/形状/填充/等等...？

这是我最接近的，但我希望密度图都具有相同的外观：

df <- replicate(100,{rnorm(20,0)}) %>% cbind(rnorm(20,1)) %>% melt ggplot(df) + geom_density(aes(x=value, color=factor(Var2)),alpha=.1) + geom_density(data=df[df$Var2==101,], aes(x=value),color="black")