スキあらば並列計算をするおじさん

doParallel.R

library(dplyr)
randomwalk2D <- function(){cbind(x=cumsum(rnorm(100)), y=cumsum(rnorm(100)))}

library(foreach)
library(doParallel)

registerDoParallel(detectCores())
res_df = foreach(i = 1:10, .combine = rbind) %dopar% 
  data.frame(randomwalk2D(), group=LETTERS[i])
  
res_df %>% 
  ggplot(aes(x=x, y=y)) + 
  geom_path( aes(color=group)) +
  geom_point(aes(color=group), size=3)