r - R/GGPLOT2中的绘图百分位指示

我有两列数据框的基本图（x =“ Periods”和y =“ Range”）。

library (ggplot2)
qplot (Periods, Range, data=twocoltest, color=Periods, size = 3,) + geom_jitter(position=position_jitter(width=0.2))

我试图在每个时间段添加一条水平线，该水平线低于该时间段所有观测值的90％。 （它不必是一条水平线，每个周期的任何视觉指示就足够了）。

任何帮助将不胜感激。

最佳答案

好了，我已经阅读了ggplot帮助，现在开始吧：

# example data
twocoltest <- data.frame(Periods=rep(1:3,each=3),Range=1:9)

library(ggplot2)
c <- qplot (Periods, Range, data=twocoltest, color=Periods, size = 3,) + geom_jitter(position=position_jitter(width=0.2))
q90 <- function(x) {quantile(x,probs=0.9)}

c + stat_summary(fun.y=q90, colour="red", geom="crossbar", size = 1, ymin=0, ymax=0)