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

我试图在实时直方图中修复未匹配的日期-时间轴。我用了一个类似的例子，改编自

n=5000
df=data.frame（time=Sys.time（）+1:n，y=runif（n））
窗口=1000
对于（i在1中：（n窗口））
{
flush.console（）
df1问题在于，当传递POSIXt对象时，
hist（）
知道时间轴，但当传递直方图对象（如
h
时，
plot（）
不知道时间轴。因此，只需一步完成所有操作，而不是两步：

 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)
 }

n=5000
df=data.frame（time=Sys.time（）+1:n，y=runif（n））
窗口=1000
对于（i在1中：（n窗口））
{
flush.console（）
df1是的，我知道。在我的第二个例子中，我得到了相同的结果。我也评论过轴日期时间随着Sys.sleep小于（0.1）而消失，因此我提出了这个问题。谢谢
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)
}

 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)
 }