hist(SLID$wages,
     main = "Retribuzione",
     col = "gray",
     xlab = "Retribuzione")