R - visreg没有正确使用glm

Question

对于我的data.frame df：

dichotomous_dependent       Oil_Average_pct_change
               0                     2.26
               1                    -1.13
               0                     4.71
               1                     0.98
               1                     3.59

我有一个回归：

reg <- glm(formula = dichotomous_dependent ~ Oil_Average_pct_change, data = 
            df, family = binomial)

但是，当我运行visreg(reg, xvar ~ Oil_Average_pct_change)

时

我得到的图表看起来像 this

有谁知道造成这种情况的原因是什么？我怀疑我可能没有正确使用glm()，但我不确定

我想要一个像this这样的图表，其中S曲线适合数据