我正在尝试创建一个多项目时间表,其中包含项目的各个阶段,以便将我们当前所有的项目组织在一个易于可视化的地方。
我最初发现timeline()
打包并能够半创建我所希望的东西。然而,该包似乎不太可定制,所以我希望在ggplot2()
反而。
这是我的假数据:
Phase Project StartDate EndDate
SD Test1 2015-08-01 2015-08-31
DD Test1 2015-08-31 2015-09-30
CD Test1 2015-09-30 2015-11-14
PC Test1 2015-11-14 2015-12-14
CA Test1 2015-12-14 2016-08-10
SD Test2 2015-09-01 2015-10-01
DD Test2 2015-10-01 2015-10-31
CD Test2 2015-10-31 2015-12-15
PC Test2 2015-12-15 2016-01-14
CA Test2 2016-01-14 2017-01-08
SD Test3 2016-01-01 2016-01-13
DD Test3 2016-01-13 2016-01-25
CD Test3 2016-01-25 2016-02-12
PC Test3 2016-02-12 2016-03-13
CA Test3 2016-03-13 2017-01-07
SD Test4 2015-06-01 2015-06-01
DD Test4 2015-06-01 2015-06-01
CD Test4 2015-06-01 2015-06-01
PC Test4 2015-06-01 2015-07-01
CA Test4 2015-07-01 2015-07-01
SD Test5 2015-05-01 2015-05-25
DD Test5 2015-05-25 2015-06-18
CD Test5 2015-06-18 2015-07-24
PC Test5 2015-07-24 2015-08-23
CA Test5 2015-08-23 2015-08-23
正如您所看到的,每个项目都列出了 5 个阶段(SD、DD、CD、PC、CA),尽管某些项目(测试 4)不会有几个阶段,因为它们当前列出了相同的日期期间。
当我运行代码时timeline()
,这就是我得到的:
data$StartDate<- as.Date(data$StartDate)
data$EndDate<- as.Date(data$EndDate)
timeline(data, text.size=4)
正如您所看到的,在某些情况下,这些阶段会重叠,我无法调整字体或将文本置于各自的框中居中。
因此,我尝试转向 ggplot,但无法弄清楚如何使其与此时间线相似。
到目前为止,这是我的新代码:
ggplot(data,aes(x=data$StartDate, y=data$Project)) +
geom_line()+
geom_point()+
geom_text(aes(label=data$Phase), hjust=0,vjust=0)
就目前情况而言,xlim 太小,无法显示我的几个项目的整个 CA 阶段。另外,我希望能够自定义文本,按最近的开始日期到最新的重新排序,更改 xlab 和 ylab 以及其他我认为不可能的图形更改timleline()
包裹。
感谢您提供的所有帮助,如果您需要任何说明,请告诉我!