ShinyAPP Covid 数据（如何过滤和排序？）

Question

我正在构建一个 shinyApp 来显示 COVID-19 数据。我有一个长格式的文件，显示日期、县、阳性病例、康复和死亡人数。我正在尝试制作用户可以从下拉菜单中选择一个县的应用程序，它将在页面上显示 3 个阳性、恢复和死亡图表。这些图表将 x 轴作为日期，将 y 轴作为变量。附件是我到目前为止的脚本。我尝试了许多不同的方法，但我不知道该怎么做。我仍在学习 R，之前没有使用 ShinyApp 的经验。任何建议或帮助将不胜感激。我想我的 ggPlot 和输出/UI 是正确的，服务器逻辑是让我陷入循环的原因。即使只是一个好的指南的链接也会很好。谢谢！

2020 年 7 月 23 日：我已更新代码。我在ggplot中看了一些。当我运行应用程序时，我现在有了我想要的下拉菜单，但图表正在显示。当我在控制台中创建 ggplot 以确保代码自行运行时，我错过了图表的中间部分？有什么想法/修复吗？

library(shiny)
library(dplyr)
library(tidyr)
library(plotly)
library(ggplot2)
library(rsconnect)


df <- read.csv("C:/Users/Nathan May/Desktop/Research Files (ABI)/Covid/Data For Shiny/Appended_File/Appended_Scraped_Files.csv") #INSERT PATH SINGLE FILE OPTION

datapos <- df[c(2,6,3)]

rsconnect::setAccountInfo(name='nathanjmay', token='A3CF4CC3DE0112B8B9F8D0BA429223D3', secret='TNwC9hxwZt+BffOhFaXD3FQsMg3eQnfaPGr0eE8S')

#UI

ui <- fluidPage(
titlePanel("COVID-19 in Arkansas Counties"),
  fluidRow(
    column(
      width=4,
      selectizeInput("County", label=h5("County"), choices= data$Counties, width="100%")
    )),
  fluidRow(
    plotOutput(outputId = "Positive")
  ),
  fluidRow(
    plotOutput(outputId = "Recoveries")
  ),
  fluidRow(
    plotOutput(outputId = "Deaths")
  ),)
  
#SERVER

server= function(input, output) {

  data <- reactive({
    datapos %>% filter(County == input$County)
  
#GGPLOT2 for Positive
  output$Positive -> renderPlot(ggplot(data=datapos, aes(x=Day, y=Positive)) + 
                                geom_bar(stat="identity"))

#Recoveries
  output$Recoveries -> renderplot()

#Deaths
  output$Deaths -> renderplot()
  })
  }


shinyApp(ui=ui, server=server)

Answer 1

您将所有反应式表达式分配给服务器逻辑中的data 对象，请查看您关闭大括号的位置。因此，所有内容都包含在 data 中，而您的 plotOutput 没有任何内容，即 output$Positive、output$Recoveries、output$Death 在您的服务器逻辑中指定。还有reactive()的使用方式一开始感觉有点别扭。这是我的超级简单的应用程序，用于说明使用reactive() 应该做什么。再次注意您打开和关闭大括号和圆括号的位置。

所以这里定义的反应链是：input$state >> dat via reactive() >> output$dummy via renderPlot()。

library(shiny)
library(dplyr)
library(ggplot2)

#### Fake data
df <- data.frame(state = rep(c("FL", "GA"), each = 2),
                 x = rnorm(4),
                 y = rnorm(4))

#### UI
ui <- fluidPage(
    titlePanel("Old Faithful Geyser Data"),
    sidebarLayout(
        selectInput("state", "Choose a state:",
                    list(`Florida` = "FL",
                         `Georgia` = "GA")
        ),

        mainPanel(
           plotOutput("dummy")
        )
    )
)

#### Server
server <- function(input, output) {
    ## Essential dat is the filtered df
    dat <- reactive({
        df %>%
            filter(state == input$state)
    })
    
    ## Use dat() to access the filtered df instead of dat
    output$dummy <- renderPlot({
      ggplot(dat()) +
            geom_point(aes(x = x, y = y))
    })
}

# Run the application 
shinyApp(ui = ui, server = server)