感谢DWin的建议,我使用了ave分别找到每个组的 xmin 和 xmax 并将其直接合并到绘图命令中。
可能有一种更优雅的方法来做到这一点(欢迎提出建议),但它确实有效。
qplot(prevRT, RT, group=ss, color = prim,
geom = c("smooth"),
method="lm", data =ss) +
facet_grid(~ Groupe) +
geom_rect(data=ss,
aes(xmin=ave(ss$RT, ss$Groupe, FUN = function(x)quantile(x,c(0.05))),
xmax=ave(ss$RT, ss$Groupe, FUN = function(x)quantile(x,c(0.95))),
ymin=-Inf,ymax=Inf), color="green", alpha=1/280, inherit.aes = FALSE)