#!/usr/bin/Rscript
###########################################
# file-plot.r
# 2010, Mike Schilli <m@perlmeister.com>
###########################################
commits <- read.csv("perl-git-log.csv")
files <- commits$file
data=tail(sort(table(files)), n = 20L)
data=rev(data)
png(file="files.png")
plot(data, type="h", main="File Commits in Perl Git Repo", 
     xlab="Most modified files", 
     ylab="Number of commits per file")