png( "commits_author_month.png", width = 1200, height= 1200 ) 
print( xyplot( commits ~ date | author, data = month_author_data, ylab = "commits / day",
    panel = function(x, y, ...){
        panel.yearlines()
        panel.xyplot( x, y, pch = "+", ... )
        panel.loess.fill( x, y, start = as.Date("1997-01-01"), 
            end = as.Date( "2010-01-01" ), by = "month", 
            lwd = 2, col = "black", ... )
        
    }, ylim = c(0, 220), subset = ! author %in% c( "r", "mike", "(no author)" ) ) )
dev.off()