Визуализация на диаграми с Wolfram Mathematica

PieChart[{9,15,40, 15, 21}]

PieChart[{9,15,40, 15, 21},  
ChartLabels-> {"9%","15%","40%","15%","21%"}]

PieChart[{9,15,40, 15, 21}, 
ChartLegends->{"Напитки","Десерти","Сандвичи", "Супи","Салати"}, 
ChartLabels-> {"9%","15%","40%","15%","21%"}]

PieChart[{9,15,40, 15, 21}, 
ChartLegends->{"Напитки","Десерти","Сандвичи", "Супи","Салати"}, 
ChartLabels-> {"9%","15%","40%","15%","21%"}, 
ChartStyle->"Pastel", 
ChartElementFunction->"GlassSector"]

PieChart3D[{9,15,40, 15, 21}, 
ChartLegends->{"Напитки","Десерти","Сандвичи", "Супи","Салати"}, 
ChartLabels-> {"9%","15%","40%","15%","21%"}, 
ChartStyle->"DarkRainbow",
ChartElementFunction->"ProfileSector3D",
ChartBaseStyle->Directive[Opacity[0.6]],
SectorOrigin->{{0,2},1}]

BarChart[{9,15,40, 15, 21}, 
ChartLabels->{"Напитки","Десерти","Сандвичи", "Супи","Салати"}]

BarChart3D[{9,15,40, 15, 21}, 
ChartLabels->{"Напитки","Десерти","Сандвичи", "Супи","Салати"}, 
ChartStyle->Hue[.6],
ChartElementFunction->"Cone"]

BarChart3D[{9,15,40, 15, 21}, 
ChartLegends->{"Напитки","Десерти","Сандвичи", "Супи","Салати"}, 
ChartLabels-> {"9%","15%","40%","15%","21%"}, 
ChartElementFunction->"Cylinder",
ChartStyle->"Pastel",
ChartBaseStyle->Directive[Opacity[0.6]]]

PieChart[{{9,15,40, 15, 21}, {5,19,34,21,21},{1,5,8,21,12}},
ChartLegends->{"Напитки","Десерти","Сандвичи", "Супи","Салати"}, 
ChartLabels-> {"Напитки","Десерти","Сандвичи", "Супи","Салати"}, 
SectorSpacing->0.2]