mclapply с точками при построении в R

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')})