创建带下拉菜单切换图表的R Shiny应用时遇"argument is of length zero"报错

出现"argument is of length zero"错误的核心原因是输入ID不匹配，同时代码里还有变量名拼写和文本大小写不一致的问题，具体问题和修复方案如下：

错误点梳理 #

• 输入ID不匹配：UI中下拉菜单的inputId是covid_plot，但服务器端却调用了不存在的input$choices，导致该对象长度为0，触发错误。
• 变量名拼写错误：你预先定义的图表变量是continent_death_total_plot和continent_infection_total_plot，但代码里写成了continental_开头（多了后缀"al"），会导致找不到对应图表对象。
• 文本大小写不一致：UI下拉选项的文本是"Total Death Per Continent"（Continent首字母大写），但服务器判断时用的是"Total Death Per continent"（continent小写），会导致条件判断逻辑失效。

修正后的完整代码 #

# 假设你已经提前生成了这两个图表对象
# continent_death_total_plot <- ggplot(...) + ...
# continent_infection_total_plot <- ggplot(...) + ...

server <- function(input,output,session){
    output$plot <- renderPlot({
      if (input$covid_plot == "Total Death Per Continent"){
        continent_death_total_plot
      }else{
        continent_infection_total_plot
      }
    })
}

ui <- fluidPage(
  h1("R shiny Bar Plot"),
  selectInput(inputId = "covid_plot",
              label = "Choose category",
              choices = c("Total Death Per Continent","Total Infections Per Continent")),
  plotOutput("plot")
)

shinyApp(ui = ui, server = server)

关键修改说明 #

1. 将服务器端的input$choices改为input$covid_plot，与UI中下拉菜单的inputId保持一致。
2. 修正图表变量名，将continental_改为continent_，匹配你预先定义的变量名。
3. 统一条件判断中的文本与UI下拉选项的文本大小写，确保逻辑判断准确。

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