Graphical presentation of the partition of the data set 𝒜 ⊂ (ℝ^2)

Input: partition Π;
Output: graphical presentation;
Submodules: Needs["ComputationalGeometry`"];

Figure2[PI_]:=Module[{k=Length[PI],centri,tab,imin},
A=Flatten[PI,1];
c=Table[Mean[PI[[j]]],{j,k}];
AG={{Floor[Min[A[[All,1]]]],Ceiling[Max[A[[All,1]]]]},{Floor[Min[A[[All,2]]]],Ceiling[Max[A[[All,2]]]]}};
slc=ListPlot[{c},PlotMarkers->{"✶",20},PlotStyle->{Gray,Opacity[.8]},AspectRatio->Automatic];
PIP=Table[Union[PI[[j]]],{j,Length[PI]}];
konv=Table[ConvexHull[PIP[[j]]],{j,k}];
slKonv=Graphics[Table[{Opacity[.5],Hue[j/(k+2)],EdgeForm[{Thin,Hue[j/k]}],Polygon[PIP[[j,konv[[j]]]]]},{j,k}]];
slVoronoi=DiagramPlot[c,LabelPoints->False];
slpod1=ListPlot[Table[PI[[j]],{j,k}],PlotStyle->Table[{Hue[.3i+.1],PointSize[.04]},{i,Length[PI]}],AspectRatio->Automatic];
Print[Show[slpod1,slc,slVoronoi,slKonv,Frame->True,GridLines->Automatic,ImageSize->150]];
]