Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Rotate Dateticks in DateListPlot

• To: mathgroup at smc.vnet.net
• Subject: [mg131542] Re: Rotate Dateticks in DateListPlot
• From: Gregory Lypny <gregory.lypny at videotron.ca>
• Date: Fri, 23 Aug 2013 05:30:33 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• Delivered-to: l-mathgroup@wolfram.com
• Delivered-to: mathgroup-outx@smc.vnet.net
• Delivered-to: mathgroup-newsendx@smc.vnet.net
• References: <20130822045203.56DDD6A19@smc.vnet.net>

Thanks Bob,

Brilliant as usual!

	Gregory


On Thu, Aug 22, 2013, at 9:41 AM, Bob Hanlon <hanlonr357 at gmail.com> wrote:

> data = {{{2006, 10, 1}, 10}, {{2006, 10, 15}, 12},
>    {{2006, 10, 30}, 15}, {{2006, 11, 20}, 20}};
> 
> 
> dlp = DateListPlot[data,
>   Epilog -> (Text[
>        ToString[{#[[1, 3]], #[[2]]}],
>        #, 5/4*Sign[DateDifference[
>            {2006, 11, 1}, #[[1]]]*
>           {1, 1}]] & /@ data)]
> 
> Rotate all strings:
> 
> Show[dlp /. str_String :>
>    Rotate[str, 90 Degree]]
> 
> Rotate just Frame date labels:
> 
> Show[dlp /. {v_, str_String} :>
>    {v, Rotate[str, 90 Degree]}]
> 
> 
> Bob Hanlon

• References:
  • Re: Rotate Dateticks in DateListPlot
    • From: Gregory Lypny <gregory.lypny@videotron.ca>