nPlot(y~x, data,type = 'pieChart')
nPlot(y~x,data,type='multiBarChart')
Leaflet