Wolfram Research

Online Social Network

Social network of an online community

Examples

Basic Examples

Retrieve the graph:

In[1]:=
ResourceData["Online Social Network"]
Out[1]=

Summary properties:

In[2]:=
ResourceData["Online Social Network", All]["Summary"]
Out[2]=

Basic Applications

Find the person with the most sent and most received messages:

In[3]:=
g = ResourceData["Online Social Network"];
In[4]:=
{sender, receiver} = {First[
   MaximalBy[VertexList[g], VertexOutDegree[g, #] &]], 
  First[MaximalBy[VertexList[g], VertexInDegree[g, #] &]]}
Out[4]=

Visualize the sender's connections within the receiver's neighborhood:

In[5]:=
HighlightGraph[
 NeighborhoodGraph[g, receiver, 
  EdgeStyle -> Opacity[0.3]],  {Style[NeighborhoodGraph[g, sender], 
   Yellow], Style[receiver, Red]}, 
 VertexSize -> {receiver -> 2, sender -> 2}]
Out[5]=

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

Data Resource History

Source Metadata

Publisher Information