metricsgraphics - grid plots

devtools::install_github("yutannihilation/metricsgraphics@grid")

library(metricsgraphics)

set.seed(1492)
stocks <- data.frame(
    time = as.Date('2009-01-01') + 0:99,
    X = rnorm(100, 0, 1),
    Y = rnorm(100, 0, 2),
    Z = rnorm(100, 0, 4))

Multiline Chart

stocks %>%
    mjs_plot(x=time, y=X) %>%
    mjs_line() %>%
    mjs_add_line(Y) %>%
    mjs_add_line(Z) %>%
    mjs_axis_x(xax_format="date") %>%
    mjs_add_legend(legend=c("X", "Y", "Z"))

Grid Chart

stocks %>%
    mjs_plot(x=time, y=X) %>%
    mjs_line() %>%
    mjs_add_line(Y) %>%
    mjs_add_line(Z) %>%
    mjs_axis_x(xax_format="date") %>%
    mjs_add_legend(legend=c("X", "Y", "Z")) %>%
    mjs_grid()