Re: Plot Label at bottom with quote marks
- To: mathgroup at smc.vnet.net
- Subject: [mg101662] Re: Plot Label at bottom with quote marks
- From: Bill Rowe <readnews at sbcglobal.net>
- Date: Tue, 14 Jul 2009 05:32:00 -0400 (EDT)
On 7/12/09 at 5:50 AM, donabc at comcast.net (Don) wrote:
>The only way I know of to put a label at the bottom of a Plot is the
>following.
>p1 = Plot[{Sin[3 x] + 0.3 x, 0.3 x}, {x, 0, 10}, AxesLabel ->
>{Text[Style["Years", Bold, FontSize -> 14]],
>Text[Style["Price", Bold, FontSize -> 14]]}, PlotRangePadding ->
>{0.5, 0.5}, PlotStyle -> {Black, Black}];
>Labeled[p1, "Fig. 1"]
>So far, so good. But now, I want to use the Drawing Tool to put
>some text on the Plot that comes out as a result of the above code.
>(Graphics -> Drawing Tools to bring up the palette of drawing
>tools.)
>When I click on the AE icon (for text) at the bottom of the palette
>and bring the resulting crosshairs onto the graph and click on the
>graph where I want the text to begin, quote marks appear around the
>label at the bottom ("Fig. 1") and I can't get rid of them. From
>that point on, they print with the quote marks.
>Does anyone have a solution?
Instead of adding text using Drawing Tools, why not incorporate
the text into the original plot? Adding, Epilog->{Text["some
text", {x, y}]} will put "some text" centered on the coordiante {x,y}.
For example, here is your plot with some text added.
Labeled[Plot[{Sin[3 x] + 0.3 x, 0.3 x}, {x, 0, 10},
AxesLabel -> {Text[Style["Years", Bold, FontSize -> 14]],
Text[Style["Price", Bold, FontSize -> 14]]},
PlotRangePadding -> {0.5, 0.5}, PlotStyle -> {Black, Black},
Epilog -> {Text[Style["some text", 14], {5.5, 3}]}], "Fig.1"]