在R中的实时直方图中格式化日期时间轴？

Question

我正在尝试在实时直方图中修复未格式化的日期时间轴。我正在使用类似的示例改编自 Time/Date real time plot in R.

n <- 5000
df <- data.frame(time = Sys.time()+1:n, y = runif(n))
window <- 1000

for(i in 1:(n-window)) {
    flush.console()
    df1 <- df[i:(i+window), ]
    h <- hist(as.POSIXct(df1$time), breaks = "mins",  yaxt = "n", 
              col = "gray", main = NULL, freq = TRUE, xlab = "", 
              plot = FALSE, format = "%d %H:%M")
    plot(h, breaks = "mins", col = "gray", main = NULL, freq = TRUE, 
         xlab= "", format = "%d %H:%M")
    Sys.sleep(0.01)
}

另外，我用下面的代码尝试了一半成功。但可悲的是，x 轴显示日期时间就像一个闪光，如果我减少更多Sys.sleep，日期时间轴就会消失，在我的第一个示例中，轴看起来不像未格式化的日期时间轴那么好。

n <- 5000
df <- data.frame(time = Sys.time()+1:n, y = runif(n))
window <- 1000

for(i in 1:(n-window)) {
    flush.console()
    df1 <- df[i:(i+window), ]
    x_at <- pretty(df1$time)
    x_labels <- format(pretty(df1$time), "%d %H:%M")
    hist(df1$time, df1$y,type='l', breaks = "mins", xaxt = 'n')
    axis.POSIXct(side = 1, at = x_at, labels = x_labels)
    Sys.sleep(0.01)
}

能否以更好的方式查看 x 轴？

Answer 1

问题是hist() 在您传递一个 POSIXt 对象时知道时间轴，但是当您传递一个直方图对象时 plot() 不知道h。因此，只需一步完成所有操作，而不是两步：

 n=5000
 df=data.frame(time=Sys.time()+1:n,y=runif(n))
 window=1000
 for(i in 1:(n-window))
 {
    flush.console()
    df1 <-df[i:(i+window),]
    hist(as.POSIXct(df1$time), breaks="mins",  
      yaxt = "n", col="gray", main=NULL, freq = TRUE, xlab= "", 
      format = "%d %H:%M")
    Sys.sleep(0.01)
 }