Wolfram Research

Davis Southern Women Social Network

The network of a Southern women social club

Examples

Basic Examples

Retrieve the graph:

In[1]:=
ResourceData["Davis Southern Women Social Network"]
Out[1]=

Summary properties:

In[2]:=
ResourceData["Davis Southern Women Social Network", All]["Summary"]
Out[2]=

Basic Applications

Find the women that attended the most events:

In[3]:=
g = ResourceData["Davis Southern Women Social Network"];
In[4]:=
women = VertexList[g][[;; 18]];
In[5]:=
mostEvents = MaximalBy[women, VertexOutDegree[g, #] &]
Out[5]=

Show the events that these women attended:

In[6]:=
HighlightGraph[g, 
 Table[Append[EdgeList[g, i \[UndirectedEdge] _], i], {i, 
   mostEvents}]]
Out[6]=

Find the event that was attended by the most women:

In[7]:=
events = VertexList[g][[19 ;;]];
In[8]:=
bigEvent  = MaximalBy[events, VertexInDegree[g, #] &] // First
Out[8]=

Wolfram Research, "Davis Southern Women Social Network" from the Wolfram Data Repository (2019) 

Data Resource History

Source Metadata

Publisher Information