Quick rwantshue demo

rwantshue_example.R

# *** PACKAGE IS CURRENTLY UNDER DEVELOPMENT SO THIS CODE MAY NOT WORK ***

# this doesn't do the iwanthue tool justice it just shows the flow
# checkout http://tools.medialab.sciences-po.fr/iwanthue/ for detail
require(devtools)
install_github("hoesler/rwantshue")
require(rwantshue)

scheme <- iwanthue()

col_hcl <- list(c(0, 360),   # hue range [0,360]
                c(0, 3),     # chroma range [0,3]
                c(0, 1.5))   # lightness range [0,1.5]
cols <- scheme$hex(n = 4, force_mode = FALSE, quality = 50, color_space = col_hcl)

# for example
require(ggplot2)
dat = reshape2::melt(iris, id.vars='Species')
ggplot(dat, aes(Species, value, fill=variable)) + geom_bar(stat='identity') + scale_fill_manual(values = cols)