Re: Re: Re: Colored Tick Labels?
- To: mathgroup at smc.vnet.net
- Subject: [mg67122] Re: [mg67050] Re: [mg66928] Re: Colored Tick Labels?
- From: Bruce Miller <brucem at wolfram.com>
- Date: Fri, 9 Jun 2006 01:10:32 -0400 (EDT)
- References: <e5reku$h2e$1@smc.vnet.net> <200606040510.BAA13037@smc.vnet.net> <200606061027.GAA20612@smc.vnet.net> <200606080853.EAA12248@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Of course, that workaround doesn't help much if your ticks labels were
less compatible with base 10, eg,
Ticks->{{Pi/7, 2 Pi/7, 3Pi/7, ...
On Jun 8, 2006, at 3:53 AM, Bruce Miller wrote:
> 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}}
>>
- References:
- Re: Colored Tick Labels?
- From: bghiggins@ucdavis.edu
- Re: Re: Colored Tick Labels?
- From: Gianluca Gorni <gorni@dimi.uniud.it>
- Re: Re: Re: Colored Tick Labels?
- From: Bruce Miller <brucem@wolfram.com>
- Re: Colored Tick Labels?