Dataframe 在 Shiny 上使用不同的滑塊進行過濾

Question

我想出於財務目的使用 Shiny 創建一個應用程序。 我的想法是使用一些財務指標，例如滑塊來過濾公司。 主要的思考過程是“如果一家公司滿足這些指標，那么它就是成功的”，所以我希望在應用程序的左側部分更改參數，shiny 不僅可以滿足所選數據的公司，而且可以作為 output還有這些的名字。

我應該如何繼續構建這個應用程序？ 我是否應該創建一個 dataframe 插入到應用程序的開頭，如果是這樣，您建議如何開始？

謝謝您的幫助！

Answer 1

由於您沒有提供可重現的示例或至少您的數據看起來如何，我創建了這個小應用程序可以讓您了解如何開始。

基本上，它有 3 個sliderInput s，數據由每個 slider 過濾，條件是“值大於或等於從滑塊選擇的值”。

這是一個示例，數據按以下方式過濾：

• 英里數 >= 16.4
• 圓柱 >= 5
• qsec >= 18.2

所以你只會看到滿足這些條件的行（同時）。 您還可以在過濾后看到包含“模型”（在您的案例中可能是公司名稱）的列的 rest。

我希望它有所幫助。

代碼：

library(shiny)

data <- mtcars
data$Model <- rownames(mtcars)

ui <- fluidPage(
  titlePanel("My app"),
  
  sidebarLayout(
    sidebarPanel(
      
      sliderInput(inputId = "slider1_mpg", label="Slider 1: mpg", min = min(data$mpg), max = max(data$mpg), value = min(data$mpg)),
      sliderInput(inputId = "slider2_cyl", label="Slider 2: cyl", min = min(data$cyl), max = max(data$cyl), value = min(data$cyl)),
      sliderInput(inputId = "slider3_qsec", label="Slider 3: qsec", min = min(data$qsec), max = max(data$qsec), value = min(data$qsec)),

    ),
    
    mainPanel(
      dataTableOutput("table")
    )
  )
)


server <- function(input, output, session) {

  
  filtered_data <- reactive({
    data[(data$mpg >= input$slider1_mpg) & (data$cyl >= input$slider2_cyl) & (data$qsec >= input$slider3_qsec),]
  })
  
  output$table <- renderDataTable({
    filtered_data()
  })
  
}

shinyApp(ui, server)