
Re: Problem with DateListPlot
Posted:
Jan 15, 2013 12:37 AM


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@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 >

