1. # install from html_assets branch
  2. # install_github("rCharts", "ramnathv", ref = "html_assets")
  4. # utility function to convert data frame to format required for funnel
  5. make_dataset = function(x, y, data){
  6.   require(rCharts)
  7.   toJSONArray2(data[c(x, y)], json = F, names = F)
  8. }
  10. options(stringsAsFactors = F)
  11. dat = data.frame(
  12.   x = c('Visits', 'Downloads', 'Requested price list', 'Invoice', 'Finalized'),
  13.   y = c(15654, 4064, 1987, 976, 846)
  14. )
  16. h1 <- Highcharts$new()
  17. h1$chart(type = 'funnel')
  18. h1$series(data = make_dataset('x', 'y', dat))
  19. h1$addAssets(js = '//github.highcharts.com/rambera/modules/funnel.js')
  20. h1