从 R 中的秒数到 HH:MM:SS 格式的轴标签时间

Time to axislabel in HH:MM:SS format from seconds in R

我是 R 和一般编程的新手。我有 "HH:MM:SS" 格式的时间数据。出于绘图目的,我将其转换为秒数。

我现在的问题是如何将轴(在本例中为 x 轴)标签中的秒数转换回这种格式,以便我可以选择是要一秒间隔、一分钟间隔还是一小时间隔间隔或几乎任何用户定义的间隔。大多数是 1、15 或 30 seconds/minutes 或 1,2 小时或这些的组合,例如一分钟和 30 秒,并在轴上为这些轴标签提供适当的位置。

乐于接受任何类型的建议。

使用 lubridate 包

library(lubridate)
t<-seconds_to_period(5000)
parse_date_time(t,"HMS")