如何合并多个含缺失数据的不规则时间序列生成规整数据框？

核心问题分析 #

你遇到的问题主要源于两个关键错误：

1. zoo对象构造语法错误：zoo包的构造函数是zoo(数据向量, order.by = 时间索引)，而非你使用的date=/flow=命名参数，错误的对象结构直接导致后续合并失败。
2. merge.zoo使用前提错误：该函数需要传入合法的zoo对象，而非直接传入tibble，自动转换多对象时容易触发对齐逻辑异常。

方法一：Tidyverse全连接法（直观易读） #

借助purrr::reduce对所有数据框依次执行全连接，自动对齐日期并填充缺失值：

library(tidyverse)
library(lubridate)

# 为每个数据框的流量列重命名为对应序列标识
A_named <- A %>% rename(A = flow)
B_named <- B %>% rename(B = flow)
C_named <- C %>% rename(C = flow)
D_named <- D %>% rename(D = flow)

# 批量全连接并按日期排序
merged_df <- list(A_named, B_named, C_named, D_named) %>%
  reduce(full_join, by = "date") %>%
  arrange(date)

执行后将得到：一列连续无缺失的date列，以及分别对应A/B/C/D的流量列，缺失位置自动填充NA。

方法二：Zoo包标准处理法 #

先将每个tibble转换为合法zoo对象，再合并后转回tibble：

library(zoo)
library(tidyverse)
library(lubridate)

# 正确创建zoo对象：数据在前，order.by指定时间索引
zoo_A <- zoo(A$flow, order.by = A$date)
zoo_B <- zoo(B$flow, order.by = B$date)
zoo_C <- zoo(C$flow, order.by = C$date)
zoo_D <- zoo(D$flow, order.by = D$date)

# 合并zoo对象，fill=NA确保缺失值填充
merged_zoo <- merge(zoo_A, zoo_B, zoo_C, zoo_D, fill = NA)

# 转回tibble格式
merged_df <- merged_zoo %>%
  fortify.zoo(rename = FALSE) %>%
  as_tibble() %>%
  rename(date = Index)

最终的merged_df完全符合你的需求：日期连续完整，各序列缺失值已正确填充。

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

• cbind/bind_cols：要求所有数据框行数严格一致，你的序列长度不同，直接使用会触发对齐错误或报错。
• 直接传入tibble给merge.zoo：zoo自动转换多非标准对象时，对齐逻辑会出现异常，无法正确处理不规则序列。
• ts.union/ts.intersect：仅适用于固定频率的规则时间序列（如ts对象），你的数据是不规则时间点，完全不适用。

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