require(rCharts)
require(reshape2)

licenses <- data.frame(
  c("Dimple","Highcharts","Leaflet","Morris","NVD3","Polycharts","Rickshaw","xCharts"),
  c("MIT","CCA Noncommercial 3.0","MIT","MIT","Apache Ver 2","CCA Noncommercial 3.0","MIT","MIT"),
  c("MIT","Paid","MIT","MIT","Apache Ver 2","Paid","MIT","MIT")
)

colnames(licenses) <- c("Library","Noncommercial","Commercial")
licenses.melt <- melt(licenses, id.var = 1)
colnames(licenses.melt) <- c("Library", "Type", "License")

licPlot <- dPlot(
  x = c("License","Type"),
  y = "Library",
  groups = "Type",
  data = licenses.melt,
  type = "bar"
)

licPlot$xAxis ( type = "addCategoryAxis" )
licPlot$yAxis ( type = "addCategoryAxis" )
licPlot$legend(
  x = 200,
  y = 10,
  width = 400,
  height = 20,
  horizontalAlign = "right"
)
licPlot