使用3个变量（Rate，State_territory和离散变量制作R / Shiny / ggplot2线图）>

Question

我的数据帧是tableau_jh_df [显示的前四行]：

日期省份州个数1 2020-01-22阿拉巴马州02 2020-01-22阿拉斯加03 2020-01-22亚利桑那州0

基于用户从Shiny控件中对province_state的选择，我想绘制一个折线图使用ggplot2按周计算的总案例数。到目前为止，我得到的是所有情况无论选择哪个省份。这是我的代码和图形：

# ui
fluidRow(
        column(3,
               selectInput("state_terr", "Choose a State/Territory:",
                           list("Alabama", "Alaska", "Arizona" [,...etc]  
# server
output$plot <- renderPlot({
    min_date <- as.Date("2020-01-20")
    max_date <- NA
    ggplot(tableau_jh_df, aes(date, number_of_cases, col = input$state_terr,
                              group = 1)) +
    geom_line() +
    labs(x = "Date", y = "Number of Cases") +
    theme(axis.text.x = element_text(angle = 45),
          axis.text.y = element_text(angle = 90))  
Number of Cases by Date

我的数据框是tableau_jh_df [显示的前4行]：日期province_state number_of_cases 1 2020-01-22阿拉巴马州0 2 2020-01-22阿拉斯加...

Answer 1

您必须根据所选的州或省来过滤数据集。使用filter中的dplyr尝试以下操作：