在R/GGPLOT2中绘制百分点指示

Question

我有一个两列数据帧的基本图(x ="Periods"和y ="Range").

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

我试图在下面的每个时期添加一条水平线,该水平线占该时期所有观测值的90%.(它不必是水平线,每个时期的任何视觉指示就足够了).

任何帮助将不胜感激.

Answer 1

好的,我已经阅读了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)