Basic Examples
Basic Examples
Retrieve the graph:
In[]:=
ResourceData["Condensed Matter Collaborations 1999 Network"]
Out[]=
Graph
Summary properties:
In[]:=
ResourceData["Condensed Matter Collaborations 1999 Network",All]["Summary"]
Out[]=
Name | Condensed Matter Collaborations 1999 Network |
VertexCount | 16726 |
EdgeCount | 47594 |
Description | 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 1999 Network"];
In[]:=
author=First[MaximalBy[VertexList[g],VertexDegree[g,#]&]]
Out[]=
4474
Visualize the network around the author with the most collaborations:
In[]:=
NeighborhoodGraphg,author,
Out[]=