Basic Examples
Basic Examples
Retrieve the graph:
In[]:=
ResourceData["Condensed Matter Collaborations 2003 Network"]
Out[]=
Graph
Summary properties:
In[]:=
ResourceData["Condensed Matter Collaborations 2003 Network",All]["Summary"]
Out[]=
Name | Condensed Matter Collaborations 2003 Network |
VertexCount | 31163 |
EdgeCount | 120029 |
Description | Updated weighted network of collaborations between scientists posting preprints |
ByteCount |
Basic Applications
Basic Applications
Pick the author with the most collaborations:
In[]:=
g=ResourceData["Condensed Matter Collaborations 2003 Network"];
In[]:=
author=First[MaximalBy[VertexList[g],VertexDegree[g,#]&]]
Out[]=
1886
Visualize the network around the author with the most collaborations :
In[]:=
NeighborhoodGraphg,author,
Out[]=