Показывать повторяющиеся значения в блестящем графике R, когда selectizeInput = TRUE - PullRequest
Новая
       10

Показывать повторяющиеся значения в блестящем графике R, когда selectizeInput = TRUE

1 голос
/ 29 октября 2019

Мне трудно понять, как показать все значения в моем ggplot в моем блестящем приложении. В моем фрейме данных есть несколько случаев, когда у меня есть несколько сайтов с одинаковым значением на одну и ту же дату. Когда я пытаюсь выделить их все в приложении и показать их на графике, они не отображаются. Я уверен, что упускаю что-то простое, но не могу найти никаких решений. Я был бы очень признателен за любую помощь. Спасибо.

Пример данных: 

df<-structure(list(`AQS Code` = c(340071001, 340170006, 340010006, 
340070002, 340273001, 340150002, 340290006, 340410007, 340190001, 
340030006, 340110007, 340250005, 340130003, 340315001, 340210005, 
340230011, 340219991, 340071001, 340170006, 340010006), Latitude = c("39.684249999999999", 
"40.670250000000003", "39.464872", "39.934446000000001", "40.787627999999998", 
"39.800339000000001", "40.064830000000001", "40.924579999999999", 
"40.515262", "40.870435999999998", "39.422272999999997", "40.277647000000002", 
"40.720989000000003", "41.058616999999998", "40.283092000000003", 
"40.462181999999999", "40.3125", "39.684249999999999", "40.670250000000003", 
"39.464872"), State = c("NJ", "NJ", "NJ", "NJ", "NJ", "NJ", "NJ", 
"NJ", "NJ", "NJ", "NJ", "NJ", "NJ", "NJ", "NJ", "NJ", "NJ", "NJ", 
"NJ", "NJ"), `Site Name` = c("Ancora State Hospital", "Bayonne", 
"Brigantine", "Camden Spruce St", "Chester", "Clarksboro", "Colliers Mills", 
"Columbia", "Flemington", "Leonia", "Millville", "Monmouth University", 
"Newark Firehouse", "Ramapo", "Rider University", "Rutgers University", 
"Washington Crossing", "Ancora State Hospital", "Bayonne", "Brigantine"
), `Elev (m)` = c("33.0", "3.0", "5.0", "4.0", "278.0", "12.0", 
"41.0", "146.0", "45.0", "1.0", "22.0", "8.0", "27.0", "307.0", 
"30.0", "19.0", "61.0", "33.0", "3.0", "5.0"), County = c("Camden, NJ", 
"Hudson, NJ", "Atlantic, NJ", "Camden, NJ", "Morris, NJ", "Gloucester, NJ", 
"Ocean, NJ", "Warren, NJ", "Hunterdon, NJ", "Bergen, NJ", "Cumberland, NJ", 
"Monmouth, NJ", "Essex, NJ", "Passaic, NJ", "Mercer, NJ", "Middlesex, NJ", 
"Mercer, NJ", "Camden, NJ", "Hudson, NJ", "Atlantic, NJ"), Date = structure(c(17956, 
17956, 17956, 17956, 17956, 17956, 17956, 17956, 17956, 17956, 
17956, 17956, 17956, 17956, 17956, 17956, 17956, 17957, 17957, 
17957), class = "Date"), AQI_value = c(36, 30, 36, 32, 34, 30, 
40, 26, 27, 31, 38, 44, 28, 35, 36, 35, 35, 31, 34, 34)), class = c("tbl_df", 
"tbl", "data.frame"), row.names = c(NA, -20L))

Пример приложения: 

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(selectizeInput("site_name_select",
                                "Choose Site:",choices = df$`Site Name`,
                                multiple = TRUE,options = list(
                                  placeholder = "Please select a site below"
                                )),
  dateRangeInput("dates","Choose Date Range:",
                 start = "2019-03-01",
                 end = "2019-03-02"),
  plotOutput("plot1")))


server <- function(input, output) { 

  df_reac<-reactive({
    req(input$site_name_select)
    req(input$dates)
    df%>%
      filter(`Site Name` ==input$site_name_select,
             between(Date ,input$dates[1], input$dates[2]))
  })

  output$plot1<-renderPlot({
    ggplot(data = df_reac(),aes(x=Date,y=AQI_value,
                                  color = df_reac()$`Site Name`))+
      geom_point(size = 3.5)

  })
}

shinyApp(ui, server)
...