Loading Libraries

library(knitr)
library(printr)
library(rCharts)

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 = 600)
n1$print('iframesrc', include_assets=TRUE)