Testing Higcharts by ramnathv

index.html

<!doctype HTML>
<html>
  <head>
    <link rel='stylesheet' href="//netdna.bootstrapcdn.com/bootswatch/2.3.1/cosmo/bootstrap.min.css">
     <link rel="stylesheet" href="//netdna.bootstrapcdn.com/twitter-bootstrap/2.3.1/css/bootstrap-responsive.min.css" >
    <link rel='stylesheet' href="//twitter.github.io/bootstrap/assets/js/google-code-prettify/prettify.css">
    
    <script src='//code.jquery.com/jquery-1.9.1.min.js' type='text/javascript'></script>
    <script src='//code.highcharts.com/highcharts.js' type='text/javascript'></script>
    <script src='//code.highcharts.com/highcharts-more.js' type='text/javascript'></script>
    
    <style>
    .rChart {
      display: block
      margin: auto auto;
      width: 800px;
      height: 400px;
    }
    body {
      margin-top: 60px;
    }
    </style>
    
  </head>
  <body>
    <div class='container'>
      <div class='row'>
        <div class='span9'>
          <div id='chart16b572ca6f0' class='rChart nvd3Plot highcharts'></div>
<pre><code class='r'>x=data.frame(&quot;S1&quot;=c(9,8,9,1,3),&quot;S2&quot;=c(7,3,7,6,4))
rownames(x)=paste(&quot;factor&quot;,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
</code></pre>
        </div>
      </div>
    </div>
      
    <script type='text/javascript'>
    (function($){
        $(function () {
            var chart = new Highcharts.Chart({
 "dom": "chart16b572ca6f0",
"width":    550,
"height":    400,
"credits": {
 "href": null,
"text": null 
},
"chart": {
 "type": "line",
"polar": true,
"renderTo": "chart16b572ca6f0" 
},
"pane": {
 "size": "80%" 
},
"title": {
 "text": "Polarize-It",
"x":    -80 
},
"xAxis": [
 {
 "categories": [ "factor 1", "factor 2", "factor 3", "factor 4", "factor 5" ],
"tickmarkPlacement": "on",
"lineWidth":      0 
} 
],
"yAxis": [
 {
 "gridLineInterpolation": "polygon",
"lineWidth":      0,
"min":      0 
} 
],
"series": [
 {
 "name": "S1",
"data": [      9,      8,      9,      1,      3 ],
"pointPlacement": "on" 
},
{
 "name": "S2",
"data": [      7,      3,      7,      6,      4 ],
"pointPlacement": "on" 
} 
],
"id": "chart16b572ca6f0" 
});
        });
    })(jQuery);
</script>
    
  </body>
  <!-- Google Prettify -->
  <script src="//cdnjs.cloudflare.com/ajax/libs/prettify/188.0.0/prettify.js"></script>
  <script 
    src='https://google-code-prettify.googlecode.com/svn-history/r232/trunk/src/lang-r.js'>
  </script>
  <script>
    var pres = document.getElementsByTagName("pre");
    for (var i=0; i < pres.length; ++i) {
      pres[i].className = "prettyprint linenums";
    }
    prettyPrint();
  </script>
</html>

code.R

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