require(plyr)
dat = as.data.frame(HairEyeColor)
dat = ddply(dat, .(Hair), summarize, Freq = sum(Freq), Group = "A")
require(rCharts)
nPlot(Freq ~ Group, data = dat, group = 'Hair', type = 'multiBarChart')