如何画出类似这样的图

x1<-c(0,0,1,1)
x2<-c(0,1,0,1)
y<-c(1,2,3,4)
plot(x1,y,ylab="Odds of outcome", xaxt="n")

一种笨办法，供lz参考

1. par(bty="n",xaxt="n", yaxt="n")
   
2. x1<-c(0,2);
   
3. y1<-c(0,2);
   
4. x2<-c(0.1,2.1);
   
5. y2<-c(1,3)
   
6. plot(0:4, type = "n",xlim = c(0,3), ylim =c(-2,4),xlab="",ylab="")
   
7. points(x1,y1,pch=20,cex=1.5);
   
8. points(x2,y2);
   
9. segments(0,-2,0,2);
   
10. segments(0.1,-1.5,0.1,2.5);
    
11. segments(2,1,2,3);
    
12. segments(2.1,2,2.1,4);
    
13. segments(0,0,2,2,lty=2);
    
14. segments(0.1,1,2.1,3,lty=2);

复制代码

1. x<-c(1,1.5,7,7.5);y<-1:4
   
2. plot(x,y,type="n",ylim=c(0,5))
   
3. points(x,y,pch=c(1,19))
   
4. segments(x[1:2],y[1:2],x[3:4],y[3:4],lty=c(2,3))
   
5. segments(x,y+1,x,y-1)

复制代码

x,y自己给定
加减1自由调整
再修改下plot()的参数就出来了。