如何让 R lattice xyplot 忽略时间间隔并制作连续的时间序列图？

Question

我有一个正在尝试绘制的 xts 系列。该系列包含一个月的日内日期，周末的数据有缺口。我在 R 中使用 xyplot (lattice) 来绘制时间序列，并且对结果非常满意。

不幸的是，这些情节保留了周末的空白。我想忽略周末的间隔，让我的时间序列情节连续，如果有人指出我正确的方向，我将不胜感激。

当前命令是：

xyplot(close~MyTime, type='l', col='black',ylab='',xlab='', main='Test')

我尝试了 JohnPaul 的方法，它“几乎”有效。标签虽然存在，但无法正确呈现。最后一个标签只到 1 月 3 日，而实际数据一直延伸到 2 月。使用的命令是：

PlotOrd<-order(Mytime)
xyplot(close~PlotOrd, type='l', col='black',ylab='',xlab='', main='Close',scales=list( x=list( labels=MyTime))  )

Answer 1

如果我理解正确的话，你想做的就是让周末完全不出现在情节中。一种方法是制作另一个向量，它是您希望绘制close 的顺序 - 一个不包括周末的向量。假设周末不包括在 time 中，这应该可以工作：

PlotOrd<-order(Mytime)

xyplot(close~PlotOrd, type='l', col='black',ylab='',xlab='', main='Test')

这将为您提供正确的绘图，但您的 x 轴刻度标签将只是来自 PlotOrd 的数字。如果您想将它们保留为日期，请为 x 轴添加 scales 参数，如下所示：

xyplot(close~PlotOrd, type='l', col='black',ylab='',xlab='', main='Test',
scales=list( x=list( labels=Mytime )) )

编辑

控制轴标签的一种方法是也使用at 参数。这里有点笨拙，我希望我能想出一个更优雅的想法，但这会奏效：

xyplot(close~PlotOrd, type='l', col='black',ylab='',xlab='', main='Test',
scales=list( x=list(at=c(50,100,150,200), labels=Mytime[c(50,100,150,200)] )) )

这将在观测值 50,100,150 和 200 处添加刻度，并将给出来自 MyTime 的相应值作为标签。缺点是你必须自己写在刻度上。您可以添加一些代码来生成一系列值。假设您每 15 天需要一个标签。如果你计算出对应的测量值，你可以创建一个相距很远的数字序列（称之为MyTicks）。然后喂给at=MyTicks 和labels=MyTime[MyTicks]。还是让格子为你挑选蜱虫会更好......