2
$\begingroup$

I want use this code to graph the all of function in image-processing.

 g = Through[
      EntityList[
        EntityClass[
         "WolframLanguageSymbol", {"FunctionalityArea", 
          "ImageFunctions"}]][
       EntityProperty["WolframLanguageSymbol", "RelationshipGraph"]]]

Mathematica graphics

Then I wanna union these graph like

CommunityGraphPlot[GraphUnion @@ g]

But I get some error:

Mathematica graphics

Then I want get it Head to see

First@g // Head

Out[30]= Style

What about I get on earth?

$\endgroup$
3
$\begingroup$

In your list g, each graph is wrapped in the following Style directive:

Style[..., ImageSizeMultiplies -> {1}]

where ... is the actual Graph object you're looking for (you can see this with something like FullForm @ First @ g). This tells Mathematica to render the individual graphs at full size even when displayed in the list you get. That's indeed a bit inconvenient for working with the graphs directly, but we can see that this Style is completely irrelevant to the actual graph, so it's trivial to pull out the graph and discard the Style:

CommunityGraphPlot[GraphUnion @@ First /@ g]

enter image description here

$\endgroup$
  • $\begingroup$ Style fool me.... $\endgroup$ – yode Mar 23 '16 at 9:07

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.