如何在R闪亮应用程序中创建具有两个反应值的堆叠百分比条形图？

install.packages("shiny")
install.packages("ggplot2")

library(shiny)
shinyApp(ui = fluidPage(), server = function(input, output) {})

fluidPage(
  sliderInput("value1", "Value 1", min = 0, max = 100, value = 50),
  sliderInput("value2", "Value 2", min = 0, max = 100, value = 50),
  plotOutput("barplot")
)

server = function(input, output) {
  output$barplot <- renderPlot({
    df <- data.frame(
      Category = c("Category 1", "Category 2"),
      Value = c(input$value1, input$value2)
    )
    
    ggplot(df, aes(x = Category, y = Value, fill = Category)) +
      geom_bar(stat = "identity", position = "fill") +
      labs(x = "Category", y = "Percentage", title = "Stacked Percentage Barplot")
  })
}

shinyApp(ui = fluidPage(
  sliderInput("value1", "Value 1", min = 0, max = 100, value = 50),
  sliderInput("value2", "Value 2", min = 0, max = 100, value = 50),
  plotOutput("barplot")
), server = server)