Re: Using colored text in PlotLabel

*To*: mathgroup at smc.vnet.net*Subject*: [mg122284] Re: Using colored text in PlotLabel*From*: "McHale, Paul" <Paul.McHale at excelitas.com>*Date*: Sun, 23 Oct 2011 06:25:06 -0400 (EDT)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*References*: <201108031106.HAA10819@smc.vnet.net>

My favorite means of creating a quick legend is: (* Plot *) Plot[{x, x^2} , {x, -10, 10}, PlotRange -> All, PlotLabel -> Grid[{ {Graphics[{Blue, Line[{{0, 0}, {1, 0}}]}, ImageSize -> {20, 20}], "Scope"}, {Graphics[{Red, Line[{{0, 0}, {1, 0}}]}, ImageSize -> {20, 20}], "Other"}}, Alignment -> {Left, Center}, Spacings -> 0], PlotStyle -> {Blue, Red}] I can't take full (or any) credit. This discussion came up a while ago and I happily scavenged these ideas from others. The key is Grid[]. Play with it a while and it will grow on you :) Paul On Aug 3, 2011, at 6:06 AM, Andrew DeYoung wrote: > Hi, > > I often use Mathematica 7 to display data, using ListPlot. Since I > end up creating plots containing lots of colored lines, it would be > helpful if I could color the text that I display above my plots using > PlotLabel. Do you know if there is a way to do this without having to > resort to the Plot Legends Package, which I sometimes find somewhat > cumbersome to use (because I often end up having to spend a lot of > time positioning the legend so that it does not cover my plot lines)? > > If you have time, I have plotted an example plot of mine here: > http://www.andrew.cmu.edu/user/adeyoung/august2/august2.jpg > > In that plot, I have created the title using PlotLabel. Specifically, > I used the following Mathematica commands: > > ListPlot[ > {{energies1eq[[1]], fp*energies1eq[[7]]}\[Transpose], {20 + > energies1md[[1]], fp*energies1md[[7]]}\[Transpose], > {energies2eq[[1]], fp*energies2eq[[7]]}\[Transpose], {20 + > energies2md[[1]], fp*energies2md[[7]]}\[Transpose], > {energies3eq[[1]], fp*energies3eq[[7]]}\[Transpose], {20 + > energies3md[[1]], fp*energies3md[[7]]}\[Transpose]}, > PlotRange->All,Joined->True,AxesLabel->{"t (ps)","(kcal/ > mol)"},PlotLabel->"Total Energy\nRed: Velocity-Verlet\nGreen: Leapfrog > \nBlue: Accurate Velocity-Verlet\n",PlotStyle- >> {Pink,Red,Green,Darker[Green],Cyan,Blue},ImageSize->imgSize] > > Do you know how to make my title that says, for example, "Red: ", > actually red? > > Thank you very much for your time! > > Andrew DeYoung > Carnegie Mellon University > Best, Robert