Date: Jun 23, 2013 10:48 PM
Author: Bob Hanlon
Subject: Re: labeling clustered data

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

>

>