如图

,怎么让两图中间间隔减小,然后去掉右图的标度(即去掉0.0,0.2,,,0.8,1),进一步让下坐标density,Expression correlation更靠近点图形。以下是我写的一段画上图的代码#画经验累积分布函数
split.screen(c(1,2)) #分屏幕为左右两边
screen(1) #屏幕1预备输出
plot(ecdf(density_Mi),do.points=FALSE, col="red",xlim=c(0,0.3),main=" ",
xlab="density",ylab="Cumulative probability",
verticals=TRUE)
lines(ecdf(density_my),do.points=FALSE, col="blue",verticals=TRUE)
lines(ecdf(density_SN),do.points=FALSE, col="green",verticals=TRUE)
screen(2) #屏幕2预备输出
plot(ecdf(cor_Mi),do.points=FALSE, col="red",xlim=c(-0.2,0.48),main=" ",
xlab="Expression correlation",ylab="",
verticals=TRUE)
lines(ecdf(cor_my),do.points=FALSE, col="blue",verticals=TRUE)
lines(ecdf(cor_SN),do.points=FALSE, col="green",verticals=TRUE)
如何改进优化,望大神指教啊,谢谢。