Re: How to make large graphics object fit within a plot?
- To: mathgroup at smc.vnet.net
- Subject: [mg105263] Re: How to make large graphics object fit within a plot?
- From: "M.Roellig" <markus.roellig at googlemail.com>
- Date: Wed, 25 Nov 2009 22:59:41 -0500 (EST)
- References: <hej3p8$d70$1@smc.vnet.net>
On 25 Nov., 12:18, "Nasser M. Abbasi" <n... at 12000.org> wrote:
> I am trying to add a disk at some location on top of an existing plot. So I
> use Epilog to add the disk.
>
> But it seems if the disk is larger than the plot image size, it gets chopped
> off. I wanted the whole disk to show.
>
> I tried increasing ImagePadding for the plot, and also ImageMargins, but
> this did not help.
>
> Here is what I tried
>
> Plot[Sin[x], {x, 0, 10}, AspectRatio -> Automatic,
> Epilog -> {Disk[{5, 0}, 2]}]
>
> Show[Plot[Sin[x], {x, 0, 10}, AspectRatio -> Automatic],
> Graphics[Disk[{5, 0}, 2]]]
>
> Show[Plot[Sin[x], {x, 0, 10}, AspectRatio -> Automatic, PlotRange ->
> Automatic],
> Graphics[Disk[{5, 0}, 2]]]
>
> None of the above works. But the below WORKS:
>
> Show[Plot[Sin[x], {x, 0, 10}, AspectRatio -> Automatic, PlotRange ->
> {Automatic,{-3,3}}],
> Graphics[Disk[{5, 0}, 2]]]
>
> So, I had to explicitly make the plot y-axis large enough to accommodate the
> disk to make it 'fit'
>
> I wanted to do this automatically. I am sure there is a way. I just thought
> of something, may be I need to look at
> Inset[] may be there is something there? which I'll do that next.
>
> --Nasser
Hi,
you can use:
Show[Plot[Sin[x], {x, 0, 10}, AspectRatio -> Automatic],
Graphics[Disk[{5, 0}, 2]], PlotRange -> All]
or as a workaround:
Show[{Graphics[Disk[{5, 0}, 2]], Plot[Sin[x], {x, 0, 10}],
Graphics[Disk[{5, 0}, 2]]}, Axes -> True]
Show takes the PlotRange from the first object in the list.
I suppose you want the disk to be printed on top of the
plot so I had to add the disk a second time to overplot the
sine.
Cheers,
Markus