RE: Graphics / cosmetics
- To: mathgroup at smc.vnet.net
- Subject: [mg45508] RE: [mg45483] Graphics / cosmetics
- From: "David Park" <djmp at earthlink.net>
- Date: Sat, 10 Jan 2004 16:43:28 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Marko,
This is a problem of getting the AspectRation and ImageSize matched.
Unfortunately, there is not a precise way to do it as far as I know. That is
because AspectRatio refers to the plot before extra things like plot labels
and tick labels are added. ImageSize refers to the entire plot region.
Furthermore, Mathematica's automatic choices work poorly for plots with low
aspect ratio.
Let's use a colored background so we can better see the actual plot region.
Needs["Graphics`Colors`"]
This is your original plot...
ListPlot[Table[{x, Sin[x]}, {x, 1, 10, 0.1}], PlotLabel -> "This is a long
caption.", AspectRatio -> 1/5, ImageSize -> 1000,
Background -> Linen];
and the same plot with the ImageSize "matched" to the AspectRatio.
ListPlot[Table[{x, Sin[x]}, {x, 1, 10, 0.1}], PlotLabel -> "This is a long
caption.", AspectRatio -> 1/5, ImageSize -> {1000, 200},
Background -> Linen];
It didn't help. But if we experiment with the ImageSize we can obtain...
ListPlot[Table[{x, Sin[x]}, {x, 1, 10, 0.1}], PlotLabel -> "This is a long
caption.", AspectRatio -> 1/5, ImageSize -> {1000, 220},
Background -> Linen];
which I think is closer to what you want.
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/
From: Marko Kastens [mailto:Kastens at hamburg.baw.de]
To: mathgroup at smc.vnet.net
Hi!
If you plot this f.e. (in Mathematica 4.1.2.0):
ListPlot[Table[{x, Sin[x]}, {x, 1, 10, 0.1}],
PlotLabel -> "This is a long caption.", AspectRatio -> 1/5,
ImageSize -> 1000];
- then select the just plotted graphics - you can see that there is a space
between the left border of the selection and the y-axis(icl. labeling). Is
there any Option to set this space to zero or to other values? I havn't
found anything :-(
Thanks for help,
marko