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
djmp at earthlink.net
http://home.earthlink.net/~djmp/
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