Wolfram Research

Florentine Families Network

Florentine families network in the early 15th century

Examples

Basic Examples

Retrieve the graph:

In[1]:=
ResourceData["Florentine Families Network"]
Out[1]=

Summary properties:

In[2]:=
ResourceData["Florentine Families Network", All]["Summary"]
Out[2]=

Basic Applications

Find the most influential family based on centrality:

In[3]:=
g = ResourceData["Florentine Families Network"];
In[4]:=
families = 
 Take[Part[VertexList[g], Ordering[#[g], All, Greater]], 
    2] & /@ {BetweennessCentrality, ClosenessCentrality, 
   DegreeCentrality, EccentricityCentrality, EigenvectorCentrality, 
   RadialityCentrality, StatusCentrality}
Out[4]=
In[5]:=
HighlightGraph[g, {"Medici"}, PlotTheme -> "Web", VertexStyle -> Red]
Out[5]=

Wolfram Research, "Florentine Families Network" from the Wolfram Data Repository (2019) 

Data Resource History

Source Metadata

Publisher Information