Another approach which I'm pleased with but was not suggested so far is jitter + kde2d from MASS:
plot(jitter(x), jitter(y)) if (!exists("kde2d")) require(MASS) kdesamp <- 20000 #depending on your RAM forkde <- if (kdesamp < length(x)) sample(1:length(x), kdesamp, replace=FALSE) else 1:length(x) d <- kde2d(x[forkde], y[forkde]) contour(d, add=TRUE) > -----Original Message----- > From: [EMAIL PROTECTED] > Subject: Re: [R] Scatterplot Showing All Points > ______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.