Re: ListDensityPlot Legend?

• To: mathgroup at smc.vnet.net
• Subject: [mg58663] Re: [mg58653] ListDensityPlot Legend?
• From: "David Park" <djmp at earthlink.net>
• Date: Wed, 13 Jul 2005 03:28:55 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

```Juergen,

How about something like the following?

Needs["Graphics`Colors`"]

matrix = Table[Random[Integer, {0, 2}], {25}, {25}];

colorfunc[z_] := Switch[z, 0, DodgerBlue, 1, LimeGreen, 2, Apricot]

mplot = ListDensityPlot[matrix,
Frame -> False,
ColorFunction -> colorfunc,
ColorFunctionScaling -> False,
DisplayFunction -> Identity];

Show[Graphics[
{Rectangle[{0, 0}, {1, 1}, mplot],
colorfunc[0], Rectangle[{1.05, 0.5}, {1.15, 0.6}],
colorfunc[1], Rectangle[{1.05, 0.6}, {1.15, 0.7}],
colorfunc[2], Rectangle[{1.05, 0.7}, {1.15, 0.8}],
Black,
Text[0, {1.1, 0.55}],
Text[1, {1.1, 0.65}],
Text[2, {1.1, 0.75}],
Text["Data Matrix", {0.2, 1.05}, {-1, 0}]}],
PlotRange -> {{-0.05, 1.3}, {-0.05, 1.1}},
AspectRatio -> Automatic,
TextStyle -> {FontSize -> 14, FontWeight -> "Bold"},
Background -> Linen,
ImageSize -> 450];

David Park

From: juejung [mailto:juejung at indiana.edu]
To: mathgroup at smc.vnet.net

dear mathgroup,

how does one add a legend to a ListDensityPlot.
i've a matrix that contains only 0,1 or 2 entries. ListDensityPlot plots
the regions in three different colors. i would like to add a legend that
indicates the colors and their corresponding numbers (0,1, or 2).
Tom Wickham-Jones' ExtendGraphics package is doing almost what i want for
ListContourPlot, however, for ListDensityPlot it's not working.
Any ideas?

thanks
juergen

```

• Prev by Date: Re: //N bug, but WHY?
• Next by Date: What we get from (0.0*x), (0.0^x) and similar stuff
• Previous by thread: Re: ListDensityPlot Legend?
• Next by thread: What we get from (0.0*x), (0.0^x) and similar stuff