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)