Basic Examples
Basic Examples
Retrieve the graph:
In[]:=
ResourceData["Florentine Families Network"]
Out[]=
Summary properties:
In[]:=
ResourceData["Florentine Families Network",All]["Summary"]
Out[]=
Name | Padgett's Florentine Families |
VertexCount | 15 |
EdgeCount | 20 |
Description | Florentine families network in the early 15th century |
ByteCount |
Basic Applications
Basic Applications
Find the most influential family based on centrality:
In[]:=
g=ResourceData["Florentine Families Network"];
In[]:=
families=Take[Part[VertexList[g],Ordering[#[g],All,Greater]],2]&/@{BetweennessCentrality,ClosenessCentrality,DegreeCentrality,EccentricityCentrality,EigenvectorCentrality,RadialityCentrality,StatusCentrality}
Out[]=
{{Medici,Guadagni},{Medici,Ridolfi},{Medici,Guadagni},{Albizzi,Tornabuoni},{Medici,Strozzi},{Medici,Ridolfi},{Medici,Strozzi}}
In[]:=
HighlightGraph[g,{"Medici"},PlotTheme"Web",VertexStyleRed]
Out[]=