如何对嵌入式 plotly R 图进行实时更新

Question

我刚刚在 R 中制作了我的第一个交互式绘图图。现在我想使用 iframe 将它嵌入到博客 post 中，并让数据和图表从 api 自动更新有规律的间隔。最好的方法是什么？具体来说，我可以在哪里托管情节？有没有办法用 shiny 或 RStudio Connect 做到这一点？

更新：

我一直在尝试根据下面@ismirsehregal 提供的示例对我的代码进行建模。我不知道如何设置 xData 和 YData。我在 x 轴上有日期，那么 xData 的初始值是否应该设置为日期变量？ y的初始值是否应该像示例中那样设置为NULL？等等。这是我目前所拥有的：

library(Quandl)
library(plotly)
library(shiny)

theme_set(theme_minimal())

ui <- fluidPage(
  plotlyOutput("yield_chart")
)

server <- function(input, output, session) {
  
  yield_chart <- plot_ly(DF, x = ~date, y = ~ten_yr, name = '10 Yr.', type = 'scatter', mode = 'lines', line=list(color='darkred') 
  )
  
  output$linePlot <- renderPlotly({
    yield_chart
  })
  
  lineProxy <- plotlyProxy("yield_chart", session)
  
  xData <- reactiveVal(DF$date)
  yData <- reactiveVal(NULL)
  
  observe({
    invalidateLater(1000)
    treas_yields <- Quandl("USTREASURY/YIELD", api_key="123xyz")
    DF <- treas_yields[, c("Date", "10 YR")]
    colnames(DF) <- c("date", "ten_yr") # change var names
    DF <- subset(DF, ten_yr!= 0)# drop rows with 0 values (e.g. April 14, 2017)
    isolate(xData(xData()+1))
    yData(DF$ten_yr)
  })
  
  observe({
    plotlyProxyInvoke(lineProxy, "extendTraces", list(x = list(list(xData())), y = list(list(yData()))), list(0))
  })
  
}

shinyApp(ui, server)

这是前 100 行数据：

structure(list(date = structure(c(19006, 19005, 19004, 19003, 
19002, 18999, 18998, 18997, 18996, 18995, 18992, 18991, 18990, 
18989, 18988, 18984, 18983, 18982, 18981, 18978, 18977, 18976, 
18975, 18974, 18971, 18970, 18969, 18968, 18967, 18964, 18963, 
18962, 18961, 18960, 18957, 18955, 18954, 18953, 18950, 18949, 
18948, 18947, 18946, 18943, 18941, 18940, 18939, 18936, 18935, 
18934, 18933, 18932, 18929, 18928, 18927, 18926, 18925, 18922, 
18921, 18920, 18919, 18918, 18915, 18914, 18913, 18912, 18908, 
18907, 18906, 18905, 18904, 18901, 18900, 18899, 18898, 18897, 
18894, 18893, 18892, 18891, 18890, 18887, 18886, 18885, 18884, 
18883, 18880, 18879, 18878, 18877, 18873, 18872, 18871, 18870, 
18869, 18866, 18865, 18864, 18863, 18862), class = "Date"), ten_yr = c(1.78, 
1.7, 1.74, 1.75, 1.78, 1.76, 1.73, 1.71, 1.66, 1.63, 1.52, 1.52, 
1.55, 1.49, 1.48, 1.5, 1.46, 1.48, 1.43, 1.41, 1.44, 1.47, 1.44, 
1.42, 1.48, 1.49, 1.52, 1.48, 1.43, 1.35, 1.44, 1.43, 1.43, 1.52, 
1.48, 1.64, 1.67, 1.63, 1.54, 1.59, 1.6, 1.63, 1.63, 1.58, 1.56, 
1.46, 1.51, 1.45, 1.53, 1.6, 1.56, 1.58, 1.55, 1.57, 1.54, 1.63, 
1.64, 1.66, 1.68, 1.65, 1.65, 1.59, 1.59, 1.52, 1.56, 1.59, 1.61, 
1.58, 1.53, 1.54, 1.49, 1.48, 1.52, 1.55, 1.54, 1.48, 1.47, 1.41, 
1.32, 1.33, 1.31, 1.37, 1.34, 1.31, 1.28, 1.33, 1.35, 1.3, 1.35, 
1.38, 1.33, 1.29, 1.31, 1.3, 1.29, 1.31, 1.34, 1.35, 1.29, 1.25
)), row.names = c(NA, 100L), class = "data.frame")

Answer 1

下面显示了如何使用 plotlyProxyInvoke 调用 plotlys "extendTraces" JS function 每秒向绘图添加一个数据点：

library(shiny)
library(plotly)

ui <- fluidPage(
  plotlyOutput("linePlot")
)

server <- function(input, output, session) {
  
  initial_plot <- plot_ly(
    x = 0,
    y = 0,
    type = 'scatter',
    mode = 'lines'
  )
  
  output$linePlot <- renderPlotly({
    initial_plot
  })
  
  lineProxy <- plotlyProxy("linePlot", session)
  
  xData <- reactiveVal(0)
  yData <- reactiveVal(NULL)
  
  observe({
    invalidateLater(1000)
    isolate(xData(xData()+1))
    yData(runif(n = 1, min = 0, max = 1))
  })
  
  observe({
    plotlyProxyInvoke(lineProxy, "extendTraces", list(x = list(list(xData())), y = list(list(yData()))), list(0))
  })
  
}

shinyApp(ui, server)

另请参阅我的。

编辑：示例数据被解释后。

由于您的数据源每 24 小时仅更新一次，我想简化一下。以下解决方案根据最新数据每分钟（我们有时间）重新呈现图表：

library(Quandl)
library(plotly)
library(shiny)

theme_set(theme_minimal())

ui <- fluidPage(
  plotlyOutput("yield_chart"),
  tags$style(type="text/css", "#yield_chart.recalculating { opacity: 1.0;"), # comment out to see the graph recalculating
)

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

  treas_yields <- reactive({
    invalidateLater(1000*60) # update every minute
    DF <- Quandl("USTREASURY/YIELD", api_key="123xyz")
    subset(DF, `10 YR` != 0)
  })

  output$yield_chart <- renderPlotly({
    print(paste(Sys.time(), "rendering plotly graph"))
    plot_ly(treas_yields(), x = ~Date, y = ~`10 YR`, name = '10 Yr.', type = 'scatter', mode = 'lines', line=list(color='darkred'))
  })
    
}

shinyApp(ui, server)

如何对嵌入式 plotly R 图进行实时更新

How to do live updates on an embedded plotly R graph

r

shiny

plotly

r-plotly