Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2012

[Date Index] [Thread Index] [Author Index]

Search the Archive

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>
  • Prev by Date: Large SparseArray in Mathematica 9 and the predictive interface
  • Next by Date: Re: Large SparseArray in Mathematica 9 and the predictive interface
  • Previous by thread: Re: question
  • Next by thread: Generating documentation for a local package in v9