將第 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")