Jupyter Notebook中R语言for循环绘图避免重叠的方法

问题场景 #

在Jupyter Notebook中运行R语言for循环批量生成venndetail绘图时，出现了绘图相互重叠的异常情况。使用的循环代码如下（两段代码逻辑完全一致）：

for(i in names(cb_sniffer_outs_list)){
    if(length(cb_sniffer_outs_list[[i]]) > 2 || length(vartrix_outs_list_comb[[i]]) > 2){
      ven <- venndetail(list(cb_sniffer = cb_sniffer_outs_list[[i]], 
                vartrix = vartrix_outs_list_comb[[i]])) 
      print(i)
      print(plot(ven))
    }
    else{next}
}

解决方案 #

方法1：清空绘图上下文（推荐） #

由于venndetail基于grid绘图系统，每次绘图前调用grid::grid.newpage()清空当前绘图区域，确保新图从零开始渲染：

library(grid)
for(i in names(cb_sniffer_outs_list)){
    if(length(cb_sniffer_outs_list[[i]]) > 2 || length(vartrix_outs_list_comb[[i]]) > 2){
      ven <- venndetail(list(cb_sniffer = cb_sniffer_outs_list[[i]], 
                vartrix = vartrix_outs_list_comb[[i]])) 
      print(i)
      grid.newpage() # 强制清空当前绘图画布
      print(plot(ven))
    }
    else{next}
}

方法2：先缓存所有绘图对象再批量输出 #

将每个生成的绘图对象存入列表，循环结束后逐个打印，从根源上避免同画布重叠：

# 初始化空列表存储绘图对象
plot_collection <- list()

for(i in names(cb_sniffer_outs_list)){
    if(length(cb_sniffer_outs_list[[i]]) > 2 || length(vartrix_outs_list_comb[[i]]) > 2){
      ven <- venndetail(list(cb_sniffer = cb_sniffer_outs_list[[i]], 
                vartrix = vartrix_outs_list_comb[[i]])) 
      # 将绘图对象存入列表
      plot_collection[[i]] <- plot(ven)
      print(i)
    }
    else{next}
}

# 批量打印所有独立绘图对象
for(plot_obj in plot_collection){
  print(plot_obj)
}

方法3：调整Jupyter绘图渲染配置 #

通过设置Jupyter的绘图输出格式，强制每次绘图生成独立的图像实例：

# 设置绘图输出为PNG格式，确保每次绘图独立渲染
options(jupyter.plot_mimetypes = "image/png")

for(i in names(cb_sniffer_outs_list)){
    if(length(cb_sniffer_outs_list[[i]]) > 2 || length(vartrix_outs_list_comb[[i]]) > 2){
      ven <- venndetail(list(cb_sniffer = cb_sniffer_outs_list[[i]], 
                vartrix = vartrix_outs_list_comb[[i]])) 
      print(i)
      print(plot(ven))
    }
    else{next}
}

内容的提问来源于stack exchange，提问作者Saad Khan