我需要帮助在R中将这两个图合并成一个
有人能帮我把这两张显示性别0和男性1的图表结合起来吗我需要帮助在R中将这两个图合并成一个,r,regression,R,Regression,有人能帮我把这两张显示性别0和男性1的图表结合起来吗 ## When Gender = 0 int<- -3.4839 FC<- -0.5278 FCV<-seq(1,4,by=.5) EY<-plogis(int+FC*FCV) plot(EY~FCV,type="o",col.lab="black", cex.lab=1,col.axis="black",col="purple",xlab="Family Cohesion When Gender is ", yl
## When Gender = 0
int<- -3.4839
FC<- -0.5278
FCV<-seq(1,4,by=.5)
EY<-plogis(int+FC*FCV)
plot(EY~FCV,type="o",col.lab="black", cex.lab=1,col.axis="black",col="purple",xlab="Family Cohesion When Gender is ", ylab="Expected Probability of Binge Drinking", mar=c(7,7))
## When Gender = 1
int<- -3.4839+ -0.6433
FC<- -0.5278
FCV<-seq(1,4,by=.5)
EY<-plogis(int+FC*FCV)
plot(EY~FCV,type="o",col.lab="black", cex.lab=1,col.axis="black",col="blue",xlab="Family Cohesion", ylab="Expected Probability of Binge Drinking", mar=c(7,7))
##当性别=0时
这就是你想要的吗
int<- -3.4839
FC<- -0.5278
FCV<-seq(1,4,by=.5)
EY<-plogis(int+FC*FCV)
plot(EY~FCV,type="o",col.lab="black", cex.lab=1,col.axis="black",col="purple",
xlab="Family Cohesion When Gender is ", ylab="Expected Probability of Binge Drinking",
mar=c(7,7),ylim=c(0,0.02))
int<- -3.4839+ -0.6433
FC<- -0.5278
FCV<-seq(1,4,by=.5)
EY<-plogis(int+FC*FCV)
lines(EY~FCV,type="o",col.lab="black", cex.lab=1,col.axis="black", col="blue",
xlab="Family Cohesion", ylab="Expected Probability of Binge Drinking", mar=c(7,7))
intSee点和线