1. library(WDI)
  2. top10 = c('US', 'CN', 'JP', 'DE', 'FR', 'GB', 'BR', 'RU', 'IT', 'IN')
  3. gdp = WDI(top10, indicator = "NY.GDP.MKTP.CD", start = 1980, end = 2012)
  4. gdp = transform(gdp, NY.GDP.MKTP.CD = NY.GDP.MKTP.CD/10^9)
  6. library(rCharts)
  7. n1 <- nPlot(NY.GDP.MKTP.CD ~ year, data = gdp, group = 'country',
  8.   type = 'stackedAreaChart', width = 800, height = 400
  9. )
  10. n1$yAxis(
  11.   axisLabel = 'Billions of Dollars', 
  12.   tickFormat = "#! d3.format('0.0f') !#"
  13. )
  14. n1