我有以下数据:
> Data
Date Start End
1 2011-11-15 12:01:27 12:30:15
2 2011-11-16 12:01:25 12:32:15
3 2011-11-17 12:01:02 12:39:12
4 2011-11-19 12:01:12 12:30:18
我还附加了一个 Duration 列
Data[,4] <- as.numeric(difftime(Data$End,Data$Start))
names(Data)[4] <- "Duration"
我的脑海中有一个开始,结束的可视化,看起来有点像股票烛台或OHLC图表,其中 x 值是日期,y 是结束 - 开始。
结束在顶部,矩形下降到开始——矩形的高度随着时间的推移而变化。也就是说,每个 Date 都有不同的矩形高度,由 Start 和 End 之间的差异决定。
这里的 x 轴从 2011-11-15 到 2011-11-19。y 轴从 12:00:00 到 12:40:00。
是否有任何 ggplot 向导看到了一种简单的方法来做到这一点?由于 Start 和 End 都随着时间而变化,我是否必须使用 geom_ribbon 或 geom_polygon 而不是 geom_bar 或 geom_area?
如果在 Duration 的值大于 2 个标准差的日子里,条形的颜色可以变为红色,那就太酷了!