bdscale (version 1.0)

scale_x_bd: Weekend and holiday ignoring position scale for a ggplot

Description

Weekend and holiday ignoring position scale for a ggplot

Usage

scale_x_bd(..., expand = waiver(), breaks = bd_breaks(business.dates),
  minor_breaks = waiver(), business.dates)

Arguments

...

see scale_x_date

expand

see scale_x_date

breaks

see scale_x_date

minor_breaks

see scale_x_date

business.dates

a vector of Date objects sorted ascending

Examples

require(dplyr, quietly=TRUE, warn.conflicts=FALSE)
require(ggplot2, quietly=TRUE)
require(scales)

nyse <- get_nyse()

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

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()) +
  ggtitle('calendar dates')

# ggsave(file='man/figures/calendar.PNG', width=5, height=2)

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

# ggsave(file='man/figures/business.PNG', width=5, height=2)