ggplot2自定义Y轴刻度：秒转分:秒格式后刻度消失求助

问题描述 #

拥有世界纪录数据，需绘制可视化图表。Y轴为纪录时间（单位：秒），希望将其重新标注为m:ss格式，但使用以下代码后，Y轴刻度标签完全消失：

ggplot(men, aes(x=Year, y=Time, colour=Nationality)) +
  geom_point()+
  scale_y_discrete(labels = c('210' = '3m30s', '240' = '4m00s', '270' = '4m30s'))

问题原因 #

你的Time字段是连续数值类型，但代码中使用了针对离散变量的scale_y_discrete，这会导致ggplot无法将连续的时间数值与你手动指定的离散标签匹配，最终Y轴刻度完全消失。

解决方法 #

改用针对连续变量的scale_y_continuous，并自定义函数自动将秒数转换为m:ss格式：

1. 定义秒转m:ss的转换函数：

sec_to_mss <- function(sec) {
  minutes <- floor(sec / 60)
  seconds <- sec %% 60
  sprintf("%d:%02d", minutes, seconds)
}

2. 修改绘图代码：

ggplot(men, aes(x=Year, y=Time, colour=Nationality)) +
  geom_point() +
  scale_y_continuous(labels = sec_to_mss)

可选优化 #

如果需要手动指定Y轴的刻度断点，可添加breaks参数：

ggplot(men, aes(x=Year, y=Time, colour=Nationality)) +
  geom_point() +
  scale_y_continuous(breaks = c(210, 240, 270), labels = sec_to_mss)

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