Plotting a year planner in R

Question

I have been trying to extend my own answer on drawing Gantt Charts to a more general case. I illustrate a partial result here: A number of trips are plotted on this chart, with the red points representing departures, and the green dots a return. Now here is my challenge: - I would like to mark all the days between a departure and a return with a grey point, and leave all others untouched. - I would like the points to correctly wrap around the different month lengths (e.g. the departure 28 June would mark the days to 30 June and then wrap around to 1 July). - The script should not fail in the case of a one-day trip (e.g. the trip in early Sep where departure and return happen on the same day and a smaller green dot is plotted on a larger red marker). It is trivial to produce this graph with the code below, and it would be easy to join the dots with a line from red to green where both happen in the same month. Can anyone help with the case of a wrap around in a manner general enough to…

Accepted Answer

Probably not the perfect solution, but thinks get much easier, when you use `date` objects:

```
# using your data.frame
# create date object using the dep_month, dep_day etc columns
df$dep.date = as.Date(paste('2012', df$dep_month, df$dep_day, sep='-'))
df$ret.date = as.Date(paste('2012', df$ret_month, df$ret_day, sep='-'))

# calculate the dates for the gray data points between departure and return
# there is probably a more R'ish ways, than a for loop
days <- NULL
for(i in seq(1, nrow(df))){
    tmp <- seq.Date(df[i,]$dep.date, df[i,]$ret.date, by='days')
    days <- rbind(days,
        data.frame(day = as.POSIXlt(tmp)$mday,
            mon = as.POSIXlt(tmp)$mon+1))
}

# plot it
p <- ggplot( days, aes(day, mon)) + geom_point(colour='gray66') + theme_bw() +
 geom_point(data = df, aes(dep_day, dep_month), colour = 'red', size = 6) +
 geom_point(data = df, aes(ret_day, ret_month ),
               colour = 'green', size = 4 )  +
 scale_x_continuous( breaks = c(1:31) ) +
 scale_y_reverse( breaks = c(1:12) ) +
 ylab("Month") + xlab("Day")
print(p)
```

Plotting a year planner in R

Solution

Problem

Related problems