如何补全数据框中0.5秒间隔的Datetime列缺失记录？

我有一个包含不完整Datetime变量的数据框，数据的时间间隔为0.5秒，需要找出缺失的时间点并插入对应记录。示例数据如下：

df <- structure(list(time = structure(c(1652182189, 1652182189, 1652182190, 1652182191), class = c("POSIXct", "POSIXt"), tzone = ""), positionx = 3:6), row.names = c(NA, -4L), class = "data.frame")

尝试用pad()函数处理时：

pad(df, interval = " .5 sec")

遇到错误：

Error: interval is not valid.

原因是pad()函数最小间隔单位为秒，不支持0.5秒的间隔。需要将数据补全为如下形式：

time                positionx
  <dttm>                  <int>
1 2022-05-10 19:29:49         3
2 2022-05-10 19:29:49         4
3 2022-05-10 19:29:50         5
4 2022-05-10 19:29:50        NA
5 2022-05-10 19:29:51         6

解决方案 #

可以通过生成完整的0.5秒间隔时间序列，再与原数据合并的方式实现，以下是两种可行方法：

方法一：使用complete()函数（简洁版） #

借助tidyr包的complete()函数，直接生成完整时间序列并补全缺失记录：

library(tidyr)
library(lubridate)

# 生成完整时间序列并补全缺失项
result <- df %>%
  complete(time = seq(min(time), max(time), by = 0.5)) %>%
  arrange(time)

print(result)

方法二：手动生成时间序列再合并 #

如果需要更灵活的控制，可以手动生成完整时间序列后与原数据左连接：

library(lubridate)
library(dplyr)
library(tidyr)

# 提取原数据的时间范围，生成0.5秒间隔的完整时间序列
full_times <- seq(min(df$time), max(df$time), by = 0.5) %>%
  as_tibble_col(column_name = "time")

# 合并原数据与完整时间序列，保留所有时间点并补全缺失记录
result <- full_times %>%
  left_join(df %>% group_by(time) %>% nest(), by = "time") %>%
  unnest(cols = c(data), keep_empty = TRUE) %>%
  arrange(time)

print(result)

两种方法运行后都会得到目标格式的数据框，缺失的时间点会被自动插入，对应positionx字段填充为NA。

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