最后几天,我正在思考以下问题:我想将活动的持续时间绘制为一条线,y轴表示活动发生的日期,x轴表示时间(小时).当我处理在同一天开始和结束的活动时,这很容易.
例如:
df1<-structure(list(Date = structure(c(16802, 16803, 16805, 16806,
16809, 16810, 16812, 16813, 16816, 16820, 16821, 16822, 16829
), class = "Date"), hms1 = structure(c(1457623680, 1457620860,
1457621160, 1457622540, 1457625600, 1457621280, 1457620380, 1457619720,
1457623620, 1457621460, 1457620440, 1457617980, 1457621880), class = c("POSIXct", "POSIXt"), tzone = ""), hms2 = structure(c(1457632500, 1457627640,
1457628360, 1457629500, 1457631000, 1457625120, 1457625420, 1457624520,
1457627640, 1457626800, 1457626800, 1457622060, 1457625540), class = c("POSIXct",
"POSIXt"), tzone = "")), .Names = c("Date", "hms1", "hms2"), class = "data.frame", row.names = c(103L, 105L, 108L, 110L, 114L, …