如何在ggplot箱线图中用scale_y_time将毫秒转为M:S格式刻度

刚好我之前处理过类似的需求，你的问题核心是原始time列是毫秒数值，而ggplot的scale_y_time()/scale_y_datetime()需要的是时间类对象，所以得先做格式转换，再调整轴标签。下面给你两种实用的方法：

方法一：用hms包转换时间格式 + scale_y_time() #

这种方法先把毫秒转成标准的时间间隔对象，再用scale_y_time()来控制显示格式：

1. 先加载需要的包：

library(ggplot2)
library(hms)  # 专门处理时间间隔的轻量包

2. 把原始的毫秒数值转换成hms类型（本质是秒级的时间间隔）：

# 给数据框新增一列转换后的时间格式
df <- df %>%
  mutate(time_formatted = as_hms(time / 1000))

3. 画图时用转换后的列，并设置Y轴标签为M:S格式：

ggplot(df, aes(x = group, y = time_formatted, fill = group)) +
  geom_boxplot() +
  scale_y_time(labels = function(x) format(x, "%M:%S"))

这里的%M:%S是格式符，%M代表两位分钟，%S代表两位秒数。如果你的数据有超过1小时的情况，想显示小时可以改成%H:%M:%S。

方法二：直接用scale_y_continuous()自定义标签（无需转换列） #

如果不想额外新增列，也可以直接对原始毫秒值计算，生成M:S格式的标签，灵活性更高：

library(ggplot2)

ggplot(df, aes(x = group, y = time, fill = group)) +
  geom_boxplot() +
  scale_y_continuous(
    # 自定义标签函数：把毫秒转成分钟+秒
    labels = function(millis) {
      total_seconds <- millis / 1000
      mins <- total_seconds %/% 60  # 取整数部分作为分钟
      secs <- total_seconds %% 60   # 取余数作为秒数
      sprintf("%02d:%02d", mins, secs)  # 格式化为两位数字的M:S
    },
    # 可选：设置刻度断点，比如每60秒（1分钟）一个刻度
    breaks = seq(0, max(df$time), by = 60 * 1000)
  )

两种方法都能实现你要的M:S轴刻度效果，你可以根据自己的习惯选～

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