Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: color-bar legend for the LisContourPlot

• To: mathgroup at smc.vnet.net
• Subject: [mg123563] Re: color-bar legend for the LisContourPlot
• From: Armand Tamzarian <mike.honeychurch at gmail.com>
• Date: Sun, 11 Dec 2011 03:47:55 -0500 (EST)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• References: <201112091054.FAA03755@smc.vnet.net> <jbvjp4$j20$1@smc.vnet.net>

On Dec 10, 11:36 pm, Jacopo Bertolotti <jacopo.bertolo... at gmail.com>
wrote:
> I encountered a very similar problem and I am also searching for a
> solution that do not involve either ShowLegend or a third-part package.
> The very best I came up with is something like
> GraphicsRow[{ListContourPlot[RandomReal[30, {10, 10}],
>     InterpolationOrder -> 3, ColorFunction -> "LakeColors"],
>    MatrixPlot[Transpose@{Table[i, {i, 1, 30}]},
>     FrameTicks -> {{None, {1, 10, 20, 30}}, {None, None}},
>     ColorFunction -> "LakeColors"]}]
> that is still far from ideal. Anyone with suggestions is welcomed.
>
> Jacopo
>
> On 12/09/2011 11:54 AM, Karamiarokhloo, M.P. (Mehdipasha) wrote:
>
>
>
>
>
>
>
> > Dear All,
>
> > I am using Mathematica 7 and have difficulties to plot the ListContourP=
lot
> > of ocean data with a neat color bar (legend).
> > For example if I have a temperature field range between {-2,30}, and I =
use
> > the ColorFunction Rainbow,
> > I cannot include a color-bar which has the same number of contours as t=
he contourplot, and it does not show the related numbers for each color-sha=
de.
> > The ShowLegend function of Mathematica is very primitive.
> > Has any body any suggestion?
>
> > Thanks you.
> > P.Karami

AFAIK Graphics grid renders fixed grid sizes so is not a good
aesthetic choice if the plots you are combining have quite different
sizes. You can do this a number of ways but I think Labeled makes this
pretty easy once you make the plot and legend the same height (this is
optional but for me it looks better):

legendwidth=30;
plotheights=300;

Labeled[
 ListContourPlot[RandomReal[30, {10, 10}],
  InterpolationOrder -> 3,
  ImageSize -> plotheights+21,
  ImagePadding -> {{20, 1}, {20, 1}},
  ColorFunction -> "LakeColors"],
 MatrixPlot[Transpose@{Table[i, {i, 1, 30}]},
  AspectRatio -> plotheights/legendwidth,
  FrameTicks -> {{None, {1, 10, 20, 30}}, {None, None}},
  ImageSize -> {legendwidth+21, plotheights+2},
  ImagePadding -> {{1, 20}, {1, 1}},
  ColorFunction -> "LakeColors"],
 {{Right, Top}}]

To understand what I am doing with image padding and aspect ratio see
the current post "Precicely defining plot size ". You could control
the spacing between the plot and the legend by adjusting the image
padding on the plots.

Mike

• References:
  • color-bar legend for the LisContourPlot
    • From: "Karamiarokhloo, M.P. (Mehdipasha)" <M.P.Karamiarokhloo@uu.nl>