# random points
set.seed(1)
x <- rnorm(5000) # x coord
y <- rnorm(5000) # y coord
dist <- sqrt(x^2+y^2) # distance from origin
# default plotting
plot(x,y, col=NA)
colorpoints(x=x, y=y, z=dist)
# custom color scheme
levs<- data.frame(color=rainbow(5), z=c(0, 0.5,1, 3, 4.5))
ramp <-expand(levs, n=256)
# very customized (experiment with difference device sizes!)
plot(x,y, col=NA, main="Distance to origin")
colorpoints(x=x, y=y, z=dist,
col=paste0(ramp$col, "BB"),
breaks=ramp$breaks,
pch=16,
legend=list(x=3,y=0,cex=0.7, box.args=list(border=NA)))
Run the code above in your browser using DataLab