Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

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>