Source code width (vim)

stdout <- system("find ~/src/vim -type f -name '*.[ch]' | xargs awk '{print length($0)}'", 
    intern = TRUE)
d <- read.table(text = stdout, col.names = c("width"))
d$width = as.numeric(d$width)
summary(d)

##      width    
##  Min.   :  0  
##  1st Qu.:  6  
##  Median : 19  
##  Mean   : 24  
##  3rd Qu.: 38  
##  Max.   :770  

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