tmp <- ggplot(df,aes(x=Type,y=Strength)) + geom_boxplot() + xlab("Type") + ylab("Strength (N") + theme_grey()