# Plotting data 
Height = seq(130, 200, length=1000)
Prob = dnorm(Height, mean=160, sd=6)
plot(Height, Prob, type="l")

# Value to be highlighted 
Height = seq(173, 200, length=1000)
Prob = dnorm(Height, mean=160, sd=6)
polygon(c(173, Height, 200), c(0, Prob, 0), col="red")