robjhyndman

par(mar=c(0,0,0,0))
plot(0,0,xlim=c(0,28),ylim=c(0,1),
       xaxt="n",yaxt="n",bty="n",xlab="",ylab="",type="n")
i <- 1
for(j in 1:20)
{
  test <- (6+j):26
  train <- 1:(5+j)
  arrows(0,1-j/20,27,1-j/20,0.05)
  points(train,rep(1-j/20,length(train)),pch=19,col="blue")

dannguyen

The shell script was used to clean the data and upload it to BigQuery. You can access the data yourself there:

https://bigquery.cloud.google.com/table/nypd-data:nypd.stop_and_frisk

Or if you simply want a giant zip of CSV files, go here (note: You'll have to do the work of reconciling the columns in order to get all the files into one database):

http://stash.compciv.org.s3.amazonaws.com/nypd-stop-and-frisk/2003-2013.zip

The R script in this gist produces the image below: