#!/usr/bin/Rscript
###########################################
# files-per-year.r
# 2010, Mike Schilli <m@perlmeister.com>
###########################################
commits <- read.csv("perl-git-log.csv")

commits$year <- format(
  as.POSIXlt(
    commits$time, 
    origin="1970-01-01"), 
  "%Y"
)

files.per.year <- table( commits$year )

png(file="files-per-year.png")
plot( files.per.year, 
      xlab="Year", ylab="Files Modified", type = "b" )