在R语言中如何将大于12:00的军事时间转换为标准时间

直接字符串比较或者转纯数字的思路都不对，得先把时间转成可计算的时间对象，再处理小时部分。下面给两种靠谱的实现方法：

方法一：基础R原生处理 #

先把时间字符串转成POSIXlt时间对象，提取小时和分钟后做逻辑判断，最后拼接成目标格式：

# 示例数据框（模拟你的数据结构）
df <- data.frame(
  var1 = c("08:30", "14:45", "12:00", "23:10", NA),
  var2 = c("13:20", "09:15", "17:50", "00:00", NA)
)

# 定义转换函数
convert_to_12h <- function(time_str) {
  if (is.na(time_str)) return(NA)
  # 解析时间字符串为时间对象
  time_obj <- strptime(time_str, format = "%H:%M")
  hour <- time_obj$hour
  minute <- time_obj$min
  
  # 处理小时逻辑：大于12减12，0点转为12点
  if (hour > 12) {
    hour <- hour - 12
  } else if (hour == 0) {
    hour <- 12
  }
  # 补零格式化，确保输出是"09:30"而非"9:30"
  sprintf("%02d:%02d", hour, minute)
}

# 批量应用到数据框的两列
df$var1 <- sapply(df$var1, convert_to_12h)
df$var2 <- sapply(df$var2, convert_to_12h)

方法二：用lubridate包简化操作 #

lubridate的hm()函数可以直接解析小时分钟，代码更简洁：

library(lubridate)

# 定义转换函数
convert_to_12h_lub <- function(time_str) {
  if (is.na(time_str)) return(NA)
  time_hm <- hm(time_str)
  hour <- hour(time_hm)
  minute <- minute(time_hm)
  
  if (hour > 12) {
    hour <- hour - 12
  } else if (hour == 0) {
    hour <- 12
  }
  sprintf("%02d:%02d", hour, minute)
}

# 应用到数据列
df$var1 <- sapply(df$var1, convert_to_12h_lub)
df$var2 <- sapply(df$var2, convert_to_12h_lub)

你原有代码的问题 #

1. 循环里的x没有明确对应df$var1的行元素，逻辑不完整
2. 直接比较字符串x > "12:00"会出错——比如字符串"09:00"会被判定为大于"12:00"（因为字符"9"的ASCII码比"1"大）
3. as.numeric(x)直接转时间字符串会得到NA，必须先转成时间对象再提取小时数值

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