
Re: labeling clustered data
Posted:
Jun 23, 2013 10:48 PM


data = RandomReal[{}, {10, 2}];
Module[{n = 1}, ListPlot[data, Epilog > { Text[n++, #, {1, 1}] & /@ data}, PlotRange > {{0.1, 1.1}, {0.1, 1.1}}, Frame > True, Axes > False]]
Module[{n = 1}, ListPlot[FindClusters[data, 2], Epilog > { Text[n++, #, {1.5, 1.5}] & /@ data}, PlotMarkers > Automatic, PlotRange > {{0.1, 1.1}, {0.1, 1.1}}, Frame > True, Axes > False]]
Bob Hanlon
On Sat, Jun 22, 2013 at 8:46 PM, <ahmedco31@hotmail.com> wrote:
> Hi, I have a list of 2D points like this {{a,b},{x,y},...}, and I don't > know how to plot them with labeled dots such that the first point labeled > with number 1 and the second point labeled with 2, ...etc. Then I use the > clustering function "FindClusters" to cluster the points into 2 groups, how > can I plot the resulted list of two groups of points such that I keep the > same labeling order? > > Thanks in advance > >

