Re: GraphicsGrid spacing
- To: mathgroup at smc.vnet.net
- Subject: [mg94476] Re: GraphicsGrid spacing
- From: "sjoerd.c.devries at gmail.com" <sjoerd.c.devries at gmail.com>
- Date: Sun, 14 Dec 2008 07:39:20 -0500 (EST)
- References: <200812100951.EAA00449@smc.vnet.net> <ghqk36$17p$1@smc.vnet.net>
Actually, I wrote "0.3" without leading zero not "3". The dot on its
own (because a newline sits between the dot and the 3 in my news
reader) is hard to see.
Sjoerd
On Dec 12, 1:53 pm, janeywit <janey... at gmail.com> wrote:
> Thank you both for replying! The AspectRatio -> 3 solution worked for
> a while but then I ran into more problems with other changes I made.
> In the end I made it work with various options including ImagePadding
> and AspectRatios. And I learned a lot from the example posted here so
> thank you!
>
> On Dec 11, 8:47 am, "Scot Martin" <smar... at seas.harvard.edu> wrote:
>
> > I don't really understand GraphicsColumn and GraphicsGrid myself becaus=
e =
> the
> > formatting also comes out strange every time I try to use them for my
> > purposes. However, Grid and Column work just great. Here's an example o=
f =
> how
> > I put a graphic exactly where I want on an 8.5 by 11" piece of paper. T=
he
> > key commands (from my point of view) are Column[], Inset[], and
> > ImagePadding[]. In particular, ImagePadding[] is in my list of top 10
> > commands added to Mathematica in recent years, though Column[] and Inse=
t[=
> ]
> > are probably the commands you're after.
>
> > I'll paste "everything" below in case you want to try these out in
> > Mathematica so that you won't be missing any commands.
>
> > Needs["BarCharts`"]
>
> > SetOptions[BarChart,FrameLabel->{{"Mass Loading (\[Mu]g m^-3
> > bin^-1)",},{"Aerodynamic Diameter (\[Mu]m)",""}},ImageSize->5
> > 72,ImagePadding->{{48,16},{88,8}},BaseStyle->{FontSize->12,FontFamily->=
"T=
> ime
> > sNewRoman"},Frame->True,FrameTicks->{{Automatic,None},{Automatic,None}}=
,B=
> arS
> > tyle->Red];
>
> > labels={"<0.09","0.09\nto\n0.18","0.18\nto\n0.33","0.33\nto\n0.56","0=
.5=
> 6\nto
> > \n1.00","1.00\nto\n1.80","1.80\nto\n3.2","3.20\nto\n10.0","10.0\nto\n18=
.0=
> "};
>
> > loadings["biomass"]={2.000,12.184,27.161,59.134,32.007,6.832,3.803,9.=
39=
> 0,1.3
> > 46};
>
> > out["biomass"]=BarChart[loadings["biomass"],BarLabels->labels,Epilog-=
>{=
> Inset
> > ["Rond=F4nia",Scaled[{.7,.9}],{-1,0}],Inset["21 Sep
> > 2002",Scaled[{.7,.8}],{-1,0}]}]/.(FrameTicks->{bottom_List,_})->(FrameT=
ic=
> ks-
>
> > >{{Automatic,None},{bottom,None}})
>
> > loadings["AMAZE"]={{0,0.917,0.955,0.723,0.626,0.965,2.842,4.564,0.839=
},=
> {0.61
> > 6,0.296,0.551,0.611,0.421,1.627,2.013,4.189,0.474},{0.272,0.738,0.331,0=
.5=
> 90,
> > 1.931,1.008,1.466,3.977,0.414}}
>
> > out["AMAZE"]=BarChart[loadings["AMAZE"],BarLabels->labels,Epilog->{In=
se=
> t["AM
> > AZE-08",Scaled[{.1,.9}],{-1,0}],Inset["Mar-Apr
> > 2008",Scaled[{.1,.8}],{-1,0}]}]/.(FrameTicks->{bottom_List,_})->(FrameT=
ic=
> ks-
>
> > >{{Automatic,None},{bottom,None}})
>
> > out["page"]=Graphics[{Inset[Column[{out["AMAZE"],"","",out["biomass"]=
}]=
> ,Cent
> > er]},ImageSize->72{8.5,11}]
>
> > SetDirectory[NotebookDirectory[]];
> > Export["MOUDI.pdf",out["page"]]
>
> > -----Original Message-----
> > From: janeywit [mailto:janey... at gmail.com]
> > Sent: Wednesday, December 10, 2008 4:52 AM
> > Subject: GraphicsGrid spacing
>
> > Hi,
> > I have 2 box whisker plot images and I'd like to place one above the
> > other in a GraphicsColumn format. This seems to work fine if the bo=
x
> > whisker plot images only contain a small number of plots, but mine
> > contain a lot of plots (i.e. they are very wide) and when I put them
> > in the GraphicsColumn mathematica places a huge amount of white space
> > around them. I want to export the image to disk and at the moment it
> > is half whitespace.
> > I have tried every possible option of spacing and sizing that I can
> > think of and can't find a way to improve it. Please can somebody hel=
p
> > me - otherwise I have to export the image and then alter it with Paint
> > or something which is really not what I want to do.
> > Many thanks in advance!
>
> > Here is an example of what I mean:
>
> > Needs["StatisticalPlots`"]
> > list1 = {1, 3, 4, 5, 3, 5, 6, 4, 6, 7, 4, 6, 5, 3, 2}
> > list2 = {7, 6, 7, 8, 6, 5, 7, 7, 6, 5, 4, 4, 6, 6, 4, 3}
> > bwp1 = BoxWhiskerPlot[list1, list2, PlotRange -> {Automatic, All}]
> > bwp2 = BoxWhiskerPlot[list1, list2, PlotRange -> {Automatic, {0, 5}}]
>
> > (*Put two small images in a column.... it works fine*)
> > GraphicsColumn[{bwp1, bwp2}]
>
> > (*Now make larger images to test with*)
> > bwp11 = BoxWhiskerPlot[list1, list2, list1, list2, list1, list2,
> > list1, list2, list1, list2, list1, list2,
> > PlotRange -> {Automatic, All}]
> > bwp22 = BoxWhiskerPlot[list1, list2, list1, list2, list1, list2,
> > list1, list2, list1, list2, list1, list2,
> > PlotRange -> {Automatic, {0, 5}}]
>
> > (*Now put the larger images in a column - a huge amount of whitespace
> > appears around the images*)
> > GraphicsColumn[{bwp11, bwp22}]
- References:
- GraphicsGrid spacing
- From: janeywit <janeywit@gmail.com>
- GraphicsGrid spacing