Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Legend for DateListPlot

• To: mathgroup at smc.vnet.net
• Subject: [mg100038] Re: [mg100004] Legend for DateListPlot
• From: Darren Glosemeyer <darreng at wolfram.com>
• Date: Fri, 22 May 2009 01:45:58 -0400 (EDT)
• References: <200905210416.AAA10031@smc.vnet.net>

greg.mcavoy at gmail.com wrote:
> I would like to add a PlotLegend to a time series plot like the one
> below.
> DateListPlot[{Tooltip[FinancialData["MSFT", "2006"],
>    "Microsoft Corporation"],
>   Tooltip[FinancialData["SNE", "2006"], "Sony Corporation"],
>   Tooltip[FinancialData["AKAM", "2006"], "Akamai Technologies Inc"]},
>  Joined -> True]
>
> I tried using the PlotLegends package, but it doesn't appear to work
> with DateListPlot
> (code below)
> Needs["PlotLegends`"]
>
> DateListPlot[{FinancialData["MSFT", "2006"],
>   FinancialData["SNE", "2006"], FinancialData["AKAM", "2006"]},
>  Joined -> True,
>  PlotLegend -> { "Microsoft Corporation", "Sony Corporation",
>    "Akamai Technologies Inc"}]
>
> Is there a work around to this problem or something wrong with my
> code?  I want to export the graph to for use in a latex document so
> Tooltip is not a useful option.
>
>
>
>   

The legend generation code is getting confused by the date 
specifications, and this is something we will look into fixing in a 
future version. As a workaround for now, you can convert the dates to 
AbsoluteTimes. Then the x coordinates in the data are just numbers as 
the PlotLegends code is expecting.

Needs["PlotLegends`"]

data = {FinancialData["MSFT", "2006"], FinancialData["SNE", "2006"],
   FinancialData["AKAM", "2006"]};

Table[data[[i, All, 1]] = Map[AbsoluteTime, data[[i, All, 1]]], {i, 3}];

DateListPlot[data, Joined -> True,
 PlotLegend -> {"Microsoft Corporation", "Sony Corporation",
   "Akamai Technologies Inc"}]


Darren Glosemeyer
Wolfram Research

• References:
  • Legend for DateListPlot
    • From: greg.mcavoy@gmail.com