Re: PlotLegend-> and DateListPlot[]...incompatible or broken?
- To: mathgroup at smc.vnet.net
- Subject: [mg110797] Re: PlotLegend-> and DateListPlot[]...incompatible or broken?
- From: Darren Glosemeyer <darreng at wolfram.com>
- Date: Wed, 7 Jul 2010 07:41:35 -0400 (EDT)
divisor wrote: > Hello MathGroup: > > I have this exceeding simple test case from the supplied Documentation > Center (I added PlotLegend): > > Needs["PlotLegends`"] > > data1 = {{{2006, 10, 1}, 10}, {{2006, 10, 15}, 12}, {{2006, 10, 30}, > 15}, {{2006, 11, 20}, 20}}; > data2 = {{{2006, 10, 5}, 15}, {{2006, 10, 20}, 8}, {{2006, 11, 10}, > 5}, {{2006, 11, 15}, 1}}; > > DateListPlot[{data1, data2} > , PlotLegend -> {"sine", "cosine"} > , Joined -> True] > > It burps out lots of error messages (mostly about PadRight and Table) > and does not print the legend. > > This simple example works with ListPlot[] and other plotting > functions. Any help on this is greatly appreciated. > > $Version=7.0 for Microsoft Windows (64-bit) (February 18, 2009) > > Regards.. > > Roger Williams > Franklin Laboratory > > The problem is that the PlotLegends code in version 7 is not prepared to handle coordinates that are not numbers. This is fixed in the version currently under development. As a workaround in version 7, you can convert the date coordinates to absolute times as in the following. Needs["PlotLegends`"] data1 = {{{2006, 10, 1}, 10}, {{2006, 10, 15}, 12}, {{2006, 10, 30}, 15}, {{2006, 11, 20}, 20}}; data2 = {{{2006, 10, 5}, 15}, {{2006, 10, 20}, 8}, {{2006, 11, 10}, 5}, {{2006, 11, 15}, 1}}; data1[[All, 1]] = Map[AbsoluteTime, data1[[All, 1]]]; data2[[All, 1]] = Map[AbsoluteTime, data2[[All, 1]]]; DateListPlot[{data1, data2}, PlotLegend -> {"sine", "cosine"}, Joined -> True] Darren Glosemeyer Wolfram Research