m <- pHcolourmap(c(3,8))
g <- symbolmap(pch=21, bg=m, size=function(x){ 1.1 * x }, range=c(3,8))
opa <- par(mfrow=c(1,2))
plot(g, vertical=TRUE)
plot(as.colourmap(g), vertical=TRUE)
par(opa)
Run the code above in your browser using DataLab