猜猜相关性 - 是否有一个 R 函数闪亮显示下一个情节？闪亮的数据收集

Question

我想用下一步按钮显示三个不同的散点图。任务是猜测每个图中相关性的强度。问题是我只能看到相同的情节。我尝试使用下一个按钮来查看下一个情节。

library(shiny)

# 3 different dataframes/data for scatter plots
data1 <- data.frame(a <- c(20,30,35,45,50,60,80),
                    b <- c(60,70,72,77,82,88,90))
data2 <- data.frame(a <- c(20,30,35,45,50,60,80),
                    b <- c(60,70,68,77,82,88,70))
data3 <- data.frame(a <- c(35,40,38,50,52,51,30),
                    b <- c(60,70,72,64,82,88,90))

ui = fluidPage(
  sidebarPanel(
    sliderInput
    (inputId = "fit", label = "estimated correlation",
     min = 0, max = 1,     value = 0),
     actionButton("newplot", "next")),
  mainPanel(plotOutput("plot")))

server = function(input, output) {
output$plot <- renderPlot({
input$newplot
plot(data1)
plot(data2)
plot(data3)
  })
  }

shinyApp(ui = ui, server = server)

Answer 1

我不相信有任何内置方法可以做到这一点，但您可以轻松地保留一个变量来跟踪您想要显示的绘图，然后使用switch() 来绘制该绘图。例如

cycle <- function(x, max) {
  if(x() < max) {
    x(x() + 1)
  } else {
    x(1)
  }
}

server <- function(input, output) {
  index <- reactiveVal(1)
  observeEvent(input$newplot, {
    cycle(index, 3)
  })
  output$plot <- renderPlot({
    switch(index(),
      plot(data1),
      plot(data2),
      plot(data3)
    )
  })
}

这里我刚刚编写了cycle 辅助函数，以便在增加索引时更容易循环回1。但基本上它只是取值 1 到 3。然后在 renderPlot 中，它看起来是当前索引并且只绘制该图。