Online Social Network

Social network of an online community

The online community represents a prototypical example of a complex evolving social network in which connections between users are established over time by online messages. An edge annotation EdgeWeight describes the number of messages sent from a user.

(1899 vertices, 20296 edges)

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

Data Downloads

Publisher Information