选择框以过滤回归图中的数据集

如何解决选择框以过滤回归图中的数据集

我在闪亮的仪表板选项卡项中有一个回归图

这是代码

 tabItem(tabName = "regressionanalysis",h2("Regression Analysis"),# Begin first fluid row
                    fluidRow(
                        
                        # Begin first Box plot
                        Box(width = 12,column(6,plotOutput("plotRegression",350),verbatimtextoutput('regressionResults')
                            ),plotOutput("histogramdbis",height = 250),verbatimtextoutput('dbisRegHistogramDescriptives'),plotOutput("histogramciatas",verbatimtextoutput('ciatasRegHistogramDescriptives')
                            )
                            
                        )
                        
                         
                    ) # End fluid row
                    
                    ),# End third tab item

当我启动仪表板时它运行得很好

这是代码

    output$plotRegression <- renderPlot({
        plotRegressionModel <- lm(dbis ~ ciatas,data = dbrp_data1)
        summary(plotRegressionModel)
        ggplot(dbrp_data1,aes(dbis,ciatas)) + geom_point() + stat_smooth(method = lm) +
            labs(title = "Regression Model",x = "dbis",y = "ciatas")
    })

我已经在仪表板的其他部分构建了选择框，但我现在想要完成的是在回归选项卡上使用选择框并按美国州过滤数据。

我正在为此寻找一个好的参考/解决方案。

另外 - 我目前没有使用数据框。所有计算均在基础数据集上进行。

干杯~！