R --vanilla << EOF
png("repos.png",width=500,height=500,units="px",pointsize=10)
data <- read.table("data.txt",sep=":")
userFollows <- hist(data\$V1,breaks=50,plot=FALSE)
repoFollows <- hist(data\$V2,breaks=50,plot=FALSE)
plot(userFollows\$counts,pch=20,type='n',main='User/Repository Counts Aug 14',xlab='', ylab='')
lines(spline(userFollows\$counts,method='n',n=500), lty=1, lwd = 2)
lines(spline(repoFollows\$counts,method='n',n=500), lty=2, lwd = 2)
legend("topright", legend=c("Users:Repositories","Repositories:Users"),lty=c(1,2))
dev.off()