How to get minimum of y when x is maximum in R?

Question

I want to find the minimum of y where x is maximum. I could able to add a line in the plot when y is minimum using the following code

library(tidyverse)
ggplot(da