Re: Map legend
- To: mathgroup at smc.vnet.net
- Subject: [mg120924] Re: Map legend
- From: clansa <dauphinester at gmail.com>
- Date: Tue, 16 Aug 2011 01:27:08 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- References: <201108141214.IAA03395@smc.vnet.net> <j29old$793$1@smc.vnet.net>
On 15 ao=FBt, 02:18, Heike Gramberg <heike.gramb... at gmail.com> wrote:
> Setting the labels in ShowLegend to ToString[min] and ToString[max]
> instead of " min" and " max" should work.
>
> Heike.
>
> On 14 Aug 2011, at 14:14, clansa wrote:
>
>
>
>
>
>
>
> > Hello,
> > I make this program to illustrate catastrophs (don1) by a map :
> > Print["type de catastrophe : ", n4]
> > quant = Quantile[don1, {5/100, 2/5, 3/5, 95/100}]
> > abs[x_] :=
> > Which[x == 0., GrayLevel[1.], x > 0. && x < quant[[1]],
> > GrayLevel[0.80], x > quant[[1]] && x < quant[[2]], GrayLevel[0.65],
> > x > quant[[2]] && x < quant[[3]], GrayLevel[0.50],
> > x > quant[[3]] && x < quant[[4]], GrayLevel[0.35], x > quant[[4]],
> > GrayLevel[0.]]
> > val = Transpose@{CountryData[], don1};
> > fig = Graphics[{abs[#[[2]]], EdgeForm[{Thin, Gray}],
> > CountryData[#[[1]], {"SchematicPolygon", "Robinson"}]} & /@ =
val,
> > ImageSize -> {600, 600}];
> > max = Max[don1]
> > min = Min[don1]
> > Needs["PlotLegends`"]
> > ShowLegend[fig, {GrayLevel[1 - #] &, 6, " min", " max",
> > LegendPosition -> {1.1, -.4}}]
>
> > What is the solution to obtain automatic value for "max" and "min" on
> > the ShowLegend instruction
>
> > Thanks
>
> > A. Dauphin=E9
> > Geographer
Thanks to Hanke
It's OK
A. Dauphine
- References:
- Map legend
- From: clansa <dauphinester@gmail.com>
- Map legend