In R how do I get week 9 highlighted in my graph?

Question

I am very new to coding and know this probably a bad way of doing a lot of things here, especially the indexing, but specifically, I want to know how I can get the week 9 bar to