> ??smoothScatter()

> library(graphics)

> oldpar <- par(mfrow = c(2, 2))

> smoothScatter(quality, nrpoints = 0)

> smoothScatter(quality)

>

> ## a different color scheme:

> Lab.palette <- colorRampPalette(c("blue", "orange", "red"), space = "Lab")

> smoothScatter(quality, colramp = Lab.palette)

>

>

> oldpar <- par(mfrow = c(2, 2))

> smoothScatter(fixed.acidity, nrpoints = 0)

> smoothScatter(quality)

>

> ## a different color scheme:

> Lab.palette <- colorRampPalette(c("blue", "orange", "red"), space = "Lab")

> smoothScatter(quality, colramp = Lab.palette)

>

>

> oldpar <- par(mfrow = c(2, 2))

> smoothScatter(fixed.acidity, nrpoints = 0)

> smoothScatter(quality)

>

> ## a different color scheme:

> Lab.palette <- colorRampPalette(c("blue", "orange", "red"), space = "Lab")

> smoothScatter(fixed.acidity, colramp = Lab.palette)

>

>