假设我有一些事件的完成时间。
completion_data <- data.frame(
date=c("2009-05-04", "2010-04-07", "2011-04-02", "2011-05-06",
"2012-06-03", "2012-07-09", "2013-09-03", "2014-02-01"),
time_taken=c("1:53:01", "1:50:01", "1:30:01", "1:29:01",
"1:28:03", "1:20:01", "1:15:11", "1:12:24"))
library(zoo)
library(chron)
completion_data$date <- as.Date(completion_data$date)
completion_data$time_taken <- chron(times.=completion_data$time_taken)
我想创建一个时间序列图,其中x轴为日期,y轴为时间。
completion_ts <- zoo(completion_data$time_taken, completion_data$date)
plot(completion_ts, ylab="Time (H:M:S)", xlab="Date", type='o')
但是,y轴并不像我想要的那样具有H:M:S格式。例如,第一个点对应于1:53:01的时间(即1小时,53分钟,1秒),我希望让y轴使用这种格式。
axis
语句,但不确定是否可以直接绘制times
对象(由chron
创建)