Shiny中渲染Plotly触发UseMethod报错问题排查咨询

代码的核心问题是错误使用向量化函数ifelse()做流程分支控制：

• ifelse()是R专为向量元素级判断设计的函数，返回结果长度与输入判断条件的长度一致，执行时会剥离返回值的S3类属性。这里判断条件input$level是长度为1的字符串，ifelse()不会返回完整的plotDK生成的ggplot对象，而是将对象拆解为原子列表结构，最终被识别为shiny.tag类，后续执行图层添加、ggplotly()转换、layout()布局设置时，找不到对应类的处理方法，就会抛出你看到的报错。
• 非Shiny环境下的测试代码没有经过ifelse()分支，直接生成绘图对象，因此可以正常运行，和Shiny本身的渲染机制无关。

另外原代码存在冗余加载项：重复调用了两次library(ggplot2)，可以删除重复条目精简代码。

将响应式表达式中嵌套的ifelse()分支，替换为R标准流程控制的if()/else if()/else块即可，修复后的响应式代码如下：

plot <- reactive({
  if (input$level == "Zip code") {
    plotDK(plotlevel = "zipcode", value = "count", id = "postnr", data = df, show_missing = TRUE)
  } else if (input$level == "Municipality") {
    plotDK(plotlevel = "municipality", value = "count", id = "kommunekoder", data = df, show_missing = TRUE)
  } else {
    plotDK(plotlevel = "region", value = "count", id = "reg_code", data = df, show_missing = TRUE)
  }
})

其余代码逻辑无需修改，替换后plot()会返回正常的ggplot对象，后续的格式调整、Plotly转换、布局设置都可以正常执行。

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