17
$\begingroup$

I can see that companies have a logo in Wolfram|Alpha when I type in their name but I can't get them in Mathematica.

For example searching for Apple, Inc. in W|A one of the outputs is the Apple logo. In Mathematica I looked to see what properties are available.

CompanyData["Apple, Inc.", "Properties"]

This gives "company logo" as a property with tooltip EntityProperty["Company","Image"]. I tried some ways to get the logo and they all fail.

CompanyData["Apple, Inc.", "Company Logo"]
CompanyData["Apple, Inc.", "Image"]
CompanyData[FinancialData["AAPL","Company"],"Company logo"]
CompanyData[FinancialData["AAPL","Company"],"Image"]

Does anyone know how to get the company logo?

Thanks,

Edmund

$\endgroup$
  • $\begingroup$ Enter any W|A query in Mma as WolframAlpha["your query"], then in the pod with the desired information: click on the Plus sign in the upper right corner of the pod and select "Subpod content". A refined query to get that information will be pasted into your Mma notebook. $\endgroup$ – Bob Hanlon Sep 18 '14 at 20:23
21
$\begingroup$
apple = Interpreter["Company"]["Apple"]["Image"]

enter image description here

Interpreter["Company"]["GE"]["Image"]

enter image description here

Also works for the continent and respects colours:

Interpreter["Company"]["Siemens"]["Image"]

enter image description here

Update

Interpreter["Company"]["Wolfram"]["Image"]

enter image description here

For Apple addicts:

ImageFilter[Max[Flatten[#]] - Min[Flatten[#]] &,
 ImagePad[Last@MapThread[ImageMultiply,
    {ColorSeparate[apple],
     {White, White, White, Darker@Green}}], 109, "Periodic"], 1]

enter image description here

$\endgroup$
  • $\begingroup$ (+1) Very nice. :) $\endgroup$ – Michael E2 Sep 18 '14 at 19:22
  • $\begingroup$ I like the structure of this answer most. Many thanks. $\endgroup$ – Edmund Sep 18 '14 at 19:49
  • $\begingroup$ @Edmund - You are welcome. I learned myself something new :) $\endgroup$ – eldo Sep 18 '14 at 19:57
  • $\begingroup$ I upvoted your clock question. Why did you delete it? ("you're late" was a clock-pun) $\endgroup$ – Dr. belisarius Sep 26 '14 at 20:20
  • $\begingroup$ @belisarius Not because of your nice comment, but because it was immediately downvoted. Bueno, creo que voy reactivarlo :) $\endgroup$ – eldo Sep 26 '14 at 20:25
16
$\begingroup$

Another variation:

SemanticInterpretation["AAPL Logo"]

Mathematica graphics

This method is nice because you can do at once:

logos = SemanticInterpretation["AAPL, TSLA, GE and MSFT Logos"];
Column[logos, Frame -> All, FrameStyle -> Directive[Red, Thick]]

Mathematica graphics

$\endgroup$
9
$\begingroup$

The problem seems to be that many companies, even some of the biggest, well known firms are not known in Entity["Company","name"] form to Mathematica. This holds for companies like Apple, Microsoft, General Electrics etc. I believe that CompanyData needs entities to be of this form.

If you want to discover a company's entity representation using W|A discovery you end up with Entity["Financial", "tickersymbol"]-like forms instead for those firms.

The set of things known of "Company" entities differs from those known of "Financial" entities:

EntityProperties["Financial"] // CanonicalName

{"CIK", "Close", "Exchange", "HeadquartersCoordinates", "High", "Image", "Last", "LatestTrade", "Low", "Name", "Open", "OriginalSharePrice", "Symbol", "Volatility20Day", "Volatility250Day", "Volatility50Day", "Volume", "ZacksAnalystHold", "ZacksAnalystMean", "ZacksAnalystModerateBuy", "ZacksAnalystModerateSell", "ZacksAnalystStrongBuy", "ZacksAnalystStrongSell", "ZacksMemberCount"}

EntityProperties["Company"] // CanonicalName

{"City", "Employees", "FoundingDate", "Image", "Industry", "Latitude", "Longitude", "Name", "Position", "Revenue", "RevenuePerEmployee", "TotalFunding"}

The list is clearly different, though there is some overlap. "Image" occurs in both lists and can be used to get Apple's logo:

Entity["Financial", "NASDAQ:AAPL"]["Image"]

enter image description here

and the logo of Wolfram Research, Inc, in CompanyData style:

CompanyData[Entity["Company", "WolframResearch::s9r9v"], "Image"]

Mathematica graphics

or through Entity properties:

Entity["Company", "WolframResearch::s9r9v"]["Image"]

Mathematica graphics


You can check with

Select[CompanyData[], StringMatchQ[#[[2]], ___ ~~ "appl" ~~ ___, IgnoreCase -> True] &]

Mathematica graphics

that CompanyData is really missing some big companies. Try replacing "appl" with "micros", or "IBM".

$\endgroup$
  • $\begingroup$ I am sorry - but I don't see your your point at all - see my update. $\endgroup$ – eldo Sep 18 '14 at 21:29
  • $\begingroup$ @eldo The point is that the OP is trying to get the logo through CompanyData (which, if you follow the documentation, seems to be possible), and I'm explaining why that doesn't succeed in the specific example he has chosen. I show that it works for other firms. Your update totally misses the point indeed. $\endgroup$ – Sjoerd C. de Vries Sep 18 '14 at 21:34
  • $\begingroup$ I'm too tired now. Before I go to bed, please let me, in between, upvote your answer. Hopefully, I will comprehend your point tomorrow :) $\endgroup$ – eldo Sep 18 '14 at 21:50
6
$\begingroup$

Something like this?

WolframAlpha["apple logo", "PodImages", 
 IncludePods -> "Image:FinancialData"]

Mathematica graphics

$\endgroup$
  • $\begingroup$ A variation of this: WolframAlpha["Apple", {{"Image:FinancialData", 1}, "Content"}] $\endgroup$ – Bob Hanlon Sep 18 '14 at 20:04

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

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