dat <- data.frame(sign = rep(c(0,1), 200), resp = rnorm(400, sd=20))
ggplot(dat, aes(resp, sign)) +
geom_smooth(method = "glm", family="binomial", colour='black', size=1.5)
I think this is right.
You can also do this by hand, with slightly more difficulty, by using
predict() on the results of the glm() and using geom_line() and
geom_ribbon()
> --
> You received this message because you are subscribed to the ggplot2
> mailing list.
> Please provide a reproducible example: http://gist.github.com/270442
>
> To post: email ggp...@googlegroups.com
> To unsubscribe: email ggplot2+u...@googlegroups.com
> More options: http://groups.google.com/group/ggplot2