R - Trying to plot logistic curve, default plot and using 'curve(predict' does not add in logistic regression line

Question

I\'m trying to plot a logistic regression for two of the variables in my dataset. Structure of the relevant variables -

str(df2)

 $ Threatened     : Factor