Re: Re: Re: Colored Tick Labels?

*To*: mathgroup at smc.vnet.net*Subject*: [mg67050] Re: [mg66978] Re: [mg66928] Re: Colored Tick Labels?*From*: Bruce Miller <brucem at wolfram.com>*Date*: Thu, 8 Jun 2006 04:53:20 -0400 (EDT)*References*: <e5reku$h2e$1@smc.vnet.net> <200606040510.BAA13037@smc.vnet.net> <200606061027.GAA20612@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

A workaround for this is to Rationalize the numbers you are borrowing. In[2]:= plt = Plot[Sin[t], {t, 0, 2},PlotLabel -> 1, Ticks->{{1/2,1,3/2,2},Automatic}]; In[3]:= AbsoluteOptions[plt, PlotLabel] Out[3]= {PlotLabel -> 1} In[4]:= ao = AbsoluteOptions[plt,Ticks][[1,2,1]] Out[4]= {{0.5, 0.5, {0.00625, 0.}, {GrayLevel[0.], AbsoluteThickness[0.25]}}, {1., 1., {0.00625, 0.}, {GrayLevel[0.], AbsoluteThickness[0.25]}}, {1.5, 1.5, {0.00625, 0.}, {GrayLevel[0.], AbsoluteThickness[0.25]}}, {2., 2., {0.00625, 0.}, {GrayLevel[0.], AbsoluteThickness[0.25]}}} In[5]:= Plot[Cos[x],{x,0,2}, Ticks->{Rationalize[ao],Automatic}]; Bruce Miller Technical Support Wolfram Research, Inc. support at wolfram.com http://support.wolfram.com/ On Jun 6, 2006, at 5:27 AM, Gianluca Gorni wrote: > Unfortunately it seems that AbsoluteOptions[] applies N[] > to all its output. Tick labels that were not floating-point > numbers will get corrupted. > > For example try with > > AbsoluteOptions[Plot[Sin[x], {x, 0, Pi}, Ticks -> {{E}, {1/2}}], Ticks] > > Any exact numeral in PlotLabel will be affected too. > > I sent a report to wri about this in 2003. > > Gianluca Gorni > > On 4 giu 2006, at 07:10, bghiggins at ucdavis.edu wrote: > >> Not sure I have a complete answer, but here are some possibilities to >> examine: >> >> Suppose you have the following plot >> >> plt = Plot[Sin[x], {x, -1, 1}] >> >> You can extract the Ticks from this plot using AbsoluteOptions and >> then >> modify them. In the following example I make the x tick values Blue >> and >> the y tick values Red >> >> myTicks = {(Ticks /. AbsoluteOptions[plt, >> Ticks])[[1]] /. {x_Real, y_Real, z__} -> {x, StyleForm[y, >> FontColor -> Blue], z}, (Ticks /. AbsoluteOptions[plt, >> Ticks])[[ >> 2]] /. {x_Real, y_Real, z__} -> {x, >> StyleForm[y, FontColor -> Red], z}} >

**Follow-Ups**:**Re: Re: Re: Colored Tick Labels?***From:*Bruce Miller <brucem@wolfram.com>

**References**:**Re: Colored Tick Labels?***From:*bghiggins@ucdavis.edu

**Re: Re: Colored Tick Labels?***From:*Gianluca Gorni <gorni@dimi.uniud.it>