28.12

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