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