msamp <- movies[sample(nrow(movies), 1000), ]
m <- ggplot(msamp, aes(y=rating, x=year)) + geom_point()
m + stat_quantile()
m + stat_quantile(quantiles = 0.5)
m + stat_quantile(quantiles = seq(0.1, 0.9, by=0.1))
# Doesn't work. Not sure why.
# m + stat_quantile(method = rqss, formula = y ~ qss(x), quantiles = 0.5)
# Add aesthetic mappings
m + stat_quantile(aes(weight=votes))
# Change scale
m + stat_quantile(aes(colour = ..quantile..), quantiles = seq(0.05, 0.95, by=0.05))
m + stat_quantile(aes(colour = ..quantile..), quantiles = seq(0.05, 0.95, by=0.05)) +
scale_colour_gradient2(midpoint=0.5, low="green", mid="yellow", high="green")
# Set aesthetics to fixed value
m + stat_quantile(colour="red", size=2, linetype=2)
# Use qplot instead
qplot(year, rating, data=movies, geom="quantile")
Run the code above in your browser using DataLab