当在闪亮的应用中使用绘图时，用户界面中的复选框消失了

Question

我是闪亮和情节的新手。我正在尝试创建一个带有几页的闪亮应用程序，其中一个我想显示一个带有复选框的交互式散点图，以选择由我的变量“性别”过滤的数据。

我毫无疑问地使用常规GGPLOT函数运行代码，但是当我尝试使用Plotly进行代码时，复选框在用户界面中消失。

这是我的代码，我的问题在第2页中，其余的按预期工作：

library(shiny)
library(tidyverse)
library(plotly)
library(DT)

#####Import Data

dat<-read_csv(url("https://www.dropbox.com/s/uhfstf6g36ghxwp/cces_sample_coursera.csv?raw=1"))
dat<- dat %>% select(c("pid7","ideo5","newsint","gender","educ","CC18_308a","region"))
dat<-drop_na(dat)
dat$gender1<-as.numeric(dat$gender)


#####App

ui <- navbarPage("My application",
                 
    tabPanel("Page 1",
        sidebarLayout(
             sidebarPanel(
                  sliderInput("ideo5",
                  "Select Five Point Ideology (1=Very liberal, 5=Very conservative)",
                  min = 1,
                  max = 5,
                  value = 3)
             
    ),
    

    mainPanel(
      tabsetPanel(type = "tabs",
                  tabPanel("Tab 1", plotOutput("bar1")),
                  tabPanel("Tab2", plotOutput("bar2"))
                  )
      )
    )
  ),
    
    
tabPanel("Page 2",
         sidebarLayout(
           sidebarPanel(
              checkboxGroupInput("gender", label = "Select gender", 
                   choices = list("1" = 1, "2" = 2),
                   selected = 1)
           ),
plotlyOutput("scatter")
    )
  ),




tabPanel("Page 3",
         selectInput("region", "Select region",
                     multiple=TRUE,
                     choices=c(1,2,3,4)),
         
         dataTableOutput("table", height=500)
),
 

)



server<-function(input,output){
    output$bar1 <- renderPlot({
      ggplot(
        plot_dat<-filter(dat,ideo5 %in% input$ideo5),
        aes(x=pid7))+
        geom_bar()+
        xlab("7 Point Party ID, 1 = Very D, 7 = Very R")+
        ylab("Count")+
        scale_y_continuous(breaks=seq(0, 125, 25), limits=c(0, 125))
      
    })
    
    output$bar2 <- renderPlot({
      ggplot(
        plot_dat<-filter(dat, ideo5 %in% input$ideo5),
        aes(x=CC18_308a))+
        geom_bar()+
        xlab("Trump support")+
        ylab("count")+
        scale_y_continuous(breaks=seq(0, 150, 50), limits=c(0, 150))
    })
    
    output$scatter<-renderPlotly({
      
      ggplot(filter(dat,gender %in% input$gender),aes(x=educ,y=pid7))+
        geom_jitter()+
        geom_smooth(method = "lm")+
        geom_point()
      })
    
    output$table <- renderDataTable({
      filter(dat,region %in% input$region)})
    
    
  }
  
shinyApp(ui,server)

谢谢！