使用循环更新 ggplot2 折线图的数据

Question

您好，我是编程新手，我是“R”。写了以下代码来测试我的 ping 连续性：

library(pingr)
library(ggplot2)

cc=2
counts <- c(1:1)
pings <- c(ping("8.8.8.8",count = 1))

rgh <- data.frame(counts,pings)
ggplot(rgh, aes(x=counts,y=pings))+geom_line(aes(col="red"))+coord_cartesian(xlim=(c(0,300)),ylim=(c(0,100)))
#qplot(x=counts,y=pings,data=rgh)

while (cc<300) {
  counts <- c(counts,cc)
  pings <- c(pings,ping("8.8.8.8",count = 1))

  rgh <- data.frame(counts,pings)
    print(ggplot(rgh, aes(x=counts,y=pings))+geom_line(aes(col="red"))+coord_cartesian(xlim=(c(0,300)),ylim=(c(0,100))))
    cc <- cc+1

}

我想让它看起来像 speedtest.net 上的酷图。但是这个每次循环都会重绘整个情节，这需要太多时间。有没有其他办法？

Answer 1

下面是一个示例，如何使用闪亮和情节设置所需的行为：

library(shiny)
library(plotly)
library(pingr) 

一个带有开始按钮和绘图区的简单用户界面：

ui <- fluidPage(
  div(actionButton("button", "start")),
  div(plotlyOutput("plot"), id='graph')
)

server <- function(input, output, session) {
  p <- plot_ly(
    y = ping("8.8.8.8",count = 1),
    type = 'scatter',
    mode = 'lines') 
  output$plot <- renderPlotly(p)
  observeEvent(input$button, {
    while(TRUE){
      Sys.sleep(1)
      plotlyProxy("plot", session) %>%
        plotlyProxyInvoke("extendTraces", list(y=list(list(ping("8.8.8.8",count = 1)))), list(0))
    }
  })
}

shinyApp(ui, server)

一段时间后它看起来像这样：

编辑：回答评论中的问题： 有多种方法可以控制 ping 的数量。也许是最简单的：

server <- function(input, output, session) {
  p <- plot_ly(
    y = ping("8.8.8.8",count = 1),
    type = 'scatter',
    mode = 'lines') 
  a = 1
  output$plot <- renderPlotly(p)
  observeEvent(input$button, {
    while(a <= 30){
      a <- a + 1
      Sys.sleep(1)
      plotlyProxy("plot", session) %>%
        plotlyProxyInvoke("extendTraces", list(y=list(list(ping("8.8.8.8",count = 1)))), list(0))
    }
  })
}

这里执行了 30 次 ping

要更改 ping 的频率，请将 Sys.sleep(1) 更改为您的链接。