Skip to content

Instantly share code, notes, and snippets.

@reinholdsson

reinholdsson/code.R

Last active December 18, 2015 08:39
Show Gist options
  • Save reinholdsson/5755647 to your computer and use it in GitHub Desktop.
Save reinholdsson/5755647 to your computer and use it in GitHub Desktop.
Download ZIP
BUG: rCharts/Highcharts. Incorrect axis names, see hPlot.
Raw
code.R
library(rCharts)
data <- read.csv2("testData.csv")
hPlot(V1 ~ namn, data = data, type = "column", group = "parti")
Raw
index.html
<!doctype HTML>
<html>
<head>
<link rel='stylesheet' href="http://netdna.bootstrapcdn.com/bootswatch/2.3.1/cosmo/bootstrap.min.css">
<link rel="stylesheet" href="http://netdna.bootstrapcdn.com/twitter-bootstrap/2.3.1/css/bootstrap-responsive.min.css" >
<link rel='stylesheet' href="http://twitter.github.io/bootstrap/assets/js/google-code-prettify/prettify.css">
<script src='http://code.jquery.com/jquery-1.9.1.min.js' type='text/javascript'></script>
<script src='http://code.highcharts.com/highcharts.js' type='text/javascript'></script>
<script src='http://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='chart135f4e67024f' class='rChart nvd3Plot highcharts'></div>
<br/>
<pre><code class='r'>library(rCharts)
data &lt;- read.csv2(&quot;testData.csv&quot;)
hPlot(V1 ~ namn, data = data, type = &quot;column&quot;, group = &quot;parti&quot;)
</code></pre>
</div>
</div>
</div>
<script type='text/javascript'>
(function($){
$(function () {
var chart = new Highcharts.Chart({
"dom": "chart135f4e67024f",
"width": 800,
"height": 400,
"credits": {
"href": null,
"text": null
},
"title": {
"text": null
},
"yAxis": {
"title": {
"text": "V1"
}
},
"series": [
{
"data": [
[
"Annie Johansson",
4919
]
],
"name": "C",
"type": "column",
"marker": {
"radius": 3
}
},
{
"data": [
[
"Jan Björklund",
12204
]
],
"name": "FP",
"type": "column",
"marker": {
"radius": 3
}
},
{
"data": [
[
"Göran Hägglund",
9915
],
[
"Maria Larsson",
4962
]
],
"name": "KD",
"type": "column",
"marker": {
"radius": 3
}
},
{
"data": [
[
"Cecilia Magnusson",
5166
],
[
"Cecilia Widegren",
5669
],
[
"Fredrik Reinfeldt",
119311
],
[
"Gunilla Carlsson",
4603
],
[
"Helena Bouveng",
4547
],
[
"Henrik von Sydow",
5088
],
[
"Jan-Evert Rådhström",
4421
]
],
"name": "M",
"type": "column",
"marker": {
"radius": 3
}
},
{
"data": [
[
"Gustav Fridolin",
6220
],
[
"Peter Eriksson",
5394
]
],
"name": "MP",
"type": "column",
"marker": {
"radius": 3
}
},
{
"data": [
[
"Håkan Juholt",
5220
],
[
"Kent Härstedt",
4737
],
[
"Peter Hultqvist",
7168
],
[
"Peter Persson",
5496
],
[
"Sven-Erik Bucht",
17674
]
],
"name": "S",
"type": "column",
"marker": {
"radius": 3
}
},
{
"data": [
[
"Jimmie Åkesson",
71673
]
],
"name": "SD",
"type": "column",
"marker": {
"radius": 3
}
},
{
"data": [
[
"Jonas Sjöstedt",
5507
]
],
"name": "V",
"type": "column",
"marker": {
"radius": 3
}
}
],
"xAxis": {
"title": {
"text": "namn"
},
"categories": [ "Annie Johansson", "Cecilia Magnusson", "Cecilia Widegren", "Fredrik Reinfeldt", "Gunilla Carlsson", "Gustav Fridolin", "Göran Hägglund", "Helena Bouveng", "Henrik von Sydow", "Håkan Juholt", "Jan Björklund", "Jan-Evert Rådhström", "Jimmie Åkesson", "Jonas Sjöstedt", "Kent Härstedt", "Maria Larsson", "Peter Eriksson", "Peter Hultqvist", "Peter Persson", "Sven-Erik Bucht" ]
},
"subtitle": {
"text": null
},
"id": "chart135f4e67024f",
"chart": {
"renderTo": "chart135f4e67024f"
}
});
});
})(jQuery);
</script>
</body>
<!-- Google Prettify -->
<script src="http://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>
Raw
testData.csv
We can make this file beautiful and searchable if this error is corrected: No commas found in this CSV file in line 0.
"";"kandidatnr";"valtyp";"länsnr";"län";"kommunnr";"kommun";"valkretsnr";"valkrets";"parti";"tillträdesdatum";"invalsordning";"personvald";"förnamn";"efternamn";"ålder";"kön";"lista";"listplats";"Parti";"Efternamn";"Förnamn";"Kön";"Ålder.valdagen";"V1";"namn"
"1";422792;"R";NA;NA;NA;NA;1;"Stockholms kommun";"M";NA;1;"personvald";"Fredrik";"Reinfeldt";45;"M";"0001-01272";1;"M";"Reinfeldt";"Fredrik";"M";45;119311;"Fredrik Reinfeldt"
"2";433402;"R";NA;NA;NA;NA;6;"Jönköpings län";"SD";NA;1;"personvald";"Jimmie";"Åkesson";31;"M";"0110-02813";1;"SD";"Åkesson";"Jimmie";"M";31;71673;"Jimmie Åkesson"
"3";333150;"R";NA;NA;NA;NA;29;"Norrbottens län";"S";NA;1;"personvald";"Sven-Erik";"Bucht";55;"M";"0002-00301";8;"S";"Bucht";"Sven-Erik";"M";55;17674;"Sven-Erik Bucht"
"4";438869;"R";NA;NA;NA;NA;2;"Stockholms län";"FP";NA;1;"personvald";"Jan";"Björklund";48;"M";"0003-00498";1;"FP";"Björklund";"Jan";"M";48;12204;"Jan Björklund"
"5";438185;"R";NA;NA;NA;NA;1;"Stockholms kommun";"KD";NA;1;"personvald";"Göran";"Hägglund";51;"M";"0068-02778";1;"KD";"Hägglund";"Göran";"M";51;9915;"Göran Hägglund"
"6";420340;"R";NA;NA;NA;NA;24;"Dalarnas län";"S";NA;1;"personvald";"Peter";"Hultqvist";51;"M";"0002-02595";1;"S";"Hultqvist";"Peter";"M";51;7168;"Peter Hultqvist"
"7";344494;"R";NA;NA;NA;NA;14;"Skåne läns norra och östra";"MP";NA;1;"personvald";"Gustav";"Fridolin";27;"M";"0055-02092";1;"MP";"Fridolin";"Gustav";"M";27;6220;"Gustav Fridolin"
"8";422812;"R";NA;NA;NA;NA;20;"Västra Götalands läns östra";"M";NA;1;"personvald";"Cecilia";"Widegren";37;"K";"0001-00795";1;"M";"Widegren";"Cecilia";"K";37;5669;"Cecilia Widegren"
"9";319122;"R";NA;NA;NA;NA;28;"Västerbottens län";"V";NA;1;"personvald";"Jonas";"Sjöstedt";45;"M";"0005-00272";1;"V";"Sjöstedt";"Jonas";"M";45;5507;"Jonas Sjöstedt"
"10";360605;"R";NA;NA;NA;NA;6;"Jönköpings län";"S";NA;1;"personvald";"Peter";"Persson";55;"M";"0002-01296";1;"S";"Persson";"Peter";"M";55;5496;"Peter Persson"
"11";397402;"R";NA;NA;NA;NA;2;"Stockholms län";"MP";NA;1;NA;"Peter";"Eriksson";52;"M";"0055-03220";1;"MP";"Eriksson";"Peter";"M";52;5394;"Peter Eriksson"
"12";405364;"R";NA;NA;NA;NA;8;"Kalmar län";"S";NA;1;"personvald";"Håkan";"Juholt";48;"M";"0002-00224";1;"S";"Juholt";"Håkan";"M";48;5220;"Håkan Juholt"
"13";264895;"R";NA;NA;NA;NA;16;"Göteborgs kommun";"M";NA;1;NA;"Cecilia";"Magnusson";48;"K";"0001-00049";1;"M";"Magnusson";"Cecilia";"K";48;5166;"Cecilia Magnusson"
"14";249037;"R";NA;NA;NA;NA;15;"Hallands län";"M";NA;1;NA;"Henrik";"von Sydow";34;"M";"0001-01107";1;"M";"von Sydow";"Henrik";"M";34;5088;"Henrik von Sydow"
"15";387656;"R";NA;NA;NA;NA;6;"Jönköpings län";"KD";NA;1;"personvald";"Maria";"Larsson";54;"K";"0068-00279";1;"KD";"Larsson";"Maria";"K";54;4962;"Maria Larsson"
"16";378803;"R";NA;NA;NA;NA;6;"Jönköpings län";"C";NA;1;"personvald";"Annie";"Johansson";27;"K";"0004-00948";1;"C";"Johansson";"Annie";"K";27;4919;"Annie Johansson"
"17";202698;"R";NA;NA;NA;NA;12;"Skåne läns västra";"S";NA;1;"personvald";"Kent";"Härstedt";45;"M";"0002-00855";3;"S";"Härstedt";"Kent";"M";45;4737;"Kent Härstedt"
"18";224235;"R";NA;NA;NA;NA;5;"Östergötlands län";"M";NA;1;NA;"Gunilla";"Carlsson";47;"K";"0001-00155";1;"M";"Carlsson";"Gunilla";"K";47;4603;"Gunilla Carlsson"
"19";422798;"R";NA;NA;NA;NA;6;"Jönköpings län";"M";NA;1;NA;"Helena";"Bouveng";48;"K";"0001-01412";1;"M";"Bouveng";"Helena";"K";48;4547;"Helena Bouveng"
"20";422813;"R";NA;NA;NA;NA;21;"Värmlands län";"M";NA;1;"personvald";"Jan-Evert";"Rådhström";49;"M";"0001-02139";1;"M";"Rådhström";"Jan-Evert";"M";49;4421;"Jan-Evert Rådhström"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment