r - 如何绘制多个垂直偏移密度函数

Question

我有一个时间序列的单变量分布，我想更紧凑地可视化。我知道如何将多个密度函数添加到同一组轴，但我想垂直偏移每个函数以显示分布随时间的演变。

Answer 1

ggplot 非常适合这种类型的东西（这里只是使用相同的发行版）：

library(ggplot2)
ggplot(df, aes(x=x, y=values, color=ind)) + geom_line() + facet_wrap(~ ind, ncol=1)

我使用的玩具数据：

df <- stack(setNames(replicate(5, dnorm((-30:30)/10), s=F), letters[1:5]))
df$x <- ave(df$value, df$ind, FUN=seq_along)