Source code width

stdout <- system("find ~/labworks/classifier -type f -name *.java | xargs awk '{print length($0)}'", 
    intern = TRUE)
d <- read.table(text = stdout, col.names = c("width"))
summary(d)

##      width      
##  Min.   :  0.0  
##  1st Qu.:  3.0  
##  Median : 25.0  
##  Mean   : 27.8  
##  3rd Qu.: 42.0  
##  Max.   :153.0  

library(ggplot2)
ggplot(d, aes(width)) + geom_histogram(binwidth = 2)