Jo-fai Chow woobe

The rBlocks Experiement

Having fun with Ramnath Vaidyanathan's new package rblocks!

Iris & AirPassengers

Rcpp Code Snippets

Learning Rcpp to speed things up!

simple_comparison.R

Example: Fibonacci Recursive expr min lq median uq max neval

Introduction

I created a function called "extract_colours()" in my "rPlotter" package. Using this function, any image in PNG, JPG, JPEG or TIFF format can be converted into a simple colour palette.

YET, this is my very first attempt, the colours are only sorted by alphabetical order at the moment. More work is needed to arrange colours based on colour theory and other factors.

Example 1a - R Logo

Blog Post

Towards (Yet) Another R Colour Palette Generator. Step One: Quentin Tarantino

Example One

Example Two

Introduction

This d3.js parallel coordinates plot is another experiment in how we might use interactive plots in Javascript to represent a partykit / rpart object from R. The example builds on this d3.js collapsible tree plot. Eventually, it would be nice to combine the tree and parallel coordinates into a layout with synced interactivity.

### Almost No [`rCharts`](http://rcharts.io) Also, this is fairly different from most of my interactive plots from R in that it almost completely avoids [`rCharts`](http://rcharts.io) (almost because I did use its `publish` to make this gist). I chose to exclude `rCharts` for two reasons:

demo how we can use htmltools to build html/js in R
help users understand some of the things rCharts does f

	<!doctype HTML>
	<meta charset = 'utf-8'>
	<html>
	<head>
	<link rel='stylesheet' href='http://cdn.jsdelivr.net/cal-heatmap/3.3.10/cal-heatmap.css'>

	<script src='http://d3js.org/d3.v3.min.js' type='text/javascript'></script>
	<script src='http://cdn.jsdelivr.net/cal-heatmap/3.3.10/cal-heatmap.min.js' type='text/javascript'></script>

	<style>

	library(rCharts) ## devtools::install_github("ramnathv/rCharts@dev")
	library(rPlotter) ## devtools::install_github("woobe/rPlotter")

	## Using Theoph as the demo data.
	dat <- Theoph

	## Initialise rCharts-parcoords
	p1 <- rCharts$new()
	p1$setLib(system.file('parcoords', package = 'rCharts'))

	## Load Library
	library(rCrimemap) # devtools::install_github("woobe/rCrimemap")

	## Create Crime Heatmap with Nokia map base
	r1 <- rcmap_quick(period = "2014-01",
	map_size = c(960, 500),
	provider = "OpenStreetMap.BlackAndWhite",
	zoom = 6)

	## Save the Heatmap as a self-contained HTML

	## Load package
	library(recharts) ## see https://github.com/taiyun/recharts

	## Convert UKgas time series into a matrix
	mat_UKgas <- matrix(UKgas, ncol = 4, byrow = TRUE)
	rownames(mat_UKgas) <- rep(1960:1986, each = 1)
	colnames(mat_UKgas) <- c("Q1", "Q2", "Q3", "Q4")

	## Create the echarts plot object
	e1 <- eArea(mat_UKgas,

	## Convert Breast Cancer into H2O
	dat <- BreastCancer[, -1] # remove the ID column
	dat_h2o <- as.h2o(localH2O, dat, key = 'dat')

	## Import MNIST CSV as H2O
	dat_h2o <- h2o.importFile(localH2O, path = ".../mnist_train.csv")