R语言拆分日期时间列：时间值显示异常的问题求助

我有一个数据集，其中valid列是字符类型，包含日期与时间信息，想要拆分为独立的日期列和时间列并保留原始数值。数据集前10行如下：

> head(data, 10)
   station            valid speed
1     PHNL 2021-01-01 00:00 14.95
2     PHNL 2021-01-01 00:05 21.85
3     PHNL 2021-01-01 00:10 17.25
4     PHNL 2021-01-01 00:15 19.55
5     PHNL 2021-01-01 00:20 16.10
6     PHNL 2021-01-01 00:25 17.25
7     PHNL 2021-01-01 00:30 12.65
8     PHNL 2021-01-01 00:35 17.25
9     PHNL 2021-01-01 00:40 18.40
10    PHNL 2021-01-01 00:45 17.25

使用以下代码处理后，日期列正常，但时间列全部显示为00:00：

data$date=as.Date(data$valid) 
data$time=format(as.POSIXct(data$valid),
                 format="%H:%M")

得到错误结果：

station            valid speed       date  time
1    PHNL 2021-01-01 00:00 14.95 2021-01-01 00:00
2    PHNL 2021-01-01 00:05 21.85 2021-01-01 00:00
3    PHNL 2021-01-01 00:10 17.25 2021-01-01 00:00
4    PHNL 2021-01-01 00:15 19.55 2021-01-01 00:00
5    PHNL 2021-01-01 00:20 16.10 2021-01-01 00:00
6    PHNL 2021-01-01 00:25 17.25 2021-01-01 00:00

解决方法 #

1. 基础R：显式指定as.POSIXct的格式参数 #

问题出在as.POSIXct转换时，R可能未正确识别时间部分的格式，显式声明格式即可修复：

# 先将字符列转为标准POSIXct类型
data$valid_posix <- as.POSIXct(data$valid, format = "%Y-%m-%d %H:%M")
# 提取日期
data$date <- as.Date(data$valid_posix)
# 提取时间
data$time <- format(data$valid_posix, format = "%H:%M")

2. 使用tidyr包直接拆分字符列 #

如果不需要转换为日期时间类型，仅需拆分字符列，用separate更高效：

library(tidyr)
# 按空格拆分valid列，生成date和time列，保留原始valid列
data <- separate(data, col = valid, into = c("date", "time"), sep = " ", remove = FALSE)
# 可选：将date列转为Date类型
data$date <- as.Date(data$date)

3. 使用lubridate包简化处理 #

lubridate包专门处理日期时间，无需手动指定格式，代码更简洁：

library(lubridate)
# 自动识别格式转为POSIXct类型
data$valid_posix <- ymd_hm(data$valid)
# 提取日期
data$date <- date(data$valid_posix)
# 提取时间
data$time <- format(data$valid_posix, "%H:%M")

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