x=data.frame("S1"=c(9,8,9,1,3),"S2"=c(7,3,7,6,4))
rownames(x)=paste("factor",rownames(x))

a=rCharts:::Highcharts$new()
a$addParams(width = 550)
a$chart(type='line',polar=TRUE)
a$pane(size='80%')
a$title(text='Polarize-It',x=-80)
a$xAxis(categories=rownames(x),tickmarkPlacement='on',lineWidth=0)
a$yAxis(gridLineInterpolation='polygon',lineWidth=0,min=0)
a$data(x,pointPlacement='on')
a