如何在Shiny中捕获ggplot2的坐标变换错误？

问题根源 #

你遇到的问题核心是：创建ggplot对象时不会触发错误，错误实际发生在绘图渲染（将图形输出到设备）的阶段，所以直接对ggplot对象使用tryCatch无法捕获到错误。

解决方案1：在渲染阶段捕获错误 #

修改server端的renderPlot，将绘图的渲染动作（print()）放在tryCatch中，触发渲染时就能捕获错误，同时返回提示信息：

library(shiny)
library(tidyverse)
library(scales)

transforms <- list("None" = identity_trans(),
                   "Log 10" = log10_trans()
)

ui <- fluidPage(
  titlePanel("Old Faithful Geyser Data"),
  sidebarLayout(
    sidebarPanel(
      selectInput("Xaxis",
                  "Choose X axis transformation:",
                  names(transforms)
      )
    ),
    mainPanel(
      plotOutput("distPlot"),
      textOutput("errorMsg") # 用于显示错误提示
    )
  )
)

server <- function(input, output){
  plot_data <- reactive({
    diamonds$z # 可替换为用户输入的数据列
  })
  
  output$distPlot <- renderPlot({
    p <- ggplot(data.frame(x = plot_data()), aes(x=x)) + geom_histogram() + 
      coord_trans(x=transforms[[input$Xaxis]])
    
    tryCatch({
      print(p) # 触发渲染，此时才会抛出错误
      output$errorMsg <- renderText("") # 清除之前的错误提示
      p
    }, error = function(e){
      output$errorMsg <- renderText("提示：数据包含非正值，无法使用Log变换，请尝试伪对数变换或其他变换方式")
      ggplot() + geom_text(aes(x=1,y=1,label="无法生成图形")) + theme_void() # 返回空图占位
    })
  })
}

shinyApp(ui=ui, server=server)

解决方案2：提前数据验证（更推荐） #

在渲染绘图前先检查数据是否存在非正值，用Shiny的validate和need函数提前拦截，避免进入错误流程：

library(shiny)
library(tidyverse)
library(scales)

transforms <- list("None" = identity_trans(),
                   "Log 10" = log10_trans(),
                   "Pseudo Log" = pseudo_log_trans() # 添加伪对数变换选项
)

ui <- fluidPage(
  titlePanel("Old Faithful Geyser Data"),
  sidebarLayout(
    sidebarPanel(
      selectInput("Xaxis",
                  "Choose X axis transformation:",
                  names(transforms)
      )
    ),
    mainPanel(
      plotOutput("distPlot")
    )
  )
)

server <- function(input, output){
  plot_data <- reactive({
    diamonds$z
  })
  
  output$distPlot <- renderPlot({
    # 提前验证数据
    validate(
      need(input$Xaxis != "Log 10" || min(plot_data(), na.rm = TRUE) > 0,
           "提示：数据包含非正值，无法使用Log变换，请尝试伪对数变换或其他变换方式")
    )
    
    ggplot(data.frame(x = plot_data()), aes(x=x)) + geom_histogram() + 
      coord_trans(x=transforms[[input$Xaxis]])
  })
}

shinyApp(ui=ui, server=server)

额外说明 #

• 伪对数变换（pseudo_log_trans()）可以处理包含0或负值的数据，适合替代log变换，可直接添加到变换列表供用户选择。
• 单独测试时，必须触发渲染动作才能捕获错误，示例：

gg <- ggplot(diamonds, aes(x=z)) + geom_histogram() + coord_trans(x="log10")

tryCatch({
  print(gg) # 用print触发渲染才能捕获错误
}, error = function(e){
  print("Error")
})

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