Data för de olika indexen har hämtats från SCB:s API för Statistikdatabasen. Utifrån dessa har sedan de alternativa prisbasbeloppen beräknats.
Klicka under grafen för att visa de olika prisbasbeloppen och markera linjerna för att visa siffrorna.
Thomas Falk reinholdsson
reinholdsson
/ README.md
Last active
December 19, 2015 17:58
- Git
- Gistup - Create a gist from the command line (requires npm, run:
sudo port install npm, thensudo npm install -g gistup)
reinholdsson
/ code.R
Created
July 11, 2013 09:04
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| require(rCharts) | |
| data <- na.omit(MASS::survey) | |
| data$x <- data$Height | |
| data$y <- data$Pulse | |
| a <- rCharts:::Highcharts$new() | |
| a$chart(type = "scatter") | |
| male <- data[data$Sex == "Male", ] |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| require(rCharts) | |
| df <- read.csv('DGS10.csv', stringsAsFactors = F) | |
| df <- df[df$VALUE != ".", ] | |
| df$VALUE <- as.numeric(df$VALUE) | |
| df$DATE <- paste("#!", as.numeric(as.Date(df$DATE))*86400000, "!#") | |
| a <- rCharts:::Highcharts$new() | |
| a$series(data = toJSONArray2(df, names = F, json = F)) | |
| a$chart(zoomType='x') |
Related to an issue in rCharts, see issue 145.
Data: http://research.stlouisfed.org/fred2/series/DGS10/downloaddata?cid=115 (Text, Comma Separated).
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(rCharts) | |
| data <- data.frame(x = LETTERS, y = 1:26) | |
| a <- rCharts:::Highcharts$new() | |
| a$series(data = toJSONArray2(data, json = F, names = F)) | |
| a$chart(type = "column") | |
| a$xAxis(type = "category") | |
| a |
reinholdsson
/ code.R
Created
July 2, 2013 16:07
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(rCharts) | |
| data <- data.frame(x = LETTERS, y = 1:26) | |
| a <- rCharts:::Highcharts$new() | |
| a$data(x = data$x, y = data$y) | |
| a$chart(type = "column") | |
| a$xAxis(type = "category") | |
| a |
reinholdsson
/ index.html
Created
June 30, 2013 10:43
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| <!doctype HTML> | |
| <meta charset = 'utf-8'> | |
| <html> | |
| <head> | |
| <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> |
reinholdsson
/ code.R
Created
June 26, 2013 20:29
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| a <- rCharts:::Highcharts$new() | |
| a$yAxis(title=list(text='Series 1', style = list(color = "blue"))) | |
| a$yAxis(title=list(text='Series 2', style = list(color = "red")), opposite = T, replace = F) | |
| a$series(data = sample(1:100, 12), type = "column", yAxis = 0, color = "blue") | |
| a$series(data = sample(1:100, 12), type = "line", yAxis = 1, color = "red") | |
| a$tooltip(shared=T) |
reinholdsson
/ code.R
Created
June 26, 2013 20:28
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| a <- rCharts:::Highcharts$new() | |
| a$yAxis(title=list(text='Series 1', style = list(color = "blue"))) | |
| a$yAxis(title=list(text='Series 2', style = list(color = "red")), opposite = T, replace = F) | |
| a$series(data = sample(1:100, 12), type = "column", yAxis = 0, color = "blue") | |
| a$series(data = sample(1:100, 12), type = "line", yAxis = 1, color = "red") | |
| a$tooltip(shared=T) |