r - 在 R / GGPLOT2 中绘制百分比指示

Question

我有一个两列数据框的基本图（x =“期间”和 y =“范围”）。

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)