Chronographically coloured, pathed scatter plot

scatter.R

##
## Creates graphs like: 
##	https://twitter.com/mbusigin/status/483370672828055553
##

colourized_scatter <- function(a)
{
	plot(matrix(a, ncol=2), type="l", xlab=names(a)[1], ylab=names(a)[2])
	points(matrix(a, ncol=2), col=rainbow(nrow(a)), pch=16, cex=.5)
	lines(lowess(a), lty=3)
	m = lm(a[,2] ~ a[,1])
	abline(m, lty=3)
	grid()
}