代码库13-CellChat批量存图

tryCatch({
    pdf(paste0(dir,"/Pathway-bubble-",pathways.show,'-',ct_name, ".pdf"))
    netVisual_bubble(cellchat, sources.use = ct,signaling = pathways.show,remove.isolate = F) %>% print()
    dev.off()
}, error = function(e) {
    dev.off()
    cat("Error")
})

两个踩的坑：

  1. 必须得加%>% print()才能打印图到pdf
  2. 如果报错，必须得加dev.off()关闭图形设备，否则后面的图会全部画不出来
©著作权归作者所有,转载或内容合作请联系作者
平台声明：文章内容（如有图片或视频亦包括在内）由作者上传并发布，文章内容仅代表作者本人观点，简书系信息发布平台，仅提供信息存储服务。

推荐阅读更多精彩内容