绘制不同长度的轴，然后绘制线条

Question

好吧，我真的在为此苦苦挣扎。我试图阅读 StackOverflow 上的各种答案，但没有找到解决方案。所以这里是：

我有客户 ID，并且有运营时间。我也有与在队列中等待的客户相关的时间间隔。我想将代表客户等待时间的线绘制到 xlab: hours of operations, ylab: client.

数据：

 [1] "2011-05-12 08:00:00 " "2011-05-12 09:00:00 "
 [3] "2011-05-12 10:00:00 " "2011-05-12 11:00:00 "
 [5] "2011-05-12 12:00:00 " "2011-05-12 13:00:00 "
 [7] "2011-05-12 14:00:00 " "2011-05-12 15:00:00 "
 [9] "2011-05-12 16:00:00 " "2011-05-12 17:00:00 "
[11] "2011-05-12 18:00:00 " "2011-05-12 19:00:00 "
[13] "2011-05-12 20:00:00 "

顺便问一下，这里有两个问题： 1.有没有方便的方法来存储没有日期的时间？比如“19:00:00” 2. 如何用 min 创建时间序列

clients[1:10]
 [1] G155 H54  G157 G158 J52  A51  C52  D52  G151 Y51 

那么我就有时间为每一位客户服务：

xcl[1:3,]
             StartTime            NextTime             EndTime TrackNo
33 2011-04-29 19:15:57 2011-04-29 19:20:04 2011-04-29 19:23:13    G155
34 2011-04-29 19:16:06 2011-04-29 19:25:41 2011-04-29 19:26:13     H54
36 2011-04-29 19:45:56 2011-04-29 19:47:58 2011-04-29 19:48:42    G157

所以我可以计算等待时间和操作时间。我想画水平线来表示。我该怎么做？

Answer 1

DF <- read.table(text="StartTime,NextTime,EndTime,TrackNo
33,2011-04-29 19:15:57,2011-04-29 19:20:04,2011-04-29 19:23:13,G155
34,2011-04-29 19:16:06,2011-04-29 19:25:41,2011-04-29 19:26:13,H54
36,2011-04-29 19:45:56,2011-04-29 19:47:58,2011-04-29 19:48:42,G157", header=TRUE, sep=",", stringsAsFactors=FALSE)

#make datetimes POSXct objects
DF[,1:3] <- do.call(cbind.data.frame,lapply(DF[,1:3], as.POSIXct, format="%Y-%m-%d %H:%M:%S", tz="GMT"))

#discard date information
DF <- cbind(DF, do.call(cbind.data.frame,lapply(DF[,1:3], function(x) as.POSIXct(format(x, "%H:%M:%S"), format="%H:%M:%S", tz="GMT"))))
names(DF)[5:7] <- paste0(names(DF)[5:7],1)

library(ggplot2)

p <- ggplot(DF, aes(y=TrackNo, yend=TrackNo)) +
  geom_segment(aes(x=StartTime1, xend=NextTime1), colour="red", size=2) +
  geom_segment(aes(x=NextTime1, xend=EndTime1), colour="green", size=2) +
  theme_classic(base_size=23) +
  xlab("Time") +
  ylab("")

print(p)