require(rCharts)

## Loading required package: rCharts

haireye=as.data.frame(HairEyeColor)
n1<- nPlot(Freq~ Hair, group='Eye',type='multiBarChart',data=subset(haireye,Sex=='Male')
)
n1$save('./n1.html',cdn=TRUE)
cat('<iframe src="./n1.html" width=100%,height=600></iframe>')

## <iframe src="./n1.html" width=100%,height=600></iframe>