R：通过时间变量循环的闪亮散点图

使用shiny和ggplot2，我试图创建一个散点图，该散点图将遍历时间变量（从00:00开始，到24:00结束），并在该坐标的时间出现时绘制X和Y。这将创建一个逐帧参照，以了解点的移动方式

df:

R-滑块小部件输入

sliderInput("time", "Time:", 00:00, 24:00, 00:00,
                    step = 00:01, animate=
                        animationOptions(interval=300, loop=TRUE))

• 在小部件中，我指定了step=00:01，因此它应该经过一分钟 然而，它实际上是以1小时为间隔

• 我无法计算出服务器端和服务器端的散点图部分 如何让它从环境中的df中提取

---

为整个问题提供可重复的例子是一个好习惯，因为很难猜测你做了什么以及你到底想要什么

在sliderInput中，您可以显示数值或POSIXct，shiny无法在不让它知道时间格式的情况下渲染“00:00”。使用时间格式时，不要忘记检查时区问题

也许，这就是你想要的：

library(shiny)
shinyApp(
  ui = fluidPage(sliderInput("time", "Time:", 
                             min = as.POSIXct("00:00",format="%H:%M", tz="UTC"),
                             max = as.POSIXct("24:00",format="%H:%M", tz="UTC"),
                             value = c(
                               as.POSIXct("00:00",format="%H:%M")
                             ), timeFormat = "%H:%M", step=60, timezone = "+0000",
                             animate=
                               animationOptions(interval=300, loop=TRUE)),
                 plotOutput("plot")
                 ),
  server = function(input, output) {

    df<-data.frame(id=c(1,1,2,2), x=c(11,8,3,19), y=c(6,13,4,12), 
                   Time=c("0:03","1:03","15:45","13:29"))

    output$plot<-renderPlot({
      dt<-cbind(df,Ftime=as.POSIXct(df$Time, format="%H:%M", tz="UTC"))
      dt<-dt[dt$Ftime==input$time,]

      if(nrow(dt)==0) ggplot(df, aes(x,y)) else ggplot(dt,aes(x,y))+geom_point()

    })


  }
)

库（闪亮）
shinyApp(
ui=fluidPage（滑块输入（“时间”，“时间：”，
min=as.POSIXct（“00:00”，format=“%H:%M”，tz=“UTC”），
max=as.POSIXct（“24:00”，format=“%H:%M”，tz=“UTC”），
值=c(
as.POSIXct（“00:00”，格式=“%H:%M”）
)，timeFormat=“%H:%M”，步长=60，时区=“+0000”，
生动活泼=
动画选项（间隔=300，循环=TRUE）），
绘图输出（“绘图”）
),
服务器=功能（输入、输出）{
DF小部件代码有什么问题？你现在得到了什么？它与你想要得到的有什么不同？我有一些东西应该添加，但网站说我输入了太多的请求，所以我无法编辑它：（1）在这个小部件中，我指定了step=00:01，因此它每隔一分钟运行一次，但实际上它每隔一小时运行一次。（2）我无法计算服务器端的散点图部分，以及如何从环境中的df中绘制散点图。