``` df <- read.csv("~/github/aphd/smac-corpus-api/data/metrics.csv", header = TRUE) str(df) boxplot(df$modifiers, main="Number of modifiers") with(df[df$modifiers < 10,], boxplot(modifiers, main="Number of modifiers per ...")) ```
