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

# istogramma
hist(SLID$age)
# segmento della mediana
segments(median(SLID$age), -30,            # punto di inizio (x, y)
         median(SLID$age), 850,            # punto di fine (x, y)
         lwd = 2)                          # spessore della linea
# etichetta
text(x = median(SLID$age) + 8, 
     y = 850, 
     "mediana")