Not easy to produce cool looking graphs in R, but it can be done. The results of some messing around are above. Here is the code I used:
x = runif(1000) y = x/runif(1000) cexes = 10*y/max(y) # For circle size par(bg="black") # I see a white background and I want it painted black. par(mar=c(0,0,0,0)) # Margins? We don't kneed no stinkin' margins. plot(x,log(y), pch=20, col="white", cex=cexes)