Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
dygraph(gbppln_xts,
main="British Pound (GBP) to Polish Zloty (PLN) 1996-2015",
ylab="GBP/PLN") %>%
dyRangeSelector(height = 50) %>%
dyEvent(date = "2004-05-01", "Poland joining the EU", labelLoc = "bottom") %>%
dyEvent(date = "2008-09-15", "Bankruptcy of Lehman Brothers", labelLoc = "top")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment