如何绘制这种图

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

如题，下图是Logistic回归的一个图，响应变量的散点图，以及整体的logistic曲线图，两种图分开画可以搞定，如何实现在同一幅图中呢，请大神指点。谢谢~O(∩_∩)O~

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：Logistic曲线 logistic回归 logistic ogistic logisti 如何

用ggplot2试试呢

得到一个图后，使用points（）来添加

bbslover 发表于 2016-8-10 20:09
得到一个图后，使用points（）来添加

试过了，好像不太可以

johnmy 发表于 2016-8-10 20:06
用ggplot2试试呢

ggplot2用的不太熟，看书中，好像是普通的绘图系统画出来的

ipony 发表于 2016-8-10 20:24
试过了，好像不太可以

如果你能获得原始数据，一定是可以的。

bbslover 发表于 2016-8-10 20:31
如果你能获得原始数据，一定是可以的。

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")

cheetahfly 发表于 2016-8-10 22:00
x

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

cheetahfly 发表于 2016-8-10 22:00
x

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