Ox-reveal and R

@dickoah

Code

Embedding rCharts

library(rCharts)
hair_eye_male = subset(as.data.frame(HairEyeColor), Sex == "Male")
n1 <- nPlot(Freq ~ Hair, group = 'Eye',
data = hair_eye_male, type = 'multiBarChart'
)
n1$set(width = 1200, height = 600)  
n1$show('inline', include_assets = TRUE, cdn = TRUE)

Code

You can check the raw Org-file here

Created by Ahmadou H. Dicko.