在R中绘制时使用点的mclapply

Question

根据R文档，mclapply()是lapply()的并行化版本，但在这个简单的示例中，mclapply()在尝试与points()一起使用时不起作用。有什么解决方案吗？

plot(c(0,3),c(0,1000), type='n')
x<-runif(100,0,1000); y<-runif(100,0,1000)
lapply(x,function(a) {points(1,a,col='green')}) #ok
mclapply(x,function(a) {points(2,a,col='red')}) #ko: does not work

​

​

Answer 1

下面是一个先用mclapply记录结果，然后进行绘图的示例

library(parallel)

plot(c(0,3),c(0,1000), type='n')
x<-runif(100,0,1000); y<-runif(100,0,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')})

​

​