在R中如何将表格内晚于18:00的时间转换为次日06:00？

Hey there! Let's tackle this step by step—since you're new to R, I'll keep things clear and avoid unnecessary jargon.

核心需求回顾 #

你需要扫描表格里的时间数据，把所有晚于18:00的时间改成次日06:00，同时想用当前系统日期配合lubridate::ymd_hms()来处理时间格式，还对因子、变量这些概念有点懵。

第一步：快速扫盲基础概念 #

• 变量：就像一个储物盒，用来存放数据（比如日期、时间、数字）。比如我们会用current_date这个变量存今天的日期，方便后续重复调用。
• 因子：R里专门用来表示分类数据的类型（比如性别选项、商品类别）。如果你的时间列是因子类型，得先转成普通文本（字符型），不然和日期拼接时会出问题。

第二步：完整代码实现 #

假设你的表格叫df，时间列叫time_col（比如里面是"17:30:00"、"19:15:00"这样的时分秒字符串），下面是完整的操作代码：

# 先加载lubridate包
library(lubridate)

# 1. 获取当前系统日期（自动取今天的日期，比如2024-05-20）
current_date <- Sys.Date()

# 2. 处理时间列：如果是因子类型，先转成字符型
# （如果你的time_col已经是字符型，这一步可以跳过）
df$time_col <- as.character(df$time_col)

# 3. 把日期和时间拼接，转成完整的datetime格式（带时区）
df$full_datetime <- ymd_hms(
  paste(current_date, df$time_col),
  tz = "America/Chicago"  # 这里把时区写全，比如"America/Chicago"
)

# 4. 判断并调整时间：晚于18:00的替换成次日06:00
df$adjusted_datetime <- ifelse(
  hour(df$full_datetime) >= 18,  # 提取小时部分，判断是否>=18
  ymd_hms(paste(current_date + days(1), "06:00:00"), tz = "America/Chicago"),  # 次日06:00
  df$full_datetime  # 不满足条件的保留原时间
)

# 5. 如果只需要时分秒的结果（不需要日期），可以转成字符串格式
df$adjusted_time_str <- format(df$adjusted_datetime, "%H:%M:%S")

代码逐行解释 #

• Sys.Date()：自动获取当前系统的日期，不用手动输入，非常省心。
• paste(current_date, df$time_col)：把日期和时间字符串拼在一起，比如"2024-05-20 19:15:00"，这样ymd_hms()就能正确识别了。
• hour(df$full_datetime)：从完整的datetime里提取小时数，用来判断是否晚于18:00。
• current_date + days(1)：计算次日的日期，比如今天是2024-05-20，加1天就是2024-05-21。
• format(..., "%H:%M:%S")：把datetime格式转成只显示时分秒的字符串，比如"06:00:00"。

小提示 #

如果你的时间列里有缺失值或者格式不对的内容，ymd_hms()会返回NA，可以用下面的代码检查并处理这些情况：

# 检查哪些行转成datetime失败了
which(is.na(df$full_datetime))

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