R Shiny slider range输入筛选后无图表显示问题求助

前置依赖检查 #

运行前需确保已加载所有依赖包，可在代码顶部添加如下内容：

library(shiny)
library(dplyr)
library(ggplot2)

问题原因 #

• UI与Server变量名不匹配：UI中选择Y轴变量的selectInput组件id为y，但Server中调用时错误使用input$y_var，导致无法获取Y轴配置参数。
• 绘图数据变量名错误：Server中过滤后的数据存储在data变量中，但ggplot调用时传入了未定义的plot_data，无有效数据用于绘图。
• 筛选逻辑边界问题：filter条件使用>/<会排除滑块边界年份的数据，极端情况下可能出现无数据返回的问题。
• 路径编码警告：控制台的路径乱码警告是因为本地工作目录/OneDrive路径包含中文/特殊字符，R无法正常识别路径编码。

修复方案 #

1. Server端修正代码 #

server <- function(input, output) { 
  output$plot <- renderPlot({
    # 修正筛选逻辑，调整边界判断
    plot_data <- data_select %>%
      filter(year >= input$year[1], year <= input$year[2])
    
    # 修正Y轴变量调用，使用正确的input$y
    ggplot(
      data = plot_data,
      mapping = aes_string(x = "year", y = input$y, color = "country")
    ) +
      geom_point() +
      labs(x = "年份", y = input$y, title = "CO2相关指标趋势")
  })
}

2. 路径警告修复 #

将Shiny应用的所有相关文件移动到纯英文、无特殊字符的目录下运行即可消除该警告。

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