Wolfram Research

Sample Data: Meuse River

Source Notebook

Locations of soil samples along the Dutch bank of the Meuse river north of Maastricht, annotated with marks including elevation (in meters), distance to river (in meters), flooding frequency, cadmium, copper, lead, and zinc (in ppm)

Details

Locations of soil samples collected in a flood plain of the river Meuse, near the village of Stein (NL) in the observation region which is the convex hull of the sample locations, annotated with marks including elevation (in meters), distance to river (in meters), flooding frequency, cadmium (in ppm), copper (in ppm), lead (in ppm), zinc (in ppm), percent of organic matter, presence of lime, and soil type (Rd10A - Calcareous weakly-developed meadow soils, light sandy clay; Rd90C/VII - Non-calcareous weakly-developed meadow soils, heavy sandy clay to light clay; Bkd26/VII - Red Brick soil, fine-sandy, silty light clay).

Examples

Basic Examples (3) 

Retrieve the data:

In[1]:=
ResourceData[\!\(\*
TagBox["\"\<Sample Data: Meuse River\>\"",
#& ,
BoxID -> "ResourceTag-Sample Data: Meuse River-Input",
AutoDelete->True]\), "Data"]
Out[1]=

Summary of the spatial point data:

In[2]:=
ResourceData[\!\(\*
TagBox["\"\<Sample Data: Meuse River\>\"",
#& ,
BoxID -> "ResourceTag-Sample Data: Meuse River-Input",
AutoDelete->True]\), "Data"]["Summary"]
Out[2]=

List annotations keys:

In[3]:=
ResourceData[\!\(\*
TagBox["\"\<Sample Data: Meuse River\>\"",
#& ,
BoxID -> "ResourceTag-Sample Data: Meuse River-Input",
AutoDelete->True]\), "AnnotationsKeys"]
Out[3]=

Visualizations (3) 

Plot the locations:

In[4]:=
ListPlot[ResourceData[\!\(\*
TagBox["\"\<Sample Data: Meuse River\>\"",
#& ,
BoxID -> "ResourceTag-Sample Data: Meuse River-Input",
AutoDelete->True]\), "Data"]]
Out[4]=

Visualize points with some annotations:

In[5]:=
PointValuePlot[ResourceData[\!\(\*
TagBox["\"\<Sample Data: Meuse River\>\"",
#& ,
BoxID -> "ResourceTag-Sample Data: Meuse River-Input",
AutoDelete->True]\), "Data"], {1 -> "Color"}, PlotLegends -> Automatic, PlotLabel -> "Cadmium in ppm"]
Out[5]=

Compare the concentrations of the four metals:

In[6]:=
elements = {"Cadmium", "Copper", "Lead", "Zinc"};
In[7]:=
With[{pts = ResourceData[\!\(\*
TagBox["\"\<Sample Data: Meuse River\>\"",
#& ,
BoxID -> "ResourceTag-Sample Data: Meuse River-Input",
AutoDelete->True]\), "Data"]["Points"]}, GraphicsGrid@
  Partition[
   Map[BubbleChart[MapThread[Append, {pts, Normal[ResourceData[\!\(\*
TagBox["\"\<Sample Data: Meuse River\>\"",
#& ,
BoxID -> "ResourceTag-Sample Data: Meuse River-Input",
AutoDelete->True]\), "Annotations"][#]]}], PlotLabel -> #] &, elements], 2]]
Out[7]=

Gosia Konwerska, "Sample Data: Meuse River" from the Wolfram Data Repository (2021) 

Data Resource History

Source Metadata

Publisher Information