Wolfram Data Repository

Immediate Computable Access to Curated Contributed Data

The Human Lymphatic System

Source Notebook

A three-dimensional graph, where lymphatic organs and junctions are modeled as nodes and lymphatic vessels as edges

Details

This dataset represents the human lymphatic system as a graph, with lymphoid organs and junctions modeled as nodes and lymphatic vessels as edges.
The network is retrived from Savinkov, R., et al. (2020)., Tretyakova et al. (2017) and the PlasticBoy project, and intended for structural and topological analysis.

(996 vertices, 1117 edges)

Examples

Basic Examples (2) 

Retrieve the human lymphatic network:

In[1]:=
ResourceData[\!\(\* TagBox["\"\<The Human Lymphatic System\>\"", #& , BoxID -> "ResourceTag-The Human Lymphatic System-Input", AutoDelete->True]\)]
Out[1]=

Retrieve and visualize the human lymphatic network using anatomically accurate coordinates:

In[2]:=
Graph3D[ResourceData[\!\(\* TagBox["\"\<The Human Lymphatic System\>\"", #& , BoxID -> "ResourceTag-The Human Lymphatic System-Input", AutoDelete->True]\)], VertexCoordinates -> ResourceData[\!\(\* TagBox["\"\<The Human Lymphatic System\>\"", #& , BoxID -> "ResourceTag-The Human Lymphatic System-Input", AutoDelete->True]\), "Position"], EdgeShapeFunction -> "Line", VertexSize -> 300]
Out[2]=

Scope & Additional Elements (2) 

Visualize the nodes coordinates:

In[3]:=
ListPointPlot3D[{Values[ResourceData[\!\(\* TagBox["\"\<The Human Lymphatic System\>\"", #& , BoxID -> "ResourceTag-The Human Lymphatic System-Input", AutoDelete->True]\), "Position"]]}, Sequence[PlotStyle -> Directive[ PointSize[0.01]], PlotRange -> {{-1000, 1000}, {-100, 100}, {-100, 1900}}, BoxRatios -> {2, 0.4, 3}]]
Out[3]=

Visualize the subgraph of the human lymphatic network induced by lymphatic organs:

In[4]:=
Graph3D[Subgraph[ResourceData[\!\(\* TagBox["\"\<The Human Lymphatic System\>\"", #& , BoxID -> "ResourceTag-The Human Lymphatic System-Input", AutoDelete->True]\)], ResourceData[\!\(\* TagBox["\"\<The Human Lymphatic System\>\"", #& , BoxID -> "ResourceTag-The Human Lymphatic System-Input", AutoDelete->True]\), "LymphNode"]], VertexCoordinates -> ResourceData[\!\(\* TagBox["\"\<The Human Lymphatic System\>\"", #& , BoxID -> "ResourceTag-The Human Lymphatic System-Input", AutoDelete->True]\), "Position"], Sequence[ EdgeStyle -> Directive[Gray, Thickness[0.001]], VertexSize -> 1.3]]
Out[4]=

Visualizations (2) 

Retrieve and visualize the lymphatic network with a different GraphLayout, using customized vertex styles, sizes, and edge styles:

In[5]:=
Graph[ResourceData[\!\(\* TagBox["\"\<The Human Lymphatic System\>\"", #& , BoxID -> "ResourceTag-The Human Lymphatic System-Input", AutoDelete->True]\)], GraphLayout -> "GravityEmbedding", VertexStyle -> Black, VertexSize -> .2, EdgeStyle -> Gray, EdgeShapeFunction -> "Line"]
Out[5]=

Retrieve and visualize the lymphatic network using anatomically accurate coordinates, highlighting lymphatic nodes in orange:

In[6]:=
Graph3D[ResourceData[\!\(\* TagBox["\"\<The Human Lymphatic System\>\"", #& , BoxID -> "ResourceTag-The Human Lymphatic System-Input", AutoDelete->True]\)], VertexCoordinates -> ResourceData[\!\(\* TagBox["\"\<The Human Lymphatic System\>\"", #& , BoxID -> "ResourceTag-The Human Lymphatic System-Input", AutoDelete->True]\), "Position"], Sequence[ EdgeShapeFunction -> "Line", EdgeStyle -> Directive[Gray, Thickness[0.001]], VertexSize -> 250], VertexStyle -> (Thread[ResourceData[\!\(\* TagBox["\"\<The Human Lymphatic System\>\"", #& , BoxID -> "ResourceTag-The Human Lymphatic System-Input", AutoDelete->True]\), "LymphNode"] -> Orange])]
Out[6]=

Analysis (4) 

Visualize the degree centrality in the lymphatic network, reflecting the number of direct connections each node has to its neighbors:

In[7]:=
With[{data = ResourceData[\!\(\* TagBox["\"\<The Human Lymphatic System\>\"", #& , BoxID -> "ResourceTag-The Human Lymphatic System-Input", AutoDelete->True]\)]}, Graph3D[data, VertexCoordinates -> ResourceData[\!\(\* TagBox["\"\<The Human Lymphatic System\>\"", #& , BoxID -> "ResourceTag-The Human Lymphatic System-Input", AutoDelete->True]\), "Position"], Sequence[ EdgeShapeFunction -> "Line", EdgeStyle -> Directive[Gray, Thickness[0.001]], VertexSize -> 350], VertexStyle -> (Thread[ VertexList[ data] -> (ColorData[ "TemperatureMap"][#] & /@ (Rescale[<|{"ResourceType" -> "Data", "NotebookObject" -> NotebookObject[ "b918dcda-fe77-42cf-92e3-eaaa6cadcbf4", "19961687-df1a-40bf-882d-ee176a8dcf1a"], "Preflight" -> {}, "Name" -> "The Human Lymphatic System", "Description" -> "A three-dimensional graph where lymphatic organs and junctions are modeled as nodes and lymphatic vessels as edges"}|>, { Min[ DegreeCentrality[data]], Max[ DegreeCentrality[data]]}, {0, 1}] & /@ (DegreeCentrality[data] // N)))])]]
Out[7]=

Visualize the hub nodes in the lymphatic network, indicating areas of high local connectivity and potential importance for local transport or spread:

In[8]:=
Graph3D[ResourceData[\!\(\* TagBox["\"\<The Human Lymphatic System\>\"", #& , BoxID -> "ResourceTag-The Human Lymphatic System-Input", AutoDelete->True]\)], VertexCoordinates -> ResourceData[\!\(\* TagBox["\"\<The Human Lymphatic System\>\"", #& , BoxID -> "ResourceTag-The Human Lymphatic System-Input", AutoDelete->True]\), "Position"], Sequence[ EdgeShapeFunction -> "Line", EdgeStyle -> Directive[Gray, Thickness[0.001]], VertexSize -> 350], VertexStyle -> (Thread[GraphHub[ResourceData[\!\(\* TagBox["\"\<The Human Lymphatic System\>\"", #& , BoxID -> "ResourceTag-The Human Lymphatic System-Input", AutoDelete->True]\)]] -> Red])]
Out[8]=

Visualize the betweenness centrality in the lymphatic network, quantifying how often a node lies on the shortest paths between other nodes and highlighting nodes that act as bridges within the network:

In[9]:=
With[{data = ResourceData[\!\(\* TagBox["\"\<The Human Lymphatic System\>\"", #& , BoxID -> "ResourceTag-The Human Lymphatic System-Input", AutoDelete->True]\)]}, Graph3D[data, VertexCoordinates -> ResourceData[\!\(\* TagBox["\"\<The Human Lymphatic System\>\"", #& , BoxID -> "ResourceTag-The Human Lymphatic System-Input", AutoDelete->True]\), "Position"], Sequence[ EdgeShapeFunction -> "Line", EdgeStyle -> Directive[Gray, Thickness[0.001]], VertexSize -> 350], VertexStyle -> (Thread[ VertexList[ data] -> (ColorData[ "TemperatureMap"][#] & /@ (Rescale[<|{"ResourceType" -> "Data", "NotebookObject" -> NotebookObject[ "b918dcda-fe77-42cf-92e3-eaaa6cadcbf4", "19961687-df1a-40bf-882d-ee176a8dcf1a"], "Preflight" -> {}, "Name" -> "The Human Lymphatic System", "Description" -> "A three-dimensional graph where lymphatic organs and junctions are modeled as nodes and lymphatic vessels as edges"}|>, { Min[ BetweennessCentrality[data]], Max[ BetweennessCentrality[data]]}, {0, 1}] & /@ (BetweennessCentrality[data] // N)))])]]
Out[9]=

Visualize graph communities within the lymphatic network using a hierarchical community detection method:

In[10]:=
g = Graph3D[ResourceData[\!\(\* TagBox["\"\<The Human Lymphatic System\>\"", #& , BoxID -> "ResourceTag-The Human Lymphatic System-Input", AutoDelete->True]\)], VertexCoordinates -> ResourceData[\!\(\* TagBox["\"\<The Human Lymphatic System\>\"", #& , BoxID -> "ResourceTag-The Human Lymphatic System-Input", AutoDelete->True]\), "Position"], Sequence[ EdgeShapeFunction -> "Line", EdgeStyle -> Directive[Gray, Thickness[0.001]], VertexSize -> 350]];
In[11]:=
HighlightGraph[g, Map[Subgraph[g, #] &, FindGraphCommunities[ResourceData[\!\(\* TagBox["\"\<The Human Lymphatic System\>\"", #& , BoxID -> "ResourceTag-The Human Lymphatic System-Input", AutoDelete->True]\)], Method -> "Hierarchical"]]]
Out[11]=

Visualize different graph partitions of the lymphatic network:

In[12]:=
Table[HighlightGraph[g, Map[Subgraph[g, #] &, FindGraphPartition[ResourceData[\!\(\* TagBox["\"\<The Human Lymphatic System\>\"", #& , BoxID -> "ResourceTag-The Human Lymphatic System-Input", AutoDelete->True]\)], i]], PlotLabel -> i], {i, 2, 7}]
Out[12]=

Wolfram Discrete Computation, "The Human Lymphatic System" from the Wolfram Data Repository (2026)  

Data Resource History

  • Date Created:

Source Metadata

  • Title: Lymphatic System Network Graph
  • Citation:
    • Tretyakova, R., Savinkov, R., Lobov, G., & Bocharov, G. (2017). Developing computational geometry and network graph models of human lymphatic system. Computation, 6(1), 1.
    • Savinkov, R., Grebennikov, D., Puchkova, D., Chereshnev, V., Sazonov, I., & Bocharov, G. (2020). Graph theory for modeling and analysis of the human lymphatic system. Mathematics, 8(12), 2236.

Data Downloads

Publisher Information