library(data.table)
library(ggpolot2)
numPoints <- 10000
dt <- data.table(a=rnorm(numPoints),b=rnorm(numPoints))
qplot(a,b,data=dt, geom="point", alpha=1)
qplot(a,b,data=dt, geom="point", alpha=0.1)
qplot(a,b,data=dt, geom="point", alpha=0.01)
library(data.table)
library(ggpolot2)
numPoint