# NOT RUN {
library(ggplot2)
ggplot(iris, aes(Species, Sepal.Length)) +
geom_hpline(stat = "summary")
ggplot(iris, aes(Species, Sepal.Length)) +
geom_point(position = "jitter", size = 0.5) +
stat_summary(aes(colour = Species), geom = "hpline", width = 0.6, size = 1.5)
ggplot(iris, aes(Sepal.Length, Species, color = Species)) +
geom_point(color = "grey50", alpha = 0.3, size = 2) +
geom_vpline(data = sampler(5, 1, group = Species), height = 0.4) +
scale_color_brewer(type = "qual", palette = 2, guide = "none") +
facet_wrap(~.draw) +
theme_bw()
# }
Run the code above in your browser using DataLab