Question

您好我正在使用一组三个变量进行Rshiny仪表板，我希望将其表示为要选择的选项。如果用户没有勾选该框，则应将其从数据文件中排除，将其输入到聚类模型。

我无法将其连接到输入数据，因为未选择的变量会从模型中放入的数据中排除：

这是示例代码 - 感谢任何帮助。

  titlePanel("Customer"),

    sidebarLayout(
                  sidebarPanel(
                    sliderInput("Clusters",
                                "Number of Clusters:",
                                min = 1,
                                max = 10,
                                value = 1
                  ),

                                    checkboxGroupInput("Checkboxgroup", 
                                       h3("variable selection"), 
                                       choices = list("v1" = 1, 
                                                      "v2" = 2, 
                                                      "v3" = 3),
                                       selected = c(1, 2, 3))

    ),                  mainPanel(position="right",
                            plotOutput("distPlot", height = 500, width = 500)
                  )
    )

)

server <- function(input, output) {

data_train= data[ ,3:14]
### here is where i need to excluded the selected boxes from the data_train on the above line

 k_means=reactive({
    kmeans(data_train, centers=input$Clusters, nstart = 50)
  })


  output$distPlot <- renderPlot({

    plotcluster(data_train, k_means()$cluster)   

  })
}

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

Answer 1

在我看来，您从未在服务器中使用过checkboxgroup。另外，您可以排除的变量不是checkboxgroup中的选项，而是v3。我会假设你只想要变量3,4和5被排除在外。另外，我还假设您只需要变量3到14，因为它与您所做的一样。

首先，您更改复选框，如下所示：

checkboxGroupInput("Checkboxgroup", 
                                       h3("variable selection"), 
                                       choices = list("v3" = 3, 
                                                      "v4" = 4, 
                                                      "v5" = 5),
                                       selected = c(3:5))

然后您可以更改定义训练集的行，如下所示：

mytrain=reactive({
vars=3:14;vars=vars[!vars%in%as.numeric(input$Checkboxgroup)]
data_train= data[ ,vars]
data_train
})

和你的分析：

k_means=reactive({
    kmeans(mytrain(), centers=input$Clusters, nstart = 50)
  })

如果我正确理解了您的问题，那就应该这样做。

以排除所选框

1 个答案: