Adjusted line of the binomial regression model made in ggplot2

Question

I am trying to fit the line of the binomial model in the observations graph, however, there is a problem in the code.

The data are below: https://drive.google.com/file/d/