如何在Shiny中创建具有固定y轴值的条形图？

sidebarPanel(
  selectInput("fixed_y", "固定y轴值:", choices = c("值1", "值2", "值3"))
)

mainPanel(
  plotOutput("barplot")
)

library(ggplot2)

shinyServer(function(input, output) {
  output$barplot <- renderPlot({
    fixed_y <- input$fixed_y
    
    # 创建包含固定y轴值的数据框
    data <- data.frame(
      x = c("类别1", "类别2", "类别3"),
      y = rep(fixed_y, 3)
    )
    
    # 使用ggplot2绘制条形图
    ggplot(data, aes(x, y)) +
      geom_bar(stat = "identity") +
      labs(y = "固定y轴值")
  })
})