小弟的数据是自已Strava帐号上面下载的活动记录。我想要把2023年在各种活动中所花的
时间画个bar plot。2023有在3个不同的时区，所以也想把时区在图上利用背景色呈现出
来。目前已经画出bar plot，遇到的问题是我所用的 geom_rect()并没有把背景上色，好
像只有在背景色区块xmin, xmax各插入白色的bar. 和我参考stack overflow上有用
geom_rect() 改变背景色的图都不一样。不知道是geom_rect不适用于bar plot，还是我
的写法有错，或是有更简洁的其他的function可以改变背景色。
geom_rect()需要指定区块在x, y轴上的坐标，我的原始数据里并没有这个，为了使用
geom_rect(), 我手动产生 time.zones这个data.frame把每个时区的日期范围写死。如果
最后是用geom_rect()来改变背景色，也希望能用比较好的方式产生time.zones. 因为时
区Australia/Brisbane重复了3次，用 group_by()来拿出开始及结束日期的话，出来的数
据会去除掉重复的。这部分我也不知道该如何做。
我把画出来的图 (plot generated)
![color-date-ranges-by-timezones[1]have](https://hackmd.io/_uploads/ryO8HRR4p.jpg)
想要的图 (plot desired)
![color-date-ranges-by-timezones[2]want](https://hackmd.io/_uploads/rJVDBRCEp.jpg)
数据在Google drive 上的连结，及我的程式放在hackmd上
https://hackmd.io/@Chang/adverse-events-gantt-chart
感谢各位先进的指点