如何在R中将Excel的HH:MM时间转为数值分钟并正确绘图？

1. 用Tidyverse优雅转换时间差为数值分钟 #

使用lubridate（tidyverse生态工具包）处理时间格式，直接更新原数据框的列，确保后续绘图读取的是数值型数据：

library(tidyverse)
library(lubridate)

# 转换日期格式 + 将时分格式时间差转为分钟数
Sample <- Sample %>%
  mutate(
    Date = mdy(Date),  # 自动识别月/日/年格式，替代手动写format的as.Date
    time = as.numeric(hm(time)) / 60  # 解析时分格式为周期，转秒数后除以60得到分钟数
  )

2. 修正绘图代码解决Y轴格式与阈值线问题 #

核心调整两点：

• 将geom_hline的yintercept移出aes()，直接指定数值（放在aes()内时，ggplot会尝试从数据框读取对应变量，导致失效）
• 用scale_y_continuous()明确声明Y轴为连续数值刻度，避免ggplot误判为时间格式

ggplot(Sample, aes(x = Date, y = time)) +
  geom_point() +
  geom_hline(yintercept = 45, color = 'red', linetype = "dashed") +  # 添加虚线样式更醒目
  scale_x_date(date_labels = "%m/%d/%y", guide = guide_axis(angle = 60)) +  # 用scale_x_date处理日期轴更适配
  scale_y_continuous(name = "时间差（分钟）") +  # 自定义Y轴标题，明确数值含义
  theme_bw() +
  theme(axis.text.x = element_text(hjust = 1))

关键问题说明 #

• Y轴显示HH:MM：原代码未将转换后的数值time写入原数据框Sample，ggplot仍读取了原始的字符/时间类型列；用mutate直接更新数据框可彻底解决。
• 红色阈值线不显示：geom_hline的yintercept放在aes()内部时，ggplot会尝试从数据框中读取名为45的变量，显然不存在，因此移出aes()直接指定数值即可正常显示。

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