scale_y_discrete add label from vector

Question

does anyone know how to remove the word "name_id" on the y-axis?

Here is the code:

library(lubridate)
fouryears <-   # set start y