怎样画这样的图形（请各位大侠指点一下）

这是相关的程序,我想画z$binned_x关于y的图形，横轴是z$binned_x，纵轴是y=1的占比
x<-rnorm(100, mean=0, sd=50)
y=sample(c(0,1),100,replace=T)
z=data.frame(x,y)
summary(z)
bins<-20
cutpoints<-quantile(z$x,(0:bins)/bins)
z$binned_x <-cut(z$x,cutpoints,include.lowest=TRUE)
table(z$binned_x,z$y)

这是z$binned_x和z$y的交叉表数据
table(z$binned_x,z$y)
               
                0 1
  [-135,-76.5]  4 1
  (-76.5,-58.4] 2 3
  (-58.4,-51.8] 4 1
  (-51.8,-47.7] 3 2
  (-47.7,-41]   4 1
  (-41,-30.9]   0 5
  (-30.9,-26.3] 2 3
  (-26.3,-19.5] 1 4
  (-19.5,-4.32] 3 2
  (-4.32,0.582] 1 4
  (0.582,4.84]  2 3
  (4.84,13.6]   3 2
  (13.6,22.6]   3 2
  (22.6,29.5]   2 3
  (29.5,37.6]   1 4
  (37.6,49.5]   1 4
  (49.5,56]     2 3
  (56,65.1]     3 2
  (65.1,73.6]   3 2
  (73.6,119]    2 3