Mathematica Stack Exchange is a question and answer site for users of Mathematica. Join them; it only takes a minute:

Sign up
Here's how it works:
  1. Anybody can ask a question
  2. Anybody can answer
  3. The best answers are voted up and rise to the top

I'd like to make a plot of a company's revenue and income over time. I can do this via Wolfram Alpha pretty easily, just by searching "Ford revenue and earnings from 2000 to 2012". As such I can, if necessary, tease out the data from a corresponding WolframAlpha call.

Rather than resorting to Wolfram Alpha, I assumed FinancialData would be more appropriate. Surprisingly, from an initial inspection of the docs, it does not seems like there is an easy way to get these two particular properties.

My question is - can I reliably calculate revenue and/or net income (i.e. profit) from the supported properties of FinancialData? Perhaps based off of EarningsPerShare?

share|improve this question

Well, I'm not sure if you could get historical financial highlights from any place rather than SEC itself...

If you want to find historical annual reports per company, please use the following link (remember to substitute "microsoft" with your desired company name):

But if you want to download the last available key statistics, there are many webpages where you can download it. For instance, try to import key statistics directly from Yahoo! Finance using:

Import["","Data"][[2, 1]][[1, 7]]//TableForm


I've done a little research. Please try to use this code:

FordRev=WolframAlpha[#,{{"IQuarterlyValuesTable:Revenue:FinancialData", 1},"ComputableData"}][[5,2]]&/@(StringJoin["ford revenue ",ToString[#]]&/@(2002+Range[10]))

Now see the revenue plot:


enter image description here

You can also use:

BarChart[FordRev, ChartLabels -> {2002 + Range[10]}]

enter image description here

For the historical net income use:

FordNet = WolframAlpha[#, {{"IQuarterlyValuesTable:NetIncome:FinancialData",1},"ComputableData"}][[5,2]] & /@(StringJoin["ford net income ",ToString[#]]&/@(2002+Range[10]))

Now you can see the barchart:

BarChart[FordNet, ChartLabels -> {2002 + Range[10]}]

enter image description here


You can also "generalize" the code. Try to use:

Rev[x_]:=WolframAlpha[#,{{"IQuarterlyValuesTable:Revenue:FinancialData",1},"ComputableData"}][[5,2]]&/@(StringJoin[ToString[x], " revenue ",ToString[#]]&/@(2002+Range[10]))

Now you compare multiple companies:


The chart:

enter image description here

share|improve this answer
P.S.: I'm still trying to include the net income historical data... – Rod Apr 20 '13 at 15:36
Thanks for the answer, +1. Like I said in the Q, I already know how to do this through WolframAlpha, I am trying to find a solution using FinancialData. – latkin Apr 22 '13 at 22:33
As far as I know, it's not available such information through FinancialData... – Rod Apr 22 '13 at 23:27

Your Answer


By posting your answer, you agree to the privacy policy and terms of service.

Not the answer you're looking for? Browse other questions tagged or ask your own question.