如何根据条形图中的用户输入过滤某些数据？

Question

我有一个类似于以下内容的 CVS 文件：

Country	Category	Value
Canada	A	3
Canada	B	4
Canada	C	5
USA	A	3
USA	C	2
Mexico	B	5
Japan	A	6
Japan	B	3
Japan	C	2

我想创建一个条形图，其中 X 轴为国家，Y 轴为值。我还希望有一个侧面板下拉过滤器，其中列出了类别，并且只显示与所选类别相对应的数据。因此，如果选择了 A 类别，则 Canada bare 的值将为 3。我在将过滤器应用于 X 和 Y 轴时遇到了很多麻烦。这是我目前所拥有的：

library(shiny)
library(ggplot2)
library(scales)
library(data.table)
library(plotly)
library(dplyr)

df=read.csv("name.cvs")

ui <- fluidPage(
   
    titlePanel("Title"),
    
    sidebarLayout(
        sidebarPanel(
            selectInput("Category", "Select Category", choices = df$Category)
        ),
        
        mainPanel(
            plotlyOutput("chart")
        )
    ) 
)

server <- function(input, output, session) {
    output$chart <- renderPlotly({
           
        p <- plot_ly(       
            x = df$Country,
            y = df$VALUE,
            name = "Important Data",
            type = "bar" ,          
        )            
    })
}

shinyApp(ui, server)

您可能会说我是 R Shiny 的新手，我真的在为这个项目苦苦挣扎。任何帮助将不胜感激！

Answer 1

您可以使用input$Category 引用下拉值，并使用基本R subset 或dplyr::filter 进行简单过滤就足够了。

library(shiny)
library(plotly)

ui <- fluidPage(
  
  titlePanel("Title"),
  
  sidebarLayout(
    sidebarPanel(
      selectInput("Category", "Select Category", choices = df$Category)
    ),
    
    mainPanel(
      plotlyOutput("chart")
    )
  ) 
)

server <- function(input, output, session) {
  output$chart <- renderPlotly({
    sub_df <- subset(df, Category == input$Category)
    p <- plot_ly(       
      x = sub_df$Country,
      y = sub_df$Value,
      name = "Important Data",
      type = "bar" ,          
    )            
  })
}

shinyApp(ui, server)