记住“闪亮”中的绘图上的选定点

Question

我正在尝试创建一个交互式的k均值图，使人们可以看到输入的效果（例如指定中心而不是纯粹的随机选择），但是遇到了我的Shiny代码问题。 我正在尝试了解如何选择一个点并使我的应用程序记住该点以用作中心。 我一直在寻找一种使用响应式代码执行此操作的方法，但是到目前为止，我尝试过的所有操作都失败了。 我当前的工作代码如下：

# Pre Work
library(ggfortify)
dsnames <- names(iris[1:4])
cb_options <- list()
cb_options[dsnames] <- dsnames

# UI
shinyUI <- fluidPage(
  titlePanel("Interactive K-Means Clustering Using Iris Dataset"),
  sidebarPanel(
    numericInput("numCenter", label=h4("Centers for k-means:"), min=2, max=30, value=3),
    selectInput("xaxisGrp","X-Axis:", c("1"="1","2"="2"), choices=cb_options),
    selectInput("yaxisGrp","Y-Axis:", c("1"="1","2"="2"), choices=cb_options),
    tableOutput("info")
  ),
  mainPanel(
    plotOutput("plot1", click="plot_click", dblclick="plot_dbl")
  )
)

# Server
shinyServer <- function(input, output, session) {

  iris_k <- reactive({
    kmeans(iris[1:4], centers=input$numCenter)
  })

  output$plot1 <- renderPlot({
    ggplot() + geom_point(data=iris, aes_string(input$xaxisGrp, input$yaxisGrp), colour=iris_k()$cluster)
  })

  output$info <- renderTable({
    nearPoints(iris, input$plot_click, xvar=input$xaxisGrp, yvar=input$yaxisGrp)[,c(input$xaxisGrp, input$yaxisGrp)]
  })

}

# ShinyApp function call
shinyApp(ui=shinyUI, server=shinyServer)

我该如何实现？

Answer 1

好吧，在发现我的工作代码中存在一些缺陷之后，我设法弄清楚了这一点。 如果这个答案对其他人有帮助，我会很高兴的。 新的Shiny Server代码使用了以前从未使用过的reactiveValues() ，因为我误解了它们的用法。 新的代码段为：

   v <- reactiveValues(
     selectedData = NULL
     )

   observeEvent(input$plot_dbl, {
     X1 <- nearPoints(iris, input$plot_dbl)
     if (is.null(v$selectedData)) {
       v$selectedData <- X1
     } else {
       if (nrow(merge(X1, v$selectedData)) > 0) {
         ind <- anyDuplicated(rbind(v$selectedData, X1), fromLast=TRUE)
         v$selectedData <- v$selectedData[-ind,]
       } else {
         v$selectedData <- rbind(v$selectedData, X1)
       }
     }
   })

这使我能够选择图形上的标绘点，并根据需要记住它们。