1. #require(devtools)
  2. #install_github('rCharts', 'ramnathv')
  3. require(rCharts)
  5. #get data used by dimple for all of its examples as a first test
  6. data <- read.delim(
  7.   "//pmsi-alignalytics.github.io/dimple/data/example_data.tsv"
  8. )
  10. ### eliminate . to avoid confusion in javascript
  11. colnames(data) <- gsub("[.]","",colnames(data))
  13. ### example 13 vertical marimekko
  14. d1 <- dPlot(
  15.   UnitSales ~ Channel,
  16.   groups = "Owner",
  17.   data = data,
  18.   type = "bar"
  19. )
  20. d1$xAxis(type = "addAxis", measure = "UnitSales", showPercent = TRUE)
  21. d1$yAxis(type = "addPctAxis")
  22. d1$legend(
  23.   x = 200,
  24.   y = 10,
  25.   width = 400,
  26.   height = 20,
  27.   horizontalAlign = "right"
  28. )
  29. #test with storyboard
  30. d1$set(storyboard = "Date")
  31. d1