R语言如何将字符型时间戳转为POSIXct datetime并补全缺失时间

1. 时间列格式转换方法 #

你之前的代码仅执行了转换运算，没有将结果赋值回原数据框的对应列，因此原数据不会发生变化，正确转换代码如下：

# 将转换后的格式赋值回TIMESTAMP列
data$TIMESTAMP <- as.POSIXct(data$TIMESTAMP, format = "%Y-%m-%d %H:%M:%S")

转换完成后可执行class(data$TIMESTAMP)验证，输出结果包含"POSIXct"即说明转换成功。

2. 补全缺失分钟级时间戳方案 #

方案1：tidyverse生态实现（推荐，代码可读性更高） #

library(dplyr)
library(tidyr)

# 先完成时间列格式转换
data <- data %>%
  mutate(TIMESTAMP = as.POSIXct(TIMESTAMP, format = "%Y-%m-%d %H:%M:%S"))

# 按日期生成完整时间区间并补全缺失行
data_complete <- data %>%
  # 提取日期作为分组依据
  mutate(date = as.Date(TIMESTAMP)) %>%
  group_by(date) %>%
  # 生成当前日期09:00:00到17:30:00的每分钟完整时间序列
  complete(TIMESTAMP = seq(
    from = as.POSIXct(paste(unique(date), "09:00:00")),
    to = as.POSIXct(paste(unique(date), "17:30:00")),
    by = "min"
  )) %>%
  ungroup() %>%
  # 移除辅助计算的日期列
  select(-date)

补全后缺失时间对应的Price列默认值为NA，你可根据业务需求用fill()、replace_na()等函数做后续缺失值处理。

方案2：base R实现 #

# 转换时间列格式
data$TIMESTAMP <- as.POSIXct(data$TIMESTAMP, format = "%Y-%m-%d %H:%M:%S")
# 提取数据中所有独立日期
all_dates <- unique(as.Date(data$TIMESTAMP))
# 生成所有日期对应的09:00-17:30完整分钟级时间序列
full_timestamp <- do.call(c, lapply(all_dates, function(d) {
  seq(
    from = as.POSIXct(paste(d, "09:00:00")),
    to = as.POSIXct(paste(d, "17:30:00")),
    by = "min"
  )
}))
# 关联原数据生成补全后的数据框
data_complete <- merge(data.frame(TIMESTAMP = full_timestamp), data, by = "TIMESTAMP", all.x = TRUE)

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