如何在R中对以分钟级时间戳为列名的数据框按时间排序？

以下是两种在R中快速实现按时间从早到晚排序列的方法，无需手动罗列所有列名：

方法一：使用lubridate + dplyr（简洁直观） #

借助lubridate包的hm()函数可以直接将"HH:MM"格式的列名转换为时间周期对象，再排序：

library(dplyr)
library(lubridate)

# 替换成你的tibble名称
target_tibble <- your_tibble_name

# 生成排序后的列名列表
sorted_col_names <- names(target_tibble) %>%
  hm() %>%  # 将"HH:MM"转为可排序的时间周期
  sort() %>%
  as.character()

# 重新排列列
sorted_tibble <- target_tibble %>% select(all_of(sorted_col_names))

方法二：Base R实现（无需额外包） #

通过将时间戳转换为当日总分钟数（0-1439），利用数值排序实现：

# 替换成你的tibble名称
target_tibble <- your_tibble_name

# 解析列名的时间，计算当日总分钟数
col_time_objects <- strptime(names(target_tibble), format = "%H:%M")
total_minutes <- col_time_objects$hour * 60 + col_time_objects$min

# 按总分钟数排序得到列名顺序
sorted_col_names <- names(target_tibble)[order(total_minutes)]

# 重新排列列
sorted_tibble <- target_tibble[, sorted_col_names]

两种方法的核心逻辑一致：先将文本格式的时间戳转换为可排序的对象（时间周期或数值），再根据排序结果重新调整tibble的列顺序。

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