摘要： 参考上一篇蒙特卡洛计算圆周率 rm(list = ls()) x <- seq(0,1,0.001) y <- x^2 d <- data.frame(x,y) ggplot(d,aes(x,y))+geom_area(fill='brown1') #求定积分从0到1 ，函数为x^2 #求随机点在点 阅读全文