# NOT RUN {
ggplot(economics, aes(x = date, y = unemploy)) +
geom_line() +
geom_tshighlight(aes(xmin = as.Date("01/01/1990", format = "%d/%m/%Y"),
xmax = as.Date("01/01/2000", format = "%d/%m/%Y")),
alpha = 0.01)
# }
Run the code above in your browser using DataLab