当绘制的数据发生更改时，在 R 中更新绘图，无需重新创建小部件

每次 R 在闪亮（或仅在 R）中创建一个绘图对象时，该小部件都会完全重新创建。对于小数据集，这不是问题，但我正在处理包含数千个散点的绘图，这使得在我的闪亮应用程序中重新创建绘图需要 10-20 秒。

我正在寻找一种通过 JavaScript 解决方案更新数据的方法，该解决方案不会触发小部件重建，而只是替换其数据。

这是一个虚拟应用程序，包含 2 个小数据集，应用程序可以在这两个数据集之间进行切换。 在虚拟应用程序中，它通过重新创建小部件来实现这一点。由于数据点有限，这里速度相当快，但对于海量数据集来说并不理想。

如果有人知道如何实现这一点，这将是我的应用程序的重大改进。

澄清：这里有一个像这样的答案：在此输入链接描述 https://stackoverflow.com/questions/40024029/plotly-updating-data-with-dropdown-selection不会对我有用。关键是，在我的应用程序中，数据在构建绘图后多次更改，因此我无法预加载数据框列表。

我感觉该解决方案必须是一个 JavaScript 解决方案，可以抓取数据来覆盖当前绘制的数据，但不确定如何或是否可以做到这一点。

library("shiny")
library("plotly")

ui <- fluidPage(
  selectInput("dataset", "Choose a dataset:", choices = c("rock", "mtcars")),

  plotlyOutput("Plot1")
)


server <- function(input, output, session) {

  dataSource <- reactive({switch(input$dataset,"rock" = rock,"mtcars" = mtcars)})

  output$Plot1 <-  renderPlotly({plot_ly(data = dataSource(), x = dataSource()[,1], 
                                         y =dataSource()[,2], mode = 'markers', type = 'scatter')})
}

shinyApp(ui, server)

查看这些可能对您的案例有用的资源：

1. Plotly R 书 https://plotly-book.cpsievert.me/ by 卡森·西弗特 https://stackoverflow.com/users/1583084/carson第 3、4 和 6 章
2. plotly代理函数解释 https://plot.ly/r/plotlyproxy/

这是帮助您入门的代码。您需要做一些调整轴标签的工作，但这应该不那么困难。

希望这可以帮助！

代码：

    library("shiny")
    library("plotly")

    ui <- fluidPage(
            selectInput("dataset", "Choose a dataset:", choices = c("rock", "mtcars")),

            plotlyOutput("Plot1")
    )


    server <- function(input, output, session) {

            dataSource <- reactive({switch(input$dataset,"rock" = rock,"mtcars" = mtcars)})

            output$Plot1 <-  renderPlotly({plot_ly(data = rock, x = ~area, 
                                                   y =~peri, mode = 'markers', type = 'scatter')})

            observeEvent(input$dataset, {
                    f <- list(
                            family = "Courier New, monospace",
                            size = 18,
                            color = "#7f7f7f"
                    )
                    x <- list(
                            title = "x Axis",
                            titlefont = f, 
                            range = c(0, 1000)
                    )
                    y <- list(
                            title = "y Axis",
                            titlefont = f,
                            range = c(0, 100)
                    )
                    plotlyProxy("Plot1", session) %>%
                            plotlyProxyInvoke("addTraces", list(x = dataSource()[,1], 
                                                                y = dataSource()[,2],
                                                                type = 'scatter',
                                                                mode = 'markers')) %>% 
                            plotlyProxyInvoke("deleteTraces", list(as.integer(0))) %>% 
                            plotlyProxyInvoke("relayout", list(xaxis = x, yaxis = y))
            })



    }

    shinyApp(ui, server)