Re: Problem with DateListPlot

*To*: mathgroup at smc.vnet.net*Subject*: [mg129459] Re: Problem with DateListPlot*From*: "Gower, Luke" <lgower at kpmg.com.au>*Date*: Tue, 15 Jan 2013 00:37:20 -0500 (EST)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*Delivered-to*: l-mathgroup@wolfram.com*Delivered-to*: mathgroup-newout@smc.vnet.net*Delivered-to*: mathgroup-newsend@smc.vnet.net*References*: <20130115042924.D66E468E0@smc.vnet.net> <CAEtRDSfviPM6dLCK=F1Xfv9GE8yo8Uyws00fYU2BsoyXjpWJyA@mail.gmail.com>

You are a champion, Bob. Thanks indeed. Luke. -----Original Message----- From: Bob Hanlon [mailto:hanlonr357 at gmail.com] Sent: Tuesday, 15 January 2013 4:28 PM To: Gower, Luke Cc: mathgroup at smc.vnet.net Subject: [mg129459] Re: [mg129447] Problem with DateListPlot Use Sequence DateListPlot[{x, Sequence @@ z}, Joined -> Join[{False}, Table[True, {Length[z]}]], PlotRange -> {0, 12}] Bob Hanlon On Mon, Jan 14, 2013 at 11:29 PM, Luke Gower <lgower at kpmg.com.au> wrote: > Hi folks. This should be really easy, but it is eluding me. Consider the following points and graphic. > > = x=List[DateString[DatePlus[#],{"Day","MonthNameShort","YearShort"}],#] > &/@Range[10]; y=ReplacePart[Take[x,{2,-1,2}],{_,-1}->10]; > DateListPlot[{x,y},PlotRange->{0,12}] > > The plot consists of one diagonal and one horizontal set of points. My problem is that, in the graphic, I would like to join pairs: y[[1]] and y[[2]]; y[[3]] and y[[4]]. An obvious (if ugly) hack is as follows: > > z=Partition[y,2]; > DateListPlot[{x, z[[1]], z[[2]]}, Joined -> Join[{False}, Table[True, > {Length[z]}]], PlotRange -> {0, 12}] > > Unfortunately, in the real version of this problem, the length of y is variable, so I need a solution in terms of y, which does not involve manually entering parts of z. > > And that is where I get stuck. > > Any suggestions? > Many thanks indeed. > Luke >

**References**:**Problem with DateListPlot***From:*Luke Gower <lgower@kpmg.com.au>