Wolfram Data Repository
Immediate Computable Access to Curated Contributed Data
Dutch Railway Network
The Dutch railway network data
Details
The vertices represent stations in the Dutch railway system, with each vertex assigned a weight corresponding to the total number of disruptions reported at that station over the past year.
The edges represent direct railway connections between stations, with each edge assigned a weight that corresponds to the physical distance (in kilometers) between the connected stations.
This graph consists of 404 vertices (stations) and 440 edges (direct railway routes).
(440 elements)
Examples
Basic Examples (3)
Retrieve the graph:
| In[1]:= | ![Graph[ResourceData[\!\(\*
TagBox["\"\<Dutch Railway Network\>\"",
#& ,
BoxID -> "ResourceTag-Dutch Railway Network-Input",
AutoDelete->True]\)]]](https://www.wolframcloud.com/obj/resourcesystem/images/8a2/8a2bfcd4-1e80-425a-8f77-ba9a97e4ee40/338daf13efe0bca8.png){kind=small} |
| Out[1]= |  |
Find the vertex count for the network:
| In[2]:= | ![VertexCount[ResourceData[\!\(\*
TagBox["\"\<Dutch Railway Network\>\"",
#& ,
BoxID -> "ResourceTag-Dutch Railway Network-Input",
AutoDelete->True]\)]]](https://www.wolframcloud.com/obj/resourcesystem/images/8a2/8a2bfcd4-1e80-425a-8f77-ba9a97e4ee40/751833dec4422502.png){kind=small} |
| Out[2]= |  |
Find the edge count for the network:
| In[3]:= | ![EdgeCount[ResourceData[\!\(\*
TagBox["\"\<Dutch Railway Network\>\"",
#& ,
BoxID -> "ResourceTag-Dutch Railway Network-Input",
AutoDelete->True]\)]]](https://www.wolframcloud.com/obj/resourcesystem/images/8a2/8a2bfcd4-1e80-425a-8f77-ba9a97e4ee40/2ca7acd2b039a186.png){kind=small} |
| Out[3]= |  |
Visualizations (3)
Visualize the full GeoGraphPlot:
| In[4]:= | ![GeoGraphPlot[ResourceData[\!\(\*
TagBox["\"\<Dutch Railway Network\>\"",
#& ,
BoxID -> "ResourceTag-Dutch Railway Network-Input",
AutoDelete->True]\)] /. ResourceData[\!\(\*
TagBox["\"\<Dutch Railway Network\>\"",
#& ,
BoxID -> "ResourceTag-Dutch Railway Network-Input",
AutoDelete->True]\), "Position"], VertexSize -> 3, PlotTheme -> "Scientific"]](https://www.wolframcloud.com/obj/resourcesystem/images/8a2/8a2bfcd4-1e80-425a-8f77-ba9a97e4ee40/18f9f7791b01e2a5.png) |
| Out[4]= |  |
Visualize the vertices with more disruptions:
| In[5]:= | ![g = ResourceData[\!\(\*
TagBox["\"\<Dutch Railway Network\>\"",
#& ,
BoxID -> "ResourceTag-Dutch Railway Network-Input",
AutoDelete->True]\)];](https://www.wolframcloud.com/obj/resourcesystem/images/8a2/8a2bfcd4-1e80-425a-8f77-ba9a97e4ee40/366796ef87255147.png){kind=small} |
| In[6]:= | ![GeoGraphPlot[g /. ResourceData[\!\(\*
TagBox["\"\<Dutch Railway Network\>\"",
#& ,
BoxID -> "ResourceTag-Dutch Railway Network-Input",
AutoDelete->True]\), "Position"], VertexSize -> Thread[((ResourceData[\!\(\*
TagBox["\"\<Dutch Railway Network\>\"",
#& ,
BoxID -> "ResourceTag-Dutch Railway Network-Input",
AutoDelete->True]\), "VertexWeight"][[;; , 1]]) /. ResourceData[\!\(\*
TagBox["\"\<Dutch Railway Network\>\"",
#& ,
BoxID -> "ResourceTag-Dutch Railway Network-Input",
AutoDelete->True]\), "Position"]) -> ResourceData[\!\(\*
TagBox["\"\<Dutch Railway Network\>\"",
#& ,
BoxID -> "ResourceTag-Dutch Railway Network-Input",
AutoDelete->True]\), "VertexWeight"][[;; , 2]]/30], PlotTheme -> "Classic"]](https://www.wolframcloud.com/obj/resourcesystem/images/8a2/8a2bfcd4-1e80-425a-8f77-ba9a97e4ee40/19f203f6c9a83742.png) |
| Out[6]= |  |
Visualize the vertices with more connections:
| In[7]:= | ![g = ResourceData[\!\(\*
TagBox["\"\<Dutch Railway Network\>\"",
#& ,
BoxID -> "ResourceTag-Dutch Railway Network-Input",
AutoDelete->True]\)];](https://www.wolframcloud.com/obj/resourcesystem/images/8a2/8a2bfcd4-1e80-425a-8f77-ba9a97e4ee40/7d7f98803fad5680.png){kind=small} |
| In[8]:= | ![Graph[g, VertexSize -> Thread[VertexList[g] -> (VertexDegree[g]/Median[VertexDegree[g]])]]](https://www.wolframcloud.com/obj/resourcesystem/images/8a2/8a2bfcd4-1e80-425a-8f77-ba9a97e4ee40/20baaa5e03a895e3.png){kind=small} |
| Out[8]= |  |
Analysis (2)
Find a shortest path between two stations:
| In[9]:= | ![sp = FindShortestPath[Graph[ResourceData[\!\(\*
TagBox["\"\<Dutch Railway Network\>\"",
#& ,
BoxID -> "ResourceTag-Dutch Railway Network-Input",
AutoDelete->True]\)], EdgeWeight -> ResourceData[\!\(\*
TagBox["\"\<Dutch Railway Network\>\"",
#& ,
BoxID -> "ResourceTag-Dutch Railway Network-Input",
AutoDelete->True]\), "EdgeWeight"]], "'s-Hertogenbosch Oost", "'t Harde"]](https://www.wolframcloud.com/obj/resourcesystem/images/8a2/8a2bfcd4-1e80-425a-8f77-ba9a97e4ee40/3ecb57d1f39ac9ce.png) |
| Out[9]= |  |
And visualize the path:
| In[10]:= | ![GeoGraphPlot[HighlightGraph[ResourceData[\!\(\*
TagBox["\"\<Dutch Railway Network\>\"",
#& ,
BoxID -> "ResourceTag-Dutch Railway Network-Input",
AutoDelete->True]\)] /. ResourceData[\!\(\*
TagBox["\"\<Dutch Railway Network\>\"",
#& ,
BoxID -> "ResourceTag-Dutch Railway Network-Input",
AutoDelete->True]\), "Position"], VertexSize -> 2, GraphHighlight -> (sp /. ResourceData[\!\(\*
TagBox["\"\<Dutch Railway Network\>\"",
#& ,
BoxID -> "ResourceTag-Dutch Railway Network-Input",
AutoDelete->True]\), "Position"])], PlotTheme -> "Business", VertexSize -> 1]](https://www.wolframcloud.com/obj/resourcesystem/images/8a2/8a2bfcd4-1e80-425a-8f77-ba9a97e4ee40/432679343cf84c26.png) |
| Out[10]= |  |
Bibliographic Citation
Wolfram Discrete Computation, "Dutch Railway Network" from the Wolfram Data Repository (2025)