1. x=data.frame("S1"=c(9,8,9,1,3),"S2"=c(7,3,7,6,4))
  2. rownames(x)=paste("factor",rownames(x))
  4. a=rCharts:::Highcharts$new()
  5. a$addParams(width = 550)
  6. a$chart(type='line',polar=TRUE)
  7. a$pane(size='80%')
  8. a$title(text='Polarize-It',x=-80)
  9. a$xAxis(categories=rownames(x),tickmarkPlacement='on',lineWidth=0)
  10. a$yAxis(gridLineInterpolation='polygon',lineWidth=0,min=0)
  11. a$data(x,pointPlacement='on')
  12. a