History: Profile_r_test7_plot.ly

{RR()}
# Testing https://github.com/ramnathv/rNVD3 
if(!require(rjson)){ install.packages("rjson", repos="http://ftp.heanet.ie/mirrors/cran.r-project.org/") }
if(!require(plyr)){ install.packages("plyr", repos="http://ftp.heanet.ie/mirrors/cran.r-project.org/") }
if(!require(lattice)){ install.packages("lattice", repos="http://ftp.heanet.ie/mirrors/cran.r-project.org/") }
require('rjson', quietly = TRUE);
require('plyr', quietly = TRUE);
require('lattice', quietly = TRUE);

if(!require(devtools)){ install.packages("devtools", repos="http://ftp.heanet.ie/mirrors/cran.r-project.org/") }
require('devtools', quietly = TRUE);
if(!require(rNVD3)){ install_github('rNVD3', 'ramnathv') }
require('rNVD3', quietly = TRUE);

hair_eye = subset(as.data.frame(HairEyeColor), Sex == "Female")
p1 <- nvd3Plot(Freq ~ Hair | Eye, data = hair_eye, type = 'multiBarChart')
p1$chart(color = c('brown', 'blue', '#594c26', 'green'))
p1$save('haireye.html')
#p1$html('haireye.html')
#p1$printChart('haireye.html')
{RR}

{iframe name="haireye_rNVD3" title="Interactive Charts" width="100%" height="800px" align="middle" frameborder="0" marginheight="0" marginwidth="0" scrolling="auto" src="haireye.html"}