将第 1/3 个四分位数和第 90 个百分位数添加到 R 中的折线图

Question

标题说明了一切。 我想要做的是绘制中位数，但还要显示每个时间点的两个四分位数以及第 90 个百分位数。

Answer 1

首先，这是一个小样本数据集，其中y为 3 个时间点time （每个时间点 100 个观察值）。

dd <- data.frame(y=c(rnorm(100, 10, 2), rnorm(100, 15, 2), rnorm(100, 20,2)), time=rep(c(1,2,3) )，每个=100))

接下来，根据你想要的来总结你的数据（这里只有中位数和第一个分位数，但获取其他分位数的原理是相同的）

dd1 <- ddply(dd, "time", summarise, med=median(y), firstquart=quantile(y, probs=.01))

最后，用ggplot绘制线条 - 第一个分位数为红色。

ggplot(dd1, aes(x=time, y=med)) + geom_line()+geom_line(aes(x=time, y=firstquart), colour="red")