如何让Shiny中Plotly散点图随年份滑块组件更新数据？

原代码无法实现年份滑块联动的核心问题包括：滑块ID引用错误、数据过滤逻辑位置不当、变量取值未关联过滤后的数据集。以下是修正后的完整代码及关键说明：

library(gapminder)
gm <- gapminder

library(shiny)
library(plotly)
library(tidyverse)

# Define UI ----
ui <- fluidPage(
  column(3, offset = 4, titlePanel("Explore Gapminder Data with Shiny")),
  headerPanel('Graphs'),
  mainPanel(
    plotlyOutput('plot')
  ),
  sidebarPanel(
    # X轴变量选择
    selectInput(inputId ='xvrbl',
                label = 'X-Axis Variable',
                choices = colnames(gm),
                selected = 'lifeExp'
    ),
    
    # Y轴变量选择
    selectInput(inputId ='yvrbl',
                label = 'Y-Axis Variable',
                choices = colnames(gm),
                selected = 'gdpPercap'
    ),
    # 年份范围滑块
    sliderInput(inputId = "time",
                label = "Years - Slide",
                min = min(gm$year),
                max = max(gm$year),
                step = 5,
                value = c(min(gm$year), max(gm$year))),
    
  )
)

server <- function(input, output) {
  
  # 响应式过滤数据集：根据滑块选择的年份范围筛选数据
  filtered_data <- reactive({
    gm %>%
      filter(year >= input$time[1], year <= input$time[2])
  })
  
  # 从过滤后的数据集中提取X轴变量
  x <- reactive({
    filtered_data() %>% pull(input$xvrbl)
  })
  
  # 从过滤后的数据集中提取Y轴变量
  y <- reactive({
    filtered_data() %>% pull(input$yvrbl)
  })
  
  # 渲染Plotly交互图表
  output$plot <- renderPlotly({
    plot_ly(
      x = x(),
      y = y(),
      type = 'scatter',
      mode = 'markers',
      color = filtered_data()$continent,
      text = paste("Country:", filtered_data()$country, "<br>Year:", filtered_data()$year),
      hoverinfo = "text"
    ) %>%
      layout(
        xaxis = list(title = input$xvrbl),
        yaxis = list(title = input$yvrbl)
      )
  })
  
}

# Run the app
shinyApp(ui = ui, server = server)

关键修正说明 #

• 修正滑块ID引用：原代码错误使用input$years，实际滑块的inputId为time，改为input$time后才能正确获取滑块值。
• 响应式数据过滤：新增filtered_data响应式对象，所有图表数据均基于此筛选后的数据集，确保年份滑块变动时数据同步更新。
• 变量关联过滤数据：X、Y轴变量从filtered_data()中提取，而非原始数据集，保证轴变量与年份筛选逻辑联动。
• 优化Plotly参数：移除无效的赋值语句，添加hover信息提升交互体验，同时自动同步轴标题与选择的变量。

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