1. #//dimplejs.org/examples_viewer.html?id=area_steps_horizontal_grouped_100pct
  2. d1 <- dPlot(
  3.   data = subset(data, Owner %in% c("Aperture","Black Mesa")),
  4.   #var myChart = new dimple.chart(svg, data);
  5.   bounds = list(x=70,y=30,width=340,height=330),
  6.   #myChart.setBounds(70, 30, 340, 330);
  7.   x = c("Owner","Month"),
  8.   #var x = myChart.addCategoryAxis("x", ["Owner", "Month"]);
  9.   xAxis = list( grouporderRule = "Date" ),
  10.   #x.addGroupOrderRule("Date");
  11.   y = "UnitSales",
  12.   yAxis = list( type = "addPctAxis" ),
  13.   #myChart.addPctAxis("y", "Unit Sales");
  14.   groups = "SKU",
  15.   type = "area",
  16.   #var s = myChart.addSeries("SKU", dimple.plot.area);
  17.   interpolation = "step",
  18.   #s.interpolation = "step";
  19.   lineWeight = 1,
  20.   #s.lineWeight = 1;
  21.   barGap = 0.05,
  22.   #s.barGap = 0.05;
  23.   legend = list(
  24.     x = 430,
  25.     y = 20,
  26.     width = 100,
  27.     height = 300,
  28.     horizontalAlign = "left"
  29.   )
  30.   #myChart.addLegend(430, 20, 100, 300, "left");
  31. )
  32. d1