Group Abstract

Message Boards

WOLFRAM COMMUNITY

20.3K Views

14 Replies

2 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Mathematics Graphics and Visualization Wolfram Language

Add text to graphics?

Robert Poenaru

Robert Poenaru, National Institute of Nuclear Research IFIN-HH

Posted 9 years ago

POSTED BY: Robert Poenaru

14 Replies

Sort By:

Hans Dolhaine

Hans Dolhaine, retired

Posted 4 years ago

I think there is a way to get Epilogs from older plots, See GetEpilog in the notebook attached - near the end. Attachments: vanderWaals.nb

POSTED BY: Hans Dolhaine

a a

Posted 4 years ago

This really works. Thanks so much.

POSTED BY: a a

Kyle Martin

Kyle Martin, WOLFRAM

Posted 9 years ago

To place text in your Graph, consider using Epilog and Inset: Show[p1, p2, Epilog -> {Inset[ Framed[Style["Top Right", 20], Background -> White], {45, 2300}], Inset[Framed[Style["Bottom Right", 20], Background -> White], {45, 300}]}]

POSTED BY: Kyle Martin

Robert Poenaru

Robert Poenaru, National Institute of Nuclear Research IFIN-HH

Posted 9 years ago

Works like a charm. Thank you very much Kyle ;)

POSTED BY: Robert Poenaru

a a

Posted 4 years ago

is it possible to put epilog in plots rather than in show?

POSTED BY: a a

Rohit Namjoshi

Posted 4 years ago

Yes. Why don't you try it, or check the documentation?

POSTED BY: Rohit Namjoshi

a a

Posted 4 years ago

yes, but only the 1st epilog will be retained, how to resolve this?

POSTED BY: a a

Rohit Namjoshi

Posted 4 years ago

`Show` inherits options from the first element. There is no way to change that behavior. One option is to use the Wolfram Function Repository function CombinePlots. E.g. combinePlots = ResourceFunction["CombinePlots"]; p1 = Plot[Sin[x], {x, 0, 2 Pi}, Frame -> True, Epilog -> Inset[Framed["Plot 1"], Scaled[{0, 1}], ImageScaled[{0, 1}]]] p2 = Plot[Cos[x], {x, 0, 2 Pi}, Frame -> True, Epilog -> Inset[Framed["Plot 2"], Scaled[{1, 0}], ImageScaled[{1, 0}]]] combinePlots[{p1, p2}]

Show inherits options from the first element. There is no way to change that behavior. One option is to use the Wolfram Function Repository function CombinePlots. E.g.

combinePlots = ResourceFunction["CombinePlots"];

p1 = Plot[Sin[x], {x, 0, 2 Pi},
  Frame -> True,
  Epilog -> Inset[Framed["Plot 1"], Scaled[{0, 1}], ImageScaled[{0, 1}]]]

p2 = Plot[Cos[x], {x, 0, 2 Pi},
  Frame -> True,
  Epilog -> 
   Inset[Framed["Plot 2"], Scaled[{1, 0}], ImageScaled[{1, 0}]]]

combinePlots[{p1, p2}]

enter image description here

POSTED BY: Rohit Namjoshi

a a

Posted 4 years ago

thank you, but after hiding plot1 and plot2 I got this

POSTED BY: a a

Rohit Namjoshi

Posted 4 years ago

I have no idea what you mean by "after hiding plot1 and plot 2". You post an image that is of very little value. Post code that can be copied, pasted, and evaluated so that the people you are asking for help from can reproduce the problem.

POSTED BY: Rohit Namjoshi

a a

Posted 4 years ago

combinePlots = ResourceFunction["CombinePlots"]; p1 = Plot[Sin[x], {x, 0, 2 Pi}, Frame -> True, Epilog -> Inset[Framed["Plot 1"], Scaled[{0, 1}], ImageScaled[{0, 1}]]]; p2 = Plot[Cos[x], {x, 0, 2 Pi}, Frame -> True, Epilog -> Inset[Framed["Plot 2"], Scaled[{1, 0}], ImageScaled[{1, 0}]]]; combinePlots[{p1, p2}]

combinePlots = ResourceFunction["CombinePlots"];

p1 = Plot[Sin[x], {x, 0, 2 Pi},
  Frame -> True,
  Epilog -> Inset[Framed["Plot 1"], Scaled[{0, 1}], ImageScaled[{0, 1}]]];

p2 = Plot[Cos[x], {x, 0, 2 Pi},
  Frame -> True,
  Epilog -> 
   Inset[Framed["Plot 2"], Scaled[{1, 0}], ImageScaled[{1, 0}]]];

combinePlots[{p1, p2}]

POSTED BY: a a

Hans Milton

Posted 4 years ago

Plot[ {x^2 + 2 x + 1, x^2 - x + 5}, {x, 6, 50}, Axes -> False, Frame -> True, FrameLabel -> {"I [\[HBar]]", "E [MeV]"}, PlotStyle -> {Black, Thick}, ImageSize -> Large, PlotRange -> Automatic, PlotLegends -> Placed[{"Th.", "Exp."}, {0.15, 0.75}], Epilog -> { Inset[Framed[Style["Top Right", 20], Background -> White], {45, 2300}], Inset[Framed[Style["Bottom Right", 20], Background -> White], {45, 300}] } ]

Plot[
   {x^2 + 2 x + 1, x^2 - x + 5}, {x, 6, 50},
   Axes -> False, Frame -> True,
   FrameLabel -> {"I [\[HBar]]", "E [MeV]"},
   PlotStyle -> {Black, Thick},
   ImageSize -> Large,
   PlotRange -> Automatic,
   PlotLegends -> Placed[{"Th.", "Exp."}, {0.15, 0.75}],
   Epilog -> {
     Inset[Framed[Style["Top Right", 20], Background -> White], {45, 2300}],
     Inset[Framed[Style["Bottom Right", 20], Background -> White], {45, 300}]
   }
 ]

POSTED BY: Hans Milton