使用zoo包绘制时间序列：扩展X轴及叠加异尺度序列问题

我完全懂你碰到的这个麻烦——用zoo包处理日度时序时，想把X轴扩展到当前zoo对象的日期范围之外，用来叠加另一个尺度不同的时间序列，但不管是add=T还是points()都没效果，改用par(new=T)后又只显示坐标轴，看不到实际数据。这其实是因为zoo的绘图逻辑和基础R绘图有差异，加上双尺度序列的坐标对齐需要更细致的设置，我给你一步步拆解解决方案：

核心问题分析 #

zoo的plot()函数默认会自动把X轴范围锁定在自身的时间索引范围内，当你用par(new=T)叠加第二个序列时，如果不手动统一两个序列的X轴范围，第二个序列的时间范围如果和第一个不重叠，数据就会被“挤出”可见区域；另外，两个序列尺度不同，必须用双Y轴来区分，不然数值范围差异大会导致其中一个序列的线条被压缩成一条线。

具体解决步骤 #

1. 统一两个序列的时间范围 #

首先要把两个序列的日期范围合并，得到我们需要扩展的X轴总范围：

# 假设你的第二个时间序列是 another.ts（需先转为zoo对象）
all_time_range <- range(c(time(2017.ts), time(another.ts)))

如果你的第二个序列还不是zoo对象，先转成zoo确保时间索引格式一致：

# 示例：从数据框读取并转为zoo，根据你的日期格式调整format参数
another.ts <- read.zoo(another_day_data, format = "%Y-%m-%d")

2. 绘制第一个序列并指定扩展后的X轴 #

先画出第一个zoo序列，手动设置xlim为我们刚才合并的总时间范围，同时设置好左侧Y轴的标签：

plot(2017.ts, 
     xlim = all_time_range, 
     ylab = "2017日度序列数值", 
     main = "双尺度时间序列叠加图",
     col = "darkblue")

3. 用par(new=T)叠加第二个序列并设置双Y轴 #

接下来开启新的绘图层，注意要关闭默认的X、Y轴绘制，避免重复，然后指定同样的xlim，再手动添加右侧Y轴：

# 开启新绘图层，不清除现有绘图
par(new = TRUE)

# 绘制第二个序列，关闭默认坐标轴，设置颜色区分
plot(another.ts, 
     xlim = all_time_range, 
     ylab = "",  # 不显示重复Y轴标签
     xaxt = "n", # 不绘制新的X轴
     yaxt = "n", # 不绘制新的Y轴
     col = "darkred",
     lty = 2) # 用虚线区分第二个序列

# 添加右侧Y轴，颜色和序列一致
axis(side = 4, col = "darkred", col.axis = "darkred")
# 添加右侧Y轴标签
mtext("另一序列数值", side = 4, line = 3, col = "darkred")

# 添加图例说明
legend("topleft", 
       legend = c("2017日度序列", "另一时间序列"),
       col = c("darkblue", "darkred"),
       lty = c(1, 2))

为什么之前的方法无效？ #

• 用add=T或points()无效：因为zoo的plot()不支持add参数（基础R的plot支持，但zoo的plot方法是重载过的），所以这个参数根本不起作用；points()需要你手动把zoo序列的时间和数值提取出来（比如points(time(another.ts), coredata(another.ts))），但同样会受X轴范围限制。
• 用par(new=T)只显示坐标轴：因为你没手动指定xlim为合并后的范围，第二个序列的plot()会自动把X轴缩到自身的时间范围，如果这个范围和第一个序列的不重叠，数据就不在可见区域内。

内容的提问来源于stack exchange，提问作者Anke