Re: question
- To: mathgroup at smc.vnet.net
- Subject: [mg129305] Re: question
- From: Bob Hanlon <hanlonr357 at gmail.com>
- Date: Sun, 30 Dec 2012 20:50:29 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Delivered-to: l-mathgroup@wolfram.com
- Delivered-to: mathgroup-newout@smc.vnet.net
- Delivered-to: mathgroup-newsend@smc.vnet.net
- References: <20121229200946.8054D68A3@smc.vnet.net>
How about grids?
colors = {Red, Blue, Green};
r = 20;
c = 4;
(*r=88 and c=9 for your example*)
data = RandomReal[1, {r, c}];
clusters = FindClusters[data, Length[colors]];
n = 1;
Column[
Grid[#,
ItemSize -> 8,
Background -> colors[[n++]],
Alignment -> Left] & /@
clusters]
Column[
Grid[{#},
ItemSize -> 8,
Alignment -> Left,
Background -> colors[[Position[clusters, #][[1, 1]]]]] & /@
data]
Bob Hanlon
On Sun, Dec 30, 2012 at 12:58 PM, Hagwood, Charles R
<charles.hagwood at nist.gov> wrote:
> Bob,
>
> How does one put this is MatrixForm?
>
> Thanks.
>
> Charles
>
> ________________________________________
> From: Bob Hanlon [hanlonr357 at gmail.com]
> Sent: Saturday, December 29, 2012 9:52 PM
> To: Hagwood, Charles R
> Cc: mathgroup at smc.vnet.net
> Subject: Re: question
>
> colors = {Red, Blue, Green};
>
> r = 20;
> c = 4;
> (* r = 88 and c = 9 for your example *)
>
> data = RandomReal[1, {r, c}];
>
> clusters = FindClusters[
> data, Length[colors]];
>
> n = 1;
> Style[#, Background ->
> colors[[n++]]] & /@
> clusters
>
> To color in place by cluster
>
> Style[#, Background -> colors[[
> Position[clusters, #][[1, 1]]
> ]]] & /@
> data
>
>
> Bob Hanlon
>
>
> On Sat, Dec 29, 2012 at 3:09 PM, Hagwood, Charles R
> <charles.hagwood at nist.gov> wrote:
>>
>> I have a matrix, say 88 x 9 . I use FindCluster to find say 3 clusters,=
i.e. the 88 rows are partitioned into 3 clusters. I want to use 3 colors=
to highlight these rows. For example, the rows in cluster 1 highlighted wi=
th color1, cluster 2 highlighted with color2 and cluster 3 highlighted with=
color 3. I want to be able to read the data underneath the highlight. H=
ow can this be done in Mathematica?
>>
>> Charles Hagwood
>>
>>
- References:
- question
- From: "Hagwood, Charles R" <charles.hagwood@nist.gov>
- question