如何在R Shiny的renderPlot中调用含pdf/png保存逻辑的绘图函数

问题本质 #

调用pdf()/png()等文件图形设备函数后，R会将后续所有绘图输出定向到指定文件，不会传递给ShinyrenderPlot依赖的屏幕图形设备，因此界面无法渲染图像。另外你现有代码未调用dev.off()关闭文件设备，会导致生成的pdf文件损坏、后续绘图持续输出到文件的残留问题。

方案1：小幅修改包源码（推荐，改造成本极低） #

仅需给绘图函数新增1个开关参数，不影响原有业务逻辑和旧代码调用：

• 新增save_to_file逻辑参数，默认值为TRUE，兼容原有默认保存文件的行为
• 仅在参数为真时启动文件输出设备，同时补全dev.off()关闭设备的逻辑
• 函数最终返回ggplot对象，支持Shiny直接渲染

修改后的函数示例：

test_plot <- function(save_to_file = TRUE){
    data=head(mtcars, 30)
    
    g1 <- ggplot(data, aes(x=wt, y=mpg)) +
        geom_point() + 
        geom_text(
            label=rownames(data), 
            nudge_x = 0.25, nudge_y = 0.25, 
            check_overlap = T
        )
    
    if (save_to_file) {
        pdf(file = 'test.pdf', width = 5, height = 5)
        print(g1)
        dev.off() # 必须关闭文件设备，避免残留占用
    }
    
    return(g1)
}

Shiny端调用时关闭文件输出即可：

server <- function(input, output) {
    output$distPlot <- renderPlot({
        test_plot(save_to_file = FALSE)
    })
}

方案2：完全不修改包源码（适配无代码修改权限的场景） #

在Shiny端临时覆盖文件设备函数，调用结束后再恢复原有函数，无需调整包代码：

server <- function(input, output) {
    output$distPlot <- renderPlot({
        # 备份原有pdf函数
        original_pdf <- pdf
        # 临时替换pdf为空函数，不启动文件设备
        pdf <- function(...) {}
        
        # 调用包内绘图函数
        p <- test_plot()
        
        # 恢复原pdf函数
        pdf <- original_pdf
        
        # 返回绘图对象给Shiny渲染
        return(p)
    })
}

如果包内还用到png()/jpeg()等其他文件设备，用相同逻辑临时覆盖对应函数即可。

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