RShiny中的绘图分组条形图

library(shiny)
library(ggplot2)

# 定义UI界面
ui <- fluidPage(
  titlePanel("绘图分组条形图示例"),
  sidebarLayout(
    sidebarPanel(
      # 添加控件，例如下拉菜单用于选择数据
      selectInput("data", "选择数据", choices = c("数据1", "数据2"))
    ),
    mainPanel(
      # 显示绘图结果
      plotOutput("barplot")
    )
  )
)

# 定义server函数
server <- function(input, output) {
  # 读取数据
  data <- reactive({
    # 根据用户选择的参数读取相应的数据
    if (input$data == "数据1") {
      # 读取数据1
      # ...
    } else if (input$data == "数据2") {
      # 读取数据2
      # ...
    }
  })
  
  # 创建绘图分组条形图
  output$barplot <- renderPlot({
    # 使用ggplot2创建绘图分组条形图
    ggplot(data(), aes(x = group, y = value, fill = category)) +
      geom_bar(stat = "identity", position = "dodge") +
      labs(x = "组别", y = "数值", fill = "类别") +
      theme_minimal()
  })
}

# 运行shiny应用程序
shinyApp(ui = ui, server = server)