The svgPanZoom htmlwidget featured in WEEK 02 | PAN & ZOOM R PLOTS claims that it easily adds pan and zoom interactivity to nearly all R graphs. Here we try out svgPanZoom on a couple of finance charts.
Live Examples
Code to reproduce code.r
Alex Bresler abresler
timelyportfolio
/ code.R
Last active
August 29, 2015 14:13
example of how to define graph in DiagrammeR for graphviz
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(DiagrammeR) | |
| mat <- structure( | |
| c(0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 1, 0, 0, 0, 1, 0, 1, | |
| 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 1, 1, 0, 1, 1, | |
| 0, 0, 0, 1, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, | |
| 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 1, 1, 1, 0, 0, 0, 0, 1, 0, 1, | |
| 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, | |
| 0, 0, 1, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, |
seanjtaylor
/ weather_data.R
Created
January 24, 2015 17:16
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(mgcv) | |
| library(ggplot2) | |
| library(dplyr) | |
| library(XML) | |
| library(weatherData) | |
| us.airports.url <- 'http://www.world-airport-codes.com/us-top-40-airports.html' | |
| us.airports <- readHTMLTable(us.airports.url)[[1]] %>% | |
| filter(!is.na(IATA)) %>% |
timelyportfolio
/ Readme.md
Last active
August 29, 2015 14:14
R finance charts with the svgPanZoom htmlwidget
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
| #devtools::install("jeroenooms/V8") | |
| library("V8") | |
| library(pipeR) | |
| ct = new_context("window") | |
| # min.js gives me a call stack size error but non-min works fine | |
| ct$source( | |
| "https://raw.githubusercontent.com/morganherlocker/turf/master/turf.js" | |
| ) | |
| # one of the examples from turf API docs |
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(V8) | |
| stopifnot(packageVersion("V8") >= "0.5") | |
| # Create V8 context and load viz.js | |
| ct <- new_context("window") | |
| invisible(ct$source('http://mdaines.github.io/viz.js/viz.js')) | |
| # This runs: Viz("digraph { a -> b; }", "svg") | |
| svg <- ct$call("Viz", "digraph { a -> b; }", "svg") | |
| cat(svg) |
abresler
/ pagerank.R
Last active
December 18, 2015 15:37
— forked from andrie/pagerank.R
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
| ## Analyze R packages for popularity, using pagerank algorithm | |
| # Inspired by Antonio Piccolboni, http://piccolboni.info/2012/05/essential-r-packages.html | |
| library(miniCRAN) | |
| library(igraph) | |
| library(magrittr) | |
| # Download matrix of available packages at specific date ------------------ |
timelyportfolio
/ code.R
Last active
September 6, 2015 12:17
make a pdf in R with hpdf.js - emscripten port of libharu
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
| # run these hpdf.js examples | |
| # http://manuels.github.io/hpdf.js/ | |
| # in R with V8 | |
| library(V8) | |
| library(pipeR) | |
| library(htmltools) | |
| ct = new_context("window") | |
| ct$source("https://raw.githubusercontent.com/manuels/hpdf.js/master/hpdf.min.js") |
jkeirstead
/ data.csv
Last active
March 11, 2018 00:17
Draw waterfall charts in R. See post at http://www.jameskeirstead.ca/blog/waterfall-plots-in-r
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
| category | value | sector | |
|---|---|---|---|
| UK production emissions | 632 | UK | |
| Carbon flows from EU | 88 | EU | |
| Carbon flows to EU | -61 | EU | |
| Carbon flows from other Annex 1 | 82 | Annex 1 | |
| Carbon flows to other Annex 1 | -39 | Annex 1 | |
| Carbon flows from non-Annex 1 | 104 | Other non-Annex 1 | |
| Carbon flows from non-Annex 1 | 64 | China | |
| Carbon flows to non-Annex 1 | -25 | Non-Annex 1 | |
| UK consumption emissions | 845 | UK |
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
| # Reading in 'dogs.csv' | |
| # Created by Alex Bresler, available at: | |
| # https://github.com/abresler/abresler.github.io/blob/master/blog/2015/february/exploring_agility_show/data/dogs.csv | |
| dogs <- read.csv("dogs.csv", header = TRUE, stringsAsFactors = FALSE) | |
| # Setting a numeric id | |
| node_id <- 1:nrow(dogs) | |
| # Getting unique values for the 'breed' column | |
| unique_node_2 <- unique(dogs$breed) |
rich-iannone
/ chromatography.R
Last active
August 29, 2015 14:16
R function that loads in chromatography.js, constructs a string of JS code, passes that code for evaluation (using the 'V8' package), and returns a palette of visually different colors.
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(V8) | |
| # Create function to generate palette of visually different colors | |
| hex_palette <- function(no_colors, | |
| hue_range = NULL, | |
| chroma_range = NULL, | |
| lightness_range = NULL){ | |
| pal <- function(col, border = "light gray", ...){ | |
| n <- length(col) |