R Shiny应用多图表下拉切换及年份滑块动态绘图问题求解

你的代码存在4个直接导致功能失效的问题：

• 下拉选择控件的输入ID是graphtype，但服务端判断逻辑写的是input$lambda2、input$lambda3，这两个输入控件根本不存在，对应判断永远不会触发
• ggplot数据映射列名拼写错误，数据框列名是lambda，代码里写的是lamda（漏了字母b），运行会直接报对象不存在错误
• 没有写滑块年份范围对应的数据筛选逻辑，无法实现动态按年份过滤绘图
• renderPlot只会返回最后执行的表达式结果，你在逻辑最开头就写死了第一个lambda的绘图代码，后面的逻辑就算触发也不会覆盖返回值
• 额外问题：滑块最大值设为2011，但示例数据最大年份是2010，选到2011时会出现空轴

library(shiny)
library(tidyverse)
library(shinythemes)
library(plotly)
library(scales)
library(shinyWidgets)
library(shinydashboard)

# 下拉选项配置
type <- c("lambda","lambda2","lambda3")

# 示例数据集
table <- structure(list(year = 1991:2010, 
                        lambda = c(0.68854, 0.75545, 1.63359, 1.22282, 1.70744, 1.09692, 0.51159, 1.3904, 1.09132, 
                                   0.59846, 0.43055, 0.80135, 0.69027, 0.65646, 0.95485, 1.04818, 
                                   0.67859, 1.00461, 1.16665, 1.28203)), 
                   row.names = c(NA, -20L), class = "data.frame")

# UI定义
ui <- fluidPage(
  navbarPage("Fish",
             windowTitle = "Fish Graphs",
             sidebarPanel(
               h3("Select Graphics to Visualize"), 
               selectInput(inputId = "graphtype",
                           label = "Graphic",
                           choices = type,
                           selected = "lambda"),
               sliderInput(inputId = "Yearslider",
                           label="Years to plot",
                           sep="",
                           min=1991,
                           max=2010,
                           value=c(1991,2010))),
             mainPanel(plotOutput("plot"))))

# 服务端逻辑
server<- function (input, output, session) {
  session$onSessionEnded(function() {
    stopApp()
  })  
  output$plot <- renderPlot({
    # 按滑块选中的年份范围筛选数据
    plot_data <- table %>% 
      filter(year >= input$Yearslider[1], year <= input$Yearslider[2])
    # 匹配下拉选项对应的线条颜色
    line_color <- switch (input$graphtype,
                          "lambda" = "blue",
                          "lambda2" = "green",
                          "lambda3" = "red"
    )
    # 输出绘图
    ggplot(plot_data,aes(year,lambda)) + 
      geom_line(size=1.5,colour=line_color) + 
      geom_point(colour="orange",size=4) + 
      scale_x_continuous("",breaks = plot_data$year) +  
      theme(axis.text.x = element_text(angle = 45, vjust = 0.5)) + 
      labs(x="",y=expression("Lambda ("~lambda *")"),title="Population growth rate - fraction per year- \nof Delta Smelt")
  })
}
shinyApp(ui = ui, server = server)

• 目前三个选项仅通过线条颜色区分，如果你后续要给lambda2、lambda3绑定不同的数据列，只需要在switch语句里增加对应的数据映射配置即可，不用重复写三遍几乎一致的ggplot代码
• 你后续要加50个图表的话，不要堆大量if/else判断，可以把所有图表的配置（对应数据列、颜色、标题、坐标轴参数等）存在一个命名列表里，直接通过下拉选项的取值索引对应配置，代码可维护性会高很多

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