When many repo_statistics.pdf files are generated, it's difficult to tell which plot (i.e., for which student/user/directory) you're looking at... changing the plot title to the name of the working directory is one possible way to address that.
p <- p + ggtitle("Commit Activity over Time")
becomes
p <- p + ggtitle(paste("Commit Activity over Time:", working.directory))