La funzione segments() richiede di indicare le coordinate del punto di inizio e quelle del punto di fine della linea:

# 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

Aggiungiamo anche una etichetta, con la funzione text():

# etichetta
# etichetta
text(x = median(SLID$age) + 8, 
     y = 850, 
     "mediana")

Es_segments.R

# 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")