# dati
data(SLID, package = "carData")

# boxplot con etichette
boxplot(scale(SLID[1:3]), 
        names = c("Retribuzione", "Istruzione", "Età"))    
        
# retta della media           
abline(h = 0,                                # media = 0
       lty = 2)