R中的逻辑回归图给出的是直线而不是S形曲线

Question

我正在绘制逻辑回归的结果，但是我得到的直线不是预期的S曲线：

这是我正在使用的代码：

我从原始x轴创建了一系列数据，将其转换为数据框，然后进行了预测并绘制了线条。

 model = glm(SHOT_RESULT~SHOT_DISTANCE,family='binomial',data = df_2shot)
 summary(model)
 #Eqn : P(SHOT_RESULT = True) = 1 / (1 + e^-(0.306 - 0.0586(SHOT_DISTANCE)))

 r = range(df_2shot$SHOT_DISTANCE) # draws a curve based on prediction
 x_range = seq(r[1],r[2],1)
 x_range = as.integer(x_range)
 y = predict(model,data.frame(SHOT_DISTANCE = x_range),type="response")
 plot(df_2shot$SHOT_DISTANCE, df_2shot$SHOT_RESULT, pch = 16,
      xlab = "SHOT DISTANCE", ylab = "SHOT RESULT")
 lines(x_range,y)

旁注：我正在关注本教程：http : //www.theanalysisfactor.com/r-glm-plotting/

任何见解将不胜感激！谢谢！:)

Answer 1

哈哈，我知道发生了什么事。这是因为您绘制的范围。我从注释行中看到了曲线的功能形式，并将其定义为一个函数：

f <- function (x) 1 / (1 + exp(-0.306 + 0.0586 * x))

现在，如果我们绘图

x <- -100 : 100
plot(x, f(x), type = "l")

Logistic曲线在中间具有接近线性的形状。那就是你到达的地方！