Re: Rotating tick marks
- To: mathgroup at smc.vnet.net
- Subject: [mg29805] Re: [mg29756] Rotating tick marks
- From: Omega Consulting <pptssman at yahoo.com>
- Date: Wed, 11 Jul 2001 01:26:53 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
At 01:26 AM 7/7/2001, Catherine Neish wrote:
>Hi there.
>
>I have created a 2D graphic in which I specified the tick marks on the
>y-axis. These tick labels are relatively long, and "stick out" horizontally
>from the frame. Is there any way to rotate them? As it is right now, the
>figure has a large amount of unnecessary white space surrounding it due to
>these ticks.
>
>I tried to use RotateLabel, but I believe that only applies to the frame
>labels. Any help you could provide on this matter would be greatly
>appreciated.
>
>Sincerely,
>
>Catherine Neish
There's no way to create rotated Ticks, but you can create rotated text.
In[]:=
pl=Plot[x,{x,0,1}];
Fortunately, you can convert the Ticks into Text with FullGraphics.
In[]:=
fg=FullGraphics[pl];
In[]:=
Cases[fg, _Text,{3}]
Out[]=
{Text[0.2,{0.2,-0.0212367},{0.,1.}],Text[0.4,{0.4,-0.0212367},{0.,1.}],
Text[0.6,{0.6,-0.0212367},{0.,1.}],Text[0.8,{0.8,-0.0212367},{0.,1.}],
Text[1,{1.,-0.0212367},{0.,1.}],Text[0.2,{-0.013125,0.2},{1.,0.}],
Text[0.4,{-0.013125,0.4},{1.,0.}],Text[0.6,{-0.013125,0.6},{1.,0.}],
Text[0.8,{-0.013125,0.8},{1.,0.}],Text[1,{-0.013125,1.},{1.,0.}]}
You can then tweak the Text you want to rotate. Also, you usually have to
set the PlotRange.
In[]:=
rot=Show[fg/.Text[expr_,{x_,y_/;(-.1<y<0)},offset_]->
Text[expr,{x,y},offset,{0,1}],
PlotRange->{{-.2,1.1},{-.2,1.1}}];