如何使用shiny inputpael按列中的类别过滤我的数据框？Rshiny和RMarkdown

library(shiny)

# 定义一个示例数据框
data <- data.frame(
  Name = c("John", "Jane", "Mike", "Emily"),
  Category = c("A", "B", "A", "C"),
  Value = c(10, 20, 30, 40)
)

# 定义UI界面
ui <- fluidPage(
  titlePanel("按类别过滤数据框"),
  sidebarLayout(
    sidebarPanel(
      inputPanel(
        selectInput("category", "选择类别", choices = unique(data$Category))
      )
    ),
    mainPanel(
      tableOutput("filtered_data")
    )
  )
)

# 定义服务器逻辑
server <- function(input, output) {
  # 根据选择的类别过滤数据
  filtered_data <- reactive({
    subset(data, Category == input$category)
  })
  
  # 显示过滤后的数据
  output$filtered_data <- renderTable({
    filtered_data()
  })
}

# 运行应用
shinyApp(ui, server)