Les Miserables Network

Source Notebook

Network derived from character interactions in the novel "Les Miserables"

Details

The network of scene coappearances of characters in Victor Hugo's novel "Les Miserables". Edge weights denote the number of such occurrences.
(77 vertices, 254 edges)

(77 vertices, 254 edges)

Examples

Basic Examples (3) 

Retrieve the graph:

In[1]:=
Graph[ResourceData[\!\(\*
TagBox["\"\<Les Miserables Network\>\"",
#& ,
BoxID -> "ResourceTag-Les Miserables Network-Input",
AutoDelete->True]\)]]
Out[1]=

Find the vertex count for the network:

In[2]:=
VertexCount[ResourceData[\!\(\*
TagBox["\"\<Les Miserables Network\>\"",
#& ,
BoxID -> "ResourceTag-Les Miserables Network-Input",
AutoDelete->True]\)]]
Out[2]=

Find the edge count for the network:

In[3]:=
EdgeCount[ResourceData[\!\(\*
TagBox["\"\<Les Miserables Network\>\"",
#& ,
BoxID -> "ResourceTag-Les Miserables Network-Input",
AutoDelete->True]\)]]
Out[3]=

Visualizations (1) 

Visualize the vertices with more influence:

In[4]:=
With[{g = ResourceData[\!\(\*
TagBox["\"\<Les Miserables Network\>\"",
#& ,
BoxID -> "ResourceTag-Les Miserables Network-Input",
AutoDelete->True]\)]}, Graph[g, VertexSize -> Thread[VertexList[g] -> (VertexDegree[g]/Median[VertexDegree[g]])],
   VertexLabels -> Placed[Automatic, Center], VertexLabelStyle -> Thread[VertexList[
      g] -> (Directive[Italic, #] & /@ (VertexDegree[g]/
         Quantile[VertexDegree[g], 2/5]))], GraphLayout -> "RadialEmbedding"]]
Out[4]=

Analysis (1) 

Find and visualize communities in the network:

In[5]:=
CommunityGraphPlot[ResourceData[\!\(\*
TagBox["\"\<Les Miserables Network\>\"",
#& ,
BoxID -> "ResourceTag-Les Miserables Network-Input",
AutoDelete->True]\)]]
Out[5]=

Wolfram Research, "Les Miserables Network" from the Wolfram Data Repository (2024)  

Data Resource History

Source Metadata

Publisher Information