r - 可视化以日期范围表示的时间范围数据

我想将以下五个项目的时间框架数据可视化。目前，我正在使用OpenOffice绘图应用程序并手动生成如下图。但是我不满意。您能帮我解决以下问题吗？谢谢。

1. How can I produce somewhat similar graphs using R (or excel) with better precision in terms of days?
2. Is there a way for better visualization of the data? If so, please let me know how to produce that using R or Excel.

Project     Time
-------    ------
A   Feb 15 – March 1
B   March 15 – June 15
C   Feb 1 – March 15
D   April 10 – May 15
E   March 1 – June 30

最佳答案

ggplot2提供了一种(合理的)直接的方式来构建绘图。

首先，您需要将数据放入R。您希望开始日期和结束日期为Date中的某种R格式(我已经使用了Date)

library(ggplot2)
library(scales) # for date formatting with ggplot2

DT <- data.frame(Project = LETTERS[1:5],
  start = as.Date(ISOdate(2012, c(2,3,2,4,3), c(15,15,1,10) )),
  end = as.Date(ISOdate(2012, c(3,5,3,5,6), c(1,15,15,15,30))))
# it is useful to have a numeric version of the Project column (
DT$ProjectN <- as.numeric(DT$Project)

您还将需要计算文本的放置位置，我将使用plyr包中的ddply1

library(plyr)
# find the midpoint date  for each project
DTa <- ddply(DT, .(ProjectN, Project), summarize, mid = mean(c(start,end)))

您要创建

每个项目的

矩形，因此您可以使用geom_rect

每个中点的

文本标签

这是一个如何绘制情节的例子

ggplot(DT) +
   geom_rect(aes(colour = Project,ymin = ProjectN - 0.45,
                ymax = ProjectN + 0.45,  xmin = start, xmax = end)), fill = NA) +
  scale_colour_hue(guide = 'none') +  # this removes the legend
 geom_text(data = DTa, aes(label = Project, y = ProjectN, x = mid,colour = Project), inherit.aes= FALSE) + # now some prettying up to remove text / axis ticks
  theme(panel.background = element_blank(),
        axis.ticks.y = element_blank(), axis.text.y = element_blank()) + # and add date labels
  scale_x_date(labels = date_format('%b %d'),
  breaks = sort(unique(c(DT$start,DT$end))))+ # remove axis labels
  labs(y = NULL, x = NULL)

关于r - 可视化以日期范围表示的时间范围数据，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/14707635/