在R中的折線圖上添加第1 /第3四分位數和第90百分位數

Question

標題說明了所有內容。我想要做的是繪製中位數，但也顯示兩個四分位數以及每個時間點的第90百分位數。

Answer 1

首先，這裏有一個小樣本數據集，其中包含3個時間點的觀測值y（每個時間點的觀測值爲100個）time。

DD < - data.frame（Y = C（RNORM（100，10，2），RNORM（100，15，2），RNORM（100，20,2））， 時間=代表（ C（1,2,3），每= 100））

接下來，根據你想要的東西（這裏只中位數和第一位數總結你的數據，但原理是一樣的，以獲得其他位數）

DD1 < - ddply（DD， 「時間」，概括地說， 值=中值（Y）， firstquart = quantile（y，probs = .01））

最後，用ggplot繪製行 - 第一個分位數爲紅色。

ggplot（DD1，AES（X =時間，Y = MED））+ geom_line（）+ geom_line（AES（X =時間，Y = firstquart），顏色= 「紅」）