Convert plot to ggplot and add horizontal lines until specific points

Question

I have creted the plot below using the base R plot() function but I would like to convert it to ggplot() and also add horizontal lines like in the