Search All of the Math Forum:

Views expressed in these public forums are not endorsed by NCTM or The Math Forum.

Notice: We are no longer accepting new posts, but the forums will continue to be readable.

Topic: labeling clustered data
Replies: 3   Last Post: Jun 25, 2013 2:51 AM

 Messages: [ Previous | Next ]
 W. Craig Carter Posts: 266 Registered: 9/10/05
Re: labeling clustered data
Posted: Jun 25, 2013 2:51 AM

Hello Bob,
This is something I've been meaning to do for myself for a while; so I've added a graphical feature to your nice solution.

<< ComputationalGeometry`

data = Flatten[{RandomReal[{0, 1.5}, {10, 2}],
RandomReal[{0.5, 2}, {10, 2}]}, 1];

Module[{
n = 1,
clusters = FindClusters[data, 2]
},
ListPlot[clusters,
Epilog -> {Text[n++, #, {-1.5, -1.5}] & /@ data,
({Hue[RandomReal[]], Opacity[0.5],
GraphicsComplex[#, Polygon@ConvexHull[#]]} &) /@ clusters},
PlotMarkers -> Automatic,
PlotRange -> 2 {{-0.1, 1.1}, {-0.1, 1.1}},
Frame -> True,
Axes -> False
]
]

W Craig Carter
Professor of Materials Science, MIT

On Jun 23, 13, at 22:54 PM, Bob Hanlon wrote:

>
> 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?
>>
>>
>>

>
>

Date Subject Author
6/23/13 Bob Hanlon
6/25/13 W. Craig Carter