逻辑回归图

Question

我试图在R中绘制逻辑回归曲线，但花了一些时间研究答案后出现了似乎无法解决的错误。

这是我使用的语法/代码：

fit = glm (ProviderRating ~ AvgMonthlyMME_PercentChange, family="binomial", data=data1)

newdat <- data.frame(AvgMonthlyMME_PercentChange = 
                     seq(min(data1$AvgMonthlyMME_PercentChange), 
                         max(data1$AvgMonthlyMME_PercentChange), len=100)

newdat$ProviderRating = predict(fit, newdata=newdat, type="response")

plot(ProviderRating ~ AvgMonthlyMME_PercentChange, data=data1, 
     xlab="Percent Change in Avg. Monthly MME",
     ylab = "Probability of 'Excellent' Provider Rating", 
     col="red4")
lines(ProviderRating ~ AvgMonthlyMME_PercentChange, 
      newdat, col="green4", lwd=2)

这是我从R收到的错误：

错误：
中出现意外符号 “ newdat <-data.frame（AvgMonthlyMME_PercentChange = seq（min（data1 $ AvgMonthlyMME_PercentChange），max（data1 $ AvgMonthlyMME_PercentChange），len = 100）
newdat”

欢迎提出解决错误的想法。