在Shiny中使用SelectInput渲染预定义图表时遇错误求协助

嘿，我帮你梳理下代码里的几个关键问题，再给你一个能正常运行的完整示例：

代码里的核心问题 #

• 数据集引用错误：你在ggplot里写了df，但根本没定义这个对象啊！应该用你已经读取的camden数据集才对。
• 语法不完整：theme部分的代码被截断了，vjust后面得补个数值（比如0.5），还要把括号都闭合上，不然会报语法错误。
• 缺少Kingston选项的处理：你的if判断只写了Camden的情况，用户选Kingston的时候完全没对应的图形逻辑，肯定出问题。
• 缺失UI部分：Shiny是UI+Server的结构，你只贴了Server代码，但必须要有配套的UI来放selectInput组件，不然用户根本没法选择选项。
• 绝对路径隐患：用G:/camden.xlsx这种绝对路径换台电脑就跑不了，建议把Excel文件放到Shiny app的同一目录下，用相对路径。

修正后的完整代码 #

library(shiny)
library(ggplot2)
library(readxl)

# UI部分：创建选择器和图形输出容器
ui <- fluidPage(
  selectInput(
    inputId = "visual_id",
    label = "选择要查看的区域图表:",
    choices = c("Camden", "Kingston")
  ),
  plotOutput(outputId = "dynamicPlot")
)

server <- function(input, output) {
  # 用响应式对象读取数据，符合Shiny的响应式逻辑
  camden_data <- reactive({
    read_excel("camden.xlsx") # 把文件放在app目录下，用相对路径
  })
  
  kingston_data <- reactive({
    read_excel("kingston1.xlsx")
  })
  
  output$dynamicPlot <- renderPlot({
    if(input$visual_id == 'Camden'){
      # 使用正确的响应式数据集
      ggplot(camden_data(), aes(x = SpeciesCode, y = Year)) +
        geom_point() +
        theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1)) # 补全theme参数和闭合括号
    } else if(input$visual_id == 'Kingston'){
      # 补充Kingston的图形渲染逻辑
      ggplot(kingston_data(), aes(x = SpeciesCode, y = Year)) +
        geom_point() +
        theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1))
    }
  })
}

# 启动Shiny应用
shinyApp(ui = ui, server = server)

额外注意事项 #

• 先确保你安装了所有依赖包：install.packages(c("shiny", "ggplot2", "readxl"))
• 把你的Excel文件camden.xlsx和kingston1.xlsx移动到Shiny应用的同一文件夹下，这样相对路径才能正常工作。
• 如果你的数据集里SpeciesCode或Year的列名和实际不符，记得调整ggplot里aes()的变量名哦。

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