Question

我在当地一所大学教授基本统计数据，并试图构建一个应用程序，学生可以在其中探索散点图和Pearson相关系数之间的关系。我可以生成一个空白图，用户可以在图中单击以生成点。随着点的增加，显示相关系数。我可以使用重置按钮清除地图;但是，我无法重置之前的积分。

我尝试将存储点的列表分配给NULL，但是对于生活我不知道如何做到这一点。

任何关于清除图表以便用户可以重新开始使用新散点图的建议都将非常感激。

指向＆＃39;工作＆＃39;的链接app：https://uky994.shinyapps.io/ggplotcoords/

我的代码：

  `ui <- shinyUI(fluidPage(
  titlePanel("Title"),
  sidebarLayout(
    sidebarPanel(
      actionButton("reset", "Reset!")
    ),
    mainPanel(
      plotOutput("graph", width = "100%", click = "plot_click"),
      verbatimTextOutput("click_info")
    )
  )
) 
)
server <- shinyServer(function(input, output, session) {
  observeEvent(input$reset, {
    output$graph <- renderPlot({
       plot(data$x, data$y, pch=data$values,col="white",xlim=c(0,100),
       ylim=c(0,100),xlab="X",ylab="Y")
    })
    points$x<-NULL
    points$y<-NULL
  })
  points <- list(x=vector("numeric", 0), y=vector("numeric", 0))
  data <- data.frame(x=c(0,100,0,100), y=c(0,0,100,100), 
                 values=c("A","B","C","D"), stringsAsFactors=FALSE)
  # Visualization output:  
  observe({
    output$graph <- renderPlot({
      plot(data$x, data$y,
           pch=data$values,col="white",xlim=c(0,100),
           ylim=c(0,100),xlab="X",ylab="Y")
    })  
  })
  #v=input$plot_click$x
  # interaction click in graph  
   observe({
    if(is.null(input$plot_click$x)) return(NULL)
      print(points)
      points$x <<- c(points$x, isolate(input$plot_click$x))
      points$y <<- c(points$y, isolate(input$plot_click$y))
      output$graph <- renderPlot({
        plot(points$x, points$y,pch=20,col="#7fcdbb",xlim=c(0,100),
             ylim=c(0,100),xlab="X",ylab="Y")
      })
      output$click_info <- renderPrint({
        cat("Correlation is:\n")
        cor(points$x, points$y)
        #length(points$x)
      })
  })
})
shinyApp(ui=ui,server=server)`

无法清除我的R闪亮应用中的情节

0 个答案: