Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2007

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

Search the Archive

Re: Help with DateListPlot

  • To: mathgroup at smc.vnet.net
  • Subject: [mg82221] Re: Help with DateListPlot
  • From: Peter Pein <petsie at dordos.net>
  • Date: Mon, 15 Oct 2007 01:26:09 -0400 (EDT)
  • References: <fesq3k$p4n$1@smc.vnet.net>

KTugbawa at gmail.com schrieb:
> How do you use the DateList Plot function when you have a 3-vector
> database. The first column is the date, the second column contains the
> names, and the last column contains the returns. I know that you have
> to use a loop.

I know I have not to use a loop ;-)

The data looks like this:
> 
> Date                          Item                       return
> 1/2/01                       TBill                         0.67
> 1/3/01                        SP                          0.78
> 1/4/01                       inv                            0.5
> 1/5/01                       inve                          0.6
> ..
> ..
> ..
> ..
> 1/12/01                  Forc                            1.2
> 1/2/02                     TBill                           0.4
>  1/3/02                    SP                             0.2
> 1/4/02                     inv                              0.6
> 1/5/02                     inve                            0.9
> ..
> ..
> ..
> ..
> 1/12/02                 Forc                             1.6
> 
> This patterns continues until 1/6/2007
> 
> I need to use DataListPlot to plot the returns  of each item.
> 
> 

Let`s see how the file is read in:

In[1]:=
tbl = Import["thefile.txt", "Table"];

have a look at the first line

FullForm[tbl[[1]]]
Out[2]//FullForm=
{"1/2/01", "TBill", 0.67}

We have to convert the string "mm/dd/yy" to a list {y,m,d}. Additionally 
I add 2000 to the year:

In[3]:=
data = Apply[{ToExpression[StringJoin["{",
    StringReplace[#1, "/" -> ","],
   "}"]][[{3, 1, 2}]] + {2000, 0, 0}, #3} & , tbl, {1}]
Out[3]=
{{{2001, 1, 2}, 0.67}, {{2001, 1, 3}, 0.78}, {{2001, 1, 4}, 0.5}, 
{{2001, 1, 5}, 0.6}}

I do not have access to Mathematica 6 but according to 
http://reference.wolfram.com/mathematica/ref/DateListPlot.html ,

DateListPlot[data]

should work.


Regards,
   Peter


  • Prev by Date: Re: format mixed integers & floats with text styling (see )
  • Next by Date: Re: format mixed integers & floats with text styling (see )
  • Previous by thread: Re: Help with DateListPlot
  • Next by thread: Re: Re: Help with DateListPlot