Creating a Bar Chart with MorrisJS
library(rCharts2) as.data.frame(HairEyeColor) %>% filter(Sex == "Female", Eye == "Blue") %>% morris(Freq ~ Hair, type = 'Bar', height = 400)