如何基于R语言绘制仅统计时间（不含日期）的直方图？

核心问题分析 #

• as.Date()仅处理日期部分，会直接丢弃时间信息，无法用于时间分布分析
• substr()提取的是字符型时间字符串，而hist()函数需要数值型输入，因此会报错

解决方案 #

下面提供两种可行的实现方式，均基于将时间转换为一天中的小时数值（支持小数，如11:11:00对应≈11.183），再绘制直方图。

方法1：基础R实现（无需额外包）

# 1. 将DateTime列转换为POSIXct类型（保留完整日期时间信息）
DF$DateTime <- as.POSIXct(DF$DateTime, format = "%Y-%m-%d %H:%M:%S")

# 2. 计算每个时间点在一天中的小时数
DF$HourOfDay <- as.numeric(format(DF$DateTime, "%H")) + 
                as.numeric(format(DF$DateTime, "%M"))/60 + 
                as.numeric(format(DF$DateTime, "%S"))/3600

# 3. 绘制直方图
hist(DF$HourOfDay, 
     breaks = seq(0, 24, 1),  # 按小时分桶
     main = "一天24小时观测值分布", 
     xlab = "一天中的小时数", 
     col = "lightblue")

方法2：用lubridate包简化操作

lubridate包提供了更直观的日期时间处理函数：

# 安装并加载lubridate包（首次使用需安装）
install.packages("lubridate")
library(lubridate)

# 1. 自动解析DateTime为POSIXct类型
DF$DateTime <- ymd_hms(DF$DateTime)

# 2. 提取一天中的小时数（含小数）
DF$HourOfDay <- hour(DF$DateTime) + minute(DF$DateTime)/60 + second(DF$DateTime)/3600

# 3. 绘制直方图
hist(DF$HourOfDay, 
     breaks = seq(0, 24, 1), 
     main = "一天24小时观测值分布", 
     xlab = "一天中的小时数", 
     col = "lightblue")

额外：直接使用现有Time列处理

如果数据中已有单独的Time列，可以直接基于该列计算：

# 将Time列转换为POSIXct格式（虚拟日期不影响时间计算）
DF$TimePOSIX <- as.POSIXct(DF$Time, format = "%H:%M:%S")

# 计算与0点的时间差，转换为小时数
DF$HourOfDay <- as.numeric(difftime(DF$TimePOSIX, as.POSIXct("00:00:00", format = "%H:%M:%S"), units = "hours"))

# 绘制直方图
hist(DF$HourOfDay, 
     breaks = seq(0, 24, 1), 
     main = "一天24小时观测值分布", 
     xlab = "一天中的小时数", 
     col = "lightblue")

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