x<-seq(from=-10,to=10,by=0.05)
y<-runif(400,min = 0,max = 1)
y[y<0.5]<-0
y[y>=0.5]<-1
plot(y,
     xlab = "Explanatory Variable X",
     ylab = "Probablity",
     main = "Logistic Regression Model",
     col=rgb(216,157,61,maxColorValue = 255))
points(x,exp(x)/(1+exp(x)))

我用这样的代码，那个S形曲线无法伸展，而且横坐标轴也和x不一样，请问老师咋解决呢？

x <- seq(from = -10, to = 10, by = 0.05)
y <- sample(c(0,1), 401, replace = TRUE)
plot(x,  xlab = "Explanatory Variable X", ylab = "Probablity",
      main = "Logistic Regression Model", xlim = range(x), ylim = c(0,1),
      type = "n")
points(x, y, cex=0.5, pch ="|", col="orange")
lines(x, exp(x)/(1+exp(x)), lwd = 3, col = "lightblue")

万分感谢大神，太厉害了，32个赞

最后一点疑问，原图中横轴的刻度并不是绘制logistic曲线的x好像，这个能改吗，谢谢老师

plot(0, xlab = "Explanatory Variable X", ylab = "Probablity",
      main = "Logistic Regression Model", xlim = c(0, 2500),
      ylim = c(0,1), type = "n")
points(seq(0,2500,length.out = 401), y, cex=0.5, pch ="|", col="orange")
lines(seq(0,2500,length.out = 401), exp(x)/(1+exp(x)), lwd = 3, col = "lightblue")

膜拜大神