在条形图中设置可变列大小(Rshiny)

install.packages("plotly")

library(shiny)
library(plotly)

data <- data.frame(Category = c("A", "B", "C", "D"),
                   Value = c(10, 20, 15, 25))

ui <- fluidPage(
  plotlyOutput("barplot")
)

server <- function(input, output) {
  output$barplot <- renderPlotly({
    plot_ly(data, x = ~Category, y = ~Value, type = "bar") %>%
      add_trace(marker = list(color = ~Value, colorscale = "Viridis"))
  })
}

shinyApp(ui, server)