Wolfram Research

Marvel Universe Social Network

A Marvel Comics character collaboration network

Examples

Basic Examples

Retrieve the graph:

In[1]:=
ResourceData["Marvel Universe Social Network"]
Out[1]=

Summary properties:

In[2]:=
ResourceData["Marvel Universe Social Network", All]["Summary"]
Out[3]=

Basic Applications

Find the types of the network:

In[4]:=
g = ResourceData["Marvel Universe Social Network"];
In[5]:=
Counts[Table[AnnotationValue[{g, i}, "Type"], {i, VertexList[g]}]]
Out[5]=

Find the top three heroes with the most connections:

In[6]:=
heroes = VertexList[
   g, _?(AnnotationValue[{g, #}, "Type"] === "Hero" &)];
In[7]:=
top = AnnotationValue[{g, #}, "Name"] & /@ 
  MaximalBy[heroes, VertexDegree[g, #] &, 3]
Out[7]=

Show the comics that Spider-man is in:

In[8]:=
spidey = First[MaximalBy[heroes, VertexDegree[g, #] &]];
In[9]:=
HighlightGraph[
 NeighborhoodGraph[g, spidey, 
  EdgeStyle -> Opacity[0.2]], spidey, Sequence[
 VertexStyle -> Red, VertexSize -> 0.5, VertexLabels -> "Spider-man"]]
Out[9]=

Wolfram Research, "Marvel Universe Social Network" from the Wolfram Data Repository (2019) 

Data Resource History

Source Metadata

Publisher Information