プロットロジスティック回帰曲線in R

Question

私のデータのロジスティック回帰曲線をプロットしたいが、プロットしようとすると複数の曲線が得られる。ここに私の最後の試みの絵です：

last attempt

ここで私が使用しています関連するコードは次のとおりです。

fit = glm(output ~ maxhr, data=heart, family=binomial) 
predicted = predict(fit, newdata=heart, type="response") 

plot(output~maxhr, data=heart, col="red4") 
lines(heart$maxhr, predicted, col="green4", lwd=2) 

私の教授は、次のコードを使用していますが、私はそれを実行しようとすると、私はエラーを取得します最後の行で、xとyの長さが一致しないと言っています：

# fit logistic regression model 
fit = glm(output ~ maxhr, data=heart, family=binomial) 
# plot the result 
hr = data.frame(maxhr=seq(80,200,10)) 
probs = predict(fit, newdata=dat, type="response") 
plot(output ~ maxhr, data=heart, col="red4", xlab ="max HR", ylab="P(heart disease)") 
lines(hr$maxhr, probs, col="green4", lwd=2) 

助けてください。

編集： mtcarsデータセットを使用して、再現可能なコードを要求したよう

：

fit = glm(vs ~ hp, data=mtcars, family=binomial) 
predicted= predict(fit, newdata=mtcars, type="response") 
plot(vs~hp, data=mtcars, col="red4") 
lines(mtcars$hp, predicted, col="green4", lwd=2) 

Answer 1

fit = glm(vs ~ hp, data=mtcars, family=binomial) 
newdat <- data.frame(hp=seq(min(mtcars$hp), max(mtcars$hp),len=100)) 
newdat$vs = predict(fit, newdata=newdat, type="response") 
plot(vs~hp, data=mtcars, col="red4") 
lines(vs ~ hp, newdat, col="green4", lwd=2)