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

Improve this question
$\endgroup$
1
  • $\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
    Commented Sep 18, 2014 at 20:23

4 Answers 4

Reset to default
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

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

Improve this answer
$\endgroup$
10
$\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".

Improve this answer
$\endgroup$
4
  • $\begingroup$ I am sorry - but I don't see your your point at all - see my update. $\endgroup$
    – eldo
    Commented Sep 18, 2014 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
    Commented Sep 18, 2014 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
    Commented Sep 18, 2014 at 21:50
  • $\begingroup$ Just a small point of information, IBM is in company data, to find it you need to be aware that it is referred to as "InternationalBusinessMachinesCorporation::vq88c". This seems to be one of the challenges of 'CompanyInformation'. $\endgroup$
    – image_doctor
    Commented Mar 30, 2020 at 19:07
6
$\begingroup$

Something like this?

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

Mathematica graphics

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

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

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