It’s been a while since I’ve updated my [metricsgraphics package](https:\/\/cran.r-project.org\/web\/packages\/metricsgraphics\/index.html). The hit list for changes includes: <\/p>\n
– Fixes for the new ggplot2 release (metricsgraphics uses the `movies` data set which is now in ggplot2movies)
\n– Updated all javascript libraries to the most recent versions
\n– Borrowed the ability to add CSS rules to a widget from taucharts (`mjs_add_css_rule`)
\n– Added a metricsgraphics plugin to enable line chart region annotation (`mjs_annotate_region`)
\n– Enabled explicit coloring line\/area charts (it was a new feature in the underlying Metrics-Graphics library)
\n– You can use bare or quoted names when specifying the x & y accessors and can also use a variable name
\n– You can now use the metricsgraphics title & description capabilities, but doing so voids any predictable\/specified widget height\/width and the description functionality is really only suited for bootstrap templates<\/p>\n
I think all that can be demonstrated in the following snippet:<\/p>\n
library(metricsgraphics)\r\n\r\ndat <- read.csv(\"http:\/\/real-chart.finance.yahoo.com\/table.csv?s=AAPL&a=07&b=9&c=1996&d=11&e=21&f=2015&g=d&ignore=.csv\",\r\n stringsAsFactors=FALSE)\r\n\r\nDATE <- \"Date\"\r\n\r\ndat %>%\r\n filter(Date>=\"2008-01-01\") %>% \r\n mjs_plot(DATE, y=\"Low\", title=\"AAPL Stock (2008-Present)\", width=800, height=500) %>% \r\n mjs_line(color=\"#6a3d9a\") %>% \r\n mjs_add_line(High, color=\"#ff7f00\") %>% \r\n mjs_axis_x(xax_format=\"date\") %>% \r\n mjs_add_css_rule(\"{{ID}} .blk { fill:black }\") %>%\r\n mjs_annotate_region(\"2013-01-01\", \"2013-12-31\", \"Volatility\", \"blk\") %>% \r\n mjs_add_marker(\"2014-06-09\", \"Split\") %>% \r\n mjs_add_marker(\"2012-09-12\", \"iPhone 5\") %>% \r\n mjs_add_legend(c(\"Low\", \"High\"))<\/pre>\n