问如何在R Shiny中绘制后保留曲线？
EN

Stack Overflow用户

提问于 2018-12-21 15:59:37

回答 1查看 63关注 0票数 1

我正在构建一个闪亮的应用程序，用户可以在其中添加不同的曲线到绘图，但我不能使绘图保留已经添加的曲线。我怎样才能做到这一点呢？

在下面简化的可重现代码中，总共有8种曲线可能性，基于3个单选按钮选择，每个单选按钮有2个选项。我想保留这些单选按钮，而不使用复选框，因为在我正在开发的真实应用程序中，将有大约300种组合，使用复选框会让人感到困惑。请参考下面的代码：

library(shiny)
library(plotly)
library(dplyr)

data111 <-data.frame("x"=1:10, "y"=c(99,98,97,96,95,94,93,92,91,90))
data112 <-data.frame("x"=5:14, "y"=c(79,78,77,76,75,74,73,72,71,70))
data121 <-data.frame("x"=9:18, "y"=c(59,58,57,56,55,54,53,52,51,50))
data122 <-data.frame("x"=3:12, "y"=c(49,48,47,46,45,44,43,42,41,40))
data211 <-data.frame("x"=7:16, "y"=c(29,28,27,26,25,24,23,22,21,20))
data212 <-data.frame("x"=11:20, "y"=c(19,18,17,16,15,14,13,12,11,10))
data221 <-data.frame("x"=2:11, "y"=c(95,94,93,92,91,90,89,88,87,86))
data222 <-data.frame("x"=1:10, "y"=c(45,44,43,42,41,40,39,38,37,36))

ui <- fluidPage(
titlePanel("Curve selection"),
sidebarLayout(
  sidebarPanel(

     radioButtons(inputId = "option",
                 label="Choose the option",
                 choices=c("option1"=1,
                           "option2"=2),
                 selected = 1),

     radioButtons(inputId = "type",
                  label="Choose the type",
                  choices=c("type1"=1,
                            "type2"=2),
                  selected = 1),

     radioButtons(inputId = "group",
                  label="Choose the group",
                  choices=c("group1"=1,
                            "group2"=2),
                  selected = 1),

     actionButton("add","Add curve to the plot")
  ),

  mainPanel(
    plotlyOutput("plot")
  )
  )
)

server <- function(input, output) {

data <- eventReactive(input$add,{
 get(paste0("data",input$option,input$type, input$group))

})

output$plot <- renderPlotly({

 data <- data()

 p <-plot_ly(type = "scatter", mode="lines")
 p<-add_data(p, data) %>% add_trace(p, x= ~x, y = ~y)
 p

})
}

shinyApp(ui = ui, server = server)

我希望用户可以在单选按钮选项中选择选项、类型和分组，然后添加曲线。之后，对选项、类型和分组进行新的选择，并将新曲线添加到绘图中已存在的曲线中。用户应该能够多次执行此操作。你知道如何实现这一点吗？

谢谢!

shiny

r-plotly

在线客服搭建方案

搭建集AI机器人、在线客服、智能外呼等多功能服务的客服系统，支持快速接入及自搭建客服系统，从而让顾客快速得到解答

回答 1

Stack Overflow用户

回答已采纳

发布于 2018-12-21 17:55:03

您将必须使用reactiveValues对象，您可以在其中保存已经添加的跟踪。

然后，您可以将add_trace与for循环一起使用，例如：

我将eventReactive更改为observeEvent，这会将新数据附加到reactiveValues列表中。

为了防止将同一对象打印两次，我创建了一个reactiveValues usedData对象，该对象将保存绘图图例名称。如果名称已在手边，则不会向绘图中添加任何内容。

server <- function(input, output) {

  d <- reactiveValues(a=NULL, name=NULL)
  usedData <- reactiveValues(d = NULL)

  data <- observeEvent(input$add,{
    src = paste0("data",input$option,input$type, input$group)
    var <- get(src)

    if (src %in% usedData$d) {
      print("Data is already plotted")
      req(F)
    }

    if (is.null(d$a)) {
      d$a <- list(var)
      d$name = list(src)
      usedData$d <- src
    } else {
      d$a <- append(d$a, list(var))
      d$name = append(d$name, list(src))
      usedData$d <- append(usedData$d, src)
    }
  })

  output$plot <- renderPlotly({
    req(d$a)
    data <- d$a
    names = d$name

    p <- plot_ly(data = data[[1]], type = "scatter", mode="lines")

    if (length(data) == 1) {
      p <- add_trace(p, x= ~x, y = ~y, name = names)
    } else {  
      for (i in 1:length(data)) {
        d <- data[[i]]
        p <- add_trace(p, data = d, x= ~x, y = ~y, type = "scatter", mode="lines", name = names[[i]])
      }
    }
    p
  })
}