在RStudio中调用mclapply()时ggsave()失效，求可行解决办法

这个问题我太熟悉了——RStudio的图形设备确实和mclapply的fork机制八字不合！核心原因是mclapply用的是进程fork，子进程会继承主进程的很多资源，但RStudio的内置图形设备（RStudioGD）是和主进程绑定的，子进程根本没法正确调用它，要么导致会话卡死，要么ggsave因为找不到可用的图形设备默默失败。

给你几个靠谱的解决办法，按易用性排序：

1. 换用future.apply代替parallel（最推荐） #

future系列包会自动适配RStudio的环境，默认用multisession后端（创建独立的R进程，不是fork），完美避开图形设备的继承问题。代码改起来也很简单：

# 先安装包（如果没装过）
install.packages("future.apply")

library(future.apply)
library(ggplot2)

# 设置并行工作进程数
plan(multisession, workers = 2)

# 你的绘图函数不用大改，正常写ggsave就行
plot_fun <- function(i) {
  p <- ggplot(mtcars, aes(mpg, wt)) + 
    geom_point() + 
    ggtitle(paste("Plot", i))
  ggsave(paste0("plot_", i, ".png"), p)
}

# 用future_lapply替代mclapply
future_lapply(1:5, plot_fun)

这个方法在RStudio里100%能跑，而且代码改动极小，还能兼容其他环境。

2. 给mclapply的子进程手动指定图形设备 #

如果你非要用parallel包，那得让子进程完全避开RStudio的图形设备，手动指定输出设备，并且用绝对路径确保子进程能找到写入位置：

library(parallel)
library(ggplot2)

plot_fun <- function(i) {
  # 生成绝对路径，避免子进程工作目录不一致的问题
  output_file <- file.path(getwd(), paste0("plot_", i, ".png"))
  
  p <- ggplot(mtcars, aes(mpg, wt)) + 
    geom_point() + 
    ggtitle(paste("Plot", i))
  
  # 明确指定设备，不要依赖默认的RStudioGD
  ggsave(output_file, p, device = "png")
  
  # 重点：子进程里绝对不要调用print(p)！会触发RStudio图形设备导致冻结
  return(NULL)
}

# 先关闭主进程的RStudio图形设备，避免子进程继承
if (!is.null(dev.list())) dev.off()

# 运行mclapply
mclapply(1:5, plot_fun, mc.cores = 2)

这个方法需要注意两个点：一是绝对路径，二是绝对不能在子进程里打印ggplot对象（会触发图形设备）。

为什么RStudio外运行正常？ #

因为在普通R终端里，默认的图形设备是独立的（比如X11或者Windows的窗口设备），fork出来的子进程能正常使用这些设备，或者ggsave能直接调用底层的图形驱动，不会有绑定问题。而RStudio的图形设备是嵌入在IDE里的，和主进程的关联太深，fork的子进程根本没法正常交互。

内容的提问来源于stack exchange，提问作者James McIninch