用R语言做了个Logistics回归结果的图，想请教一下对不对？ logistic<-glm(Status~log10('A')+Age+relevel(Sex,'male')+BMI,data = data1,family = binomial()) summary(logistic) p.logistic<-predict(logistic,type = 'response') figure<-ggplot(data = data1,aes(x= log10('A') ,y=exp(p.logistic)))+geom_point()+   geom_smooth(aes(x= log10('A') ,y=exp(p.logistic)),method='lm',formula=y~rcs(x,3),se=TRUE) figure