比如 density <-c(0.1,0.6,0.5,0.7,0.9)
        expr_cor <-c(-0.12,-0.36,-0.54,-0.4,-0.6)
画出如下图的累积分布图：

请求各位指点，谢谢!