根据R文档，mclapply（）是lapply（）的并行版本，但是在这个简单的示例中，当尝试与points（）一起使用时，mclapply（）不起作用。有解决办法吗？
plot(c(0,3),c(0,1000),type='n')
x<-runif(100,1000); y<-runif(100,1000)
lapply(x,function(a) {points(1,a,col='green')}) #ok
mclapply(x,function(a) {points(2,col='red')}) #ko: does not work
下面是一个示例，该示例首先使用mclapply记录结果，然后绘制
library(parallel)
plot(c(0,3),c(0,1000),type='n')
x<-runif(100,1000); y<-runif(100,1000)
lapply(x,function(a) {points(1,a,col='green')}) #ok
L <- mclapply(x,function(a) {data.frame(x = 2,y = a)})
lapply(L,function(X) {points(y~x,X,col='red')})
