README (original) (raw)

Make ggplot graphs that look like the Wall Street Journal.

 > devtools::install_github("slee981/wsjplot")

 > library(ggplot2)
 > library(dplyr)
 > `%>%` <- magrittr::`%>%`

 > economics_long %>%
       filter(variable %in% c("psavert", "uempmed")) %>%
       ggplot(aes(date, value, color = variable)) +
       geom_line() +
       scale_y_continuous(
           labels = label_wsj(suffix = " M")
       ) +
       scale_color_discrete(
           labels = c("Series 1", "Series 2")
       ) +
       theme_wsj() +
       labs(
           title = "Some Economics Plot",
           caption = "Source: Top secret.",
           y = ""
       )

$ git clone https://github.com/slee981/wsjplot.git
$ cd wsjplot 

 > library(devtools)
 > load_all()              # load exported functions into memory 
 > test()                  # run tests
 > document()              # update based on roxygen2 doc strings
 > check()                 # full diagnostic tests