在 R 中使用 ggplot2 创建多项目时间线答案

【问题标题】：Creating a Multi-Project Timeline Using ggplot2 in R在 R 中使用 ggplot2 创建多项目时间线
【发布时间】：2015-09-08 14:46:01
【问题描述】：

我正在尝试创建一个包含项目各个阶段的多项目时间表，以便在一个易于可视化的地方组织我们所有当前的项目。

我最初找到了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），尽管有些项目（Test4）不会有几个阶段，因为它们目前列出的日期周期相同。

当我使用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() 包中不可能进行的其他图形更改。

感谢您的任何帮助，如果您需要任何说明，请告诉我！

【问题讨论】：

你真的需要情节中的标签吗？因为你拥有的小间隔会很困难。色块和图例可以吗？
@Heroka - 是的，有色块和图例就足够了。

标签： r ggplot2 boxplot

【解决方案1】：

我选择使用分段而不是功能区，因为它是直线，分段更容易使用离散的 y 轴。

#make ordered factor so that sequence in legend matches sequence in plot
data$Phase_ordered <- factor(data$Phase,levels=c("SD","DD","CD","PC","CA"))

p1 <- ggplot(data,aes(x=StartDate, y=Project, color=Phase_ordered)) +
  geom_segment(aes(x=StartDate,xend=EndDate,yend=Project),size=15) +
 scale_colour_discrete(guide=guide_legend(override.aes=list(size=7))) #or legend will be too big
p1

【讨论】：

完美！非常感谢。最后一个问题，当我包含我所有的实际项目时，我得到一个图表like this，其中 StartDate 变得模糊和重叠。我尝试包含scale_x_date()，但它给了我一个错误“离散值提供给连续规模”。我做错了什么？
您确定 date 是您数据框中的日期对象吗？
看起来这是那些非常严重的经典“缺少逗号”错误之一。感谢您再次入住并提供出色的解决方案！
现在我已经正确设置了我的绘图，ggplot() 会自动按我的项目名称在 Y 轴上按字母顺序排序。我一直无法找到一种方法来按 SD 阶段的最早 StartDate 进行排序，因为数据最初是在我的数据框中排序的。这将使图表更美观，对用户更有帮助。
您需要将 y 变量设为一个因子，按 StartDate 排序。例如：data$Project_ordered <- reorder(data$Project,data$StartDate)，并将其作为 y 放入您的绘图中。