Remove Weekends and Holidays from ggplot2 Axes

Provides a continuous date scale, omitting weekends and holidays.

CRAN_Status_Badge Build Status Coverage Status

Remove Weekends and Holidays From ggplot2 Axes

Ask Yahoo Finance for S&P prices, use those as past NYSE trading dates. Then create some fake prices, put them into a data.frame alongside the dates:

df <- data.frame(date=nyse, price=cumsum(rnorm(length(nyse))) + 100)

Plot on standard calendar-day axis:

Create a plot:

plot <- df %>% filter(as.Date('2014-08-01') <= date & date <= as.Date('2014-10-08')) %>% 
  ggplot(aes(x=date, y=price)) + geom_step() + 
  theme(axis.title.x=element_blank(), axis.title.y=element_blank())
plot + ggtitle('calendar dates')

Note the large gap at the beginning of September, because Labor Day was on the 1st:

calendar dates

Plot on a business-day axis:

Plot against scale_x_bd instead:

plot + scale_x_bd(business.dates=nyse, labels=date_format("%b '%y")) + 
  ggtitle('business dates, month breaks')

Removes weekends and holidays from the graph:

business dates, month breaks

The major breaks are pretty far apart, on the first trading day of each month.

It's a wide chart, tell it to use more breaks:

plot + scale_x_bd(business.dates=nyse, max.major.breaks=10, labels=date_format('%b %d')) + 
  ggtitle('business dates, week breaks')

Given that max, it determines it can put major breaks on the first trading day of the week, and minor breaks every day:

business dates, week breaks

Translating into business-day space

Say I wanted to put vertical lines on option expiration dates.

Calling as.numeric on my dates translates them into the the number of calendar days after the unix epoch, which is what scale_x_date uses (see scales:::from_date):

options <- c('2014-08-15', '2014-09-19') %>% as.Date
plot + 
  geom_vline(xintercept=as.numeric(options), size=2, alpha=0.25) + 
  ggtitle('calendar dates, option expiry')

calendar dates with options

This doesn't work for business-day space because the x-axis now represents the number of business days after the first date in your business.dates vector.

Instead, use the bdscale::bd2t function to translate into business-day space:

plot + 
  geom_vline(xintercept=bd2t(options, business.dates=nyse), size=2, alpha=0.25) + 
  scale_x_bd(business.dates=nyse) +
  ggtitle('business dates, option expiry')

business dates with options


Reference manual

It appears you don't have a PDF plugin for this browser. You can click here to download the reference manual.


2.0.0 by Dave Mills, 5 years ago

Browse source code at

Authors: Dave Mills [aut, cre]

Documentation:   PDF Manual  

GPL-2 license

Imports ggplot2, scales

Suggests knitr, testthat, rmarkdown

See at CRAN