R语言拆分日期时间列并保留日期/时间类型的问题求助

首先明确：R原生没有「纯时间」数据类型，推荐用hms包的hms类型存储纯时间，它支持时间运算且不会附加日期。以下是基于tidyverse的完整解决方案：

步骤1：安装并加载依赖包 #

如果未安装hms和lubridate，先执行安装：

install.packages(c("hms", "lubridate"))
library(tidyverse)
library(hms)
library(janitor)

步骤2：完整处理代码（一步到位） #

sleep_new <- sleep %>%
  # 重命名原日期时间列
  rename(datetime = SleepDay) %>%
  # 将字符型转成POSIXct datetime类型
  mutate(datetime = as.POSIXct(datetime, format = "%m/%d/%Y %H:%M:%S"),
         # 提取Date类型的日期列
         date = date(datetime),
         # 提取hms类型的纯时间列
         time = as_hms(datetime)) %>%
  # 将date和time移到指定位置（示例为第2、3列，即第一列之后）
  relocate(date, time, .after = 1) %>%
  # 移除原datetime列
  select(-datetime)

关键细节说明 #

• 为什么不用format()？因为format()返回的是字符型，而我们需要原生日期/时间类型。lubridate::date()直接从POSIXct提取Date类型，hms::as_hms()提取纯时间的hms类型，完全匹配需求。
• relocate()可精准控制列位置：.after = 1表示放在第一列之后；如果要按列名指定位置，比如第一列叫user_id，可以写.after = user_id。
• 全程用管道串联，无需分步修改列，简洁且不易出错。

验证结果 #

运行以下代码查看列类型：

str(sleep_new)

你会看到date列是Date类型，time列是hms类型，完全符合要求。

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