R /闪闪发光：将多个数据点放入反应变量中的问题

Question

我正在尝试制作有关儿童死亡率的图表，当我仅选择一个国家/地区时，效果很好，但是当我选择多个国家/地区时，似乎排除了数据点，其中包含2张图像来显示问题。 mdg1a是包含所有年份，所有地区，所有国家/地区的信息的数据集this is how it looks for 1 country Here you see the NA when selecting 2 countries

  cir <- reactive({
    #cir stands for Countries In Region
    if (is.null(input$regionInput)) {
      return(NULL)
    }
    if (input$regionInput == "All") {
      mdg1a
    } else {
      mdg1a %>%
        filter(region == input$regionInput)
    }
  })

  output$countryOutput <- renderUI({
    selectInput("countryInput", "country",
                sort(unique(cir()$country)),
                multiple = TRUE,
                selected = "")
  })


  filtered <- reactive({
    if (is.null(input$regionInput)) {
      return(NULL)
    }
    if (is.null(input$countryInput)) {
      return(NULL)
    }
    cir() %>%
    filter(year >= input$yearInput[1],
           year <= input$yearInput[2],
           country == input$countryInput)
  })