How to create a color contour plot with color table?
- To: mathgroup at smc.vnet.net
- Subject: [mg14339] How to create a color contour plot with color table?
- From: hsg at lem.phy.duke.edu (Henry S. Greenside)
- Date: Thu, 15 Oct 1998 00:28:44 -0400
- Organization: Duke University, Durham, NC, USA
- Sender: owner-wri-mathgroup at wolfram.com
I am having trouble getting Mathematica to create a plot of the intended
sort, wanted to see if I could get some help from the net:
I have a MxN rectangular matrix of floating point numbers that I want to
plot as a rectangular color contour plot (ListDensityPlot) with an
associated thin color strip showing which colors are associated with
which range of values, something likes this:
--------------------------
| |
| |
| |
| |
| |
| |
| |
--------------------------
-------------
| |
-------------
I am able to generate both ListDensityPlots fine but then get into
trouble when trying to combine them into a single plot: Mathematica
overrides the specified size of each plot when combining them and the
color strip ends up being too small.
Does anyone know tricks for fine-tuning the combination of two separate
plots into a single overall plot?
In particular, if I use ImageSize to specify the size of each plot
separately, how do I get Mathematica to preserve ImageSize when
combining plots? It is most frustrating that Mathematica overrides the
ImageSize specification.
I include some parts of my code below.
Thanks,
Henry
=================================================================
g1 = ListDensityPlot[
EEGdata ,
ColorFunction -> mycolorfn,
Mesh ->False,
AspectRatio ->0.4,
FrameTicks ->{timeLabelsBottom, tickfn[electrodeLabels],
timeLabelsTop, tickfn[electrodeLabels] } ,
FrameLabel ->{
StyleForm["Window Index",FontSize ->myfontsize, FontWeight -> Bold
],
None,
StyleForm[ "Time", FontSize -> myfontsize, FontWeight -> Bold] ,
None
} ,
ImageSize ->{8.0(72), 5.0 (72) } (* size in printer points, 72 = 1
inch *) ]
g2 = ListDensityPlot[ (* Make color chart based on range of data *)
colortable,
ColorFunction ->mycolorfn,
Mesh->False,
Axes->False,
AspectRatio -> 0.05,
ImageSize -> { 6.5(72) , 1.5 (72) } ,
FrameTicks -> {frameTicksBottom, None, frameTicksTop, None },
FrameLabel -> { StyleForm[ "Range of Values", FontSize
->myfontsize,
FontWeight -> Bold ] ,
None,
None,
None
}
]
Show[ (* one attempt to combine graphics *)
Graphics[
{
Rectangle[ {0,0}, {1,1}, g1 ] ,
Rectangle[ {0.2,-0.4}, {0.8,0} , g2 ]
},
]
]