Re: Combining graphics and tabels in one cell
- To: mathgroup at smc.vnet.net
- Subject: [mg52465] Re: [mg52430] Combining graphics and tabels in one cell
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Sun, 28 Nov 2004 01:06:49 -0500 (EST)
- Reply-to: hanlonr at cox.net
- Sender: owner-wri-mathgroup at wolfram.com
Needs["Graphics`"];
data= Sort /@ Table[10Random[],{i,3},{j,4}];
dim=Dimensions[data];
bc=BarChart3D[data, DisplayFunction->Identity];
This displays the Table with its layout aligning as if printed with TableForm
Show[GraphicsArray[{bc,
GraphicsArray[
Table[
Graphics[
Text[
NumberForm[data[[i,j]],{2,1},
NumberPadding->{"","0"}],
{0,0}]],
{i,dim[[1]]},{j,dim[[2]]}]]}],
ImageSize->420];
This displays the Table with its layout aligning with the BarChart
Show[GraphicsArray[{bc,
GraphicsArray[
Table[
Graphics[
Text[
NumberForm[data[[j,dim[[2]]-i+1]],{2,1},
NumberPadding->{"","0"}],
{0,0}]],
{i,dim[[2]]},{j,dim[[1]]}]]}],
ImageSize->420];
Bob Hanlon
>
> From: "Bruyndonckx P." <pbruynd at vub.ac.be>
To: mathgroup at smc.vnet.net
> Date: 2004/11/27 Sat AM 01:40:23 EST
> To: mathgroup at smc.vnet.net
> Subject: [mg52465] [mg52430] Combining graphics and tabels in one cell
>
> I have a two-dimensional matrix which I want to display using BarChart3D
and TableForm. However, I would like
> them to appear side-by-side in one output cell. Is there a way to combine
a graphical object and a non-graphical
> object in one cell (ie equivalent to GraphicsArray for two graphical objects)
?
>
> Peter
>
>