Wolfram Data Repository

Immediate Computable Access to Curated Contributed Data

Living Planet Index Data

Source Notebook

Get the TimeSeries of Living Planet Index (LPI) data from the raw data published by OurWorldInData repository

Details

The LPI is a measure of the state of global biological diversity based on population trends of vertebrate species from around the world. The LPI measures the average change in abundance in 31,821 populations across 5,230 species relative to the year 1970 (i.e. 1970 = 100%).
The variable time span is from 1970 to 2018.
Available properties include:
“Region"mixture of different locations to wich the LPI was estimated. It could be a continent, environment, or ocean.
“LivingPlanetIndexAverage"the LPI average
“LivingPlanetIndexRange"the LPI interval lower and upper

(3 columns, 7 rows)

Examples

Basic Examples (4) 

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

Find the latest update date:

In[2]:=
ResourceData[\!\(\* TagBox["\"\<Living Planet Index Data\>\"", #& , BoxID -> "ResourceTag-Living Planet Index Data-Input", AutoDelete->True]\)][Max, #LivingPlanetIndexAverage["LastDate"] &]
Out[2]=
In[3]:=
ResourceData[\!\(\* TagBox["\"\<Living Planet Index Data\>\"", #& , BoxID -> "ResourceTag-Living Planet Index Data-Input", AutoDelete->True]\)][Max, #LivingPlanetIndexRange["LastDate"] &]
Out[3]=

Retrieve the data for the three regions with the highest LivingPlanetIndexAverage in the last update:

In[4]:=
ResourceData[\!\(\* TagBox["\"\<Living Planet Index Data\>\"", #& , BoxID -> "ResourceTag-Living Planet Index Data-Input", AutoDelete->True]\)][ TakeLargestBy[#LivingPlanetIndexAverage["LastValue"] &, 3], {"Region", "LivingPlanetIndexAverage"}]
Out[4]=

Get the time series for each property for a given region:

In[5]:=
ResourceData[\!\(\* TagBox["\"\<Living Planet Index Data\>\"", #& , BoxID -> "ResourceTag-Living Planet Index Data-Input", AutoDelete->True]\)][Select[#Region == "Africa" &]]
Out[5]=

Get the most recent values of all properties for a given region:

In[6]:=
Normal@ResourceData[\!\(\* TagBox["\"\<Living Planet Index Data\>\"", #& , BoxID -> "ResourceTag-Living Planet Index Data-Input", AutoDelete->True]\)][ Select[#Region == "Africa" &], {#Region, #LivingPlanetIndexAverage[ "LastValue"], #LivingPlanetIndexRange["LastValue"]} &]
Out[6]=

Get data corresponding to a given date interval for a given region:

In[7]:=
Normal@ResourceData[\!\(\* TagBox["\"\<Living Planet Index Data\>\"", #& , BoxID -> "ResourceTag-Living Planet Index Data-Input", AutoDelete->True]\)][ Select[#Region == "Africa" &], {#Region, TimeSeriesWindow[#LivingPlanetIndexAverage, {"2000", "2017"}]} &]
Out[7]=

Plot the time series for a given region and property:

In[8]:=
DateListPlot[%[[1, 2]]]
Out[8]=

Get and plot the time series for a property of all regions:

In[9]:=
DateListLogPlot[ Callout[Tooltip[#2, #1], #1] & @@@ Normal@ResourceData[\!\(\* TagBox["\"\<Living Planet Index Data\>\"", #& , BoxID -> "ResourceTag-Living Planet Index Data-Input", AutoDelete->True]\)][All, {#Region, #LivingPlanetIndexAverage} &], FrameLabel -> {"Year", "LPI"}]
Out[9]=

Visualizations (1) 

Plot the time series for a given region and all the properties at once:

In[10]:=
Manipulate[ DateListPlot[{ TimeSeries[Transpose[{#[[3]], #[[2, All, 2]]}]], TimeSeries[Transpose[{#[[3]], #[[1]]}]], TimeSeries[Transpose[{#[[3]], #[[2, All, 1]]}]] } &@ Normal[#][[1]] &@ ResourceData[\!\(\* TagBox["\"\<Living Planet Index Data\>\"", #& , BoxID -> "ResourceTag-Living Planet Index Data-Input", AutoDelete->True]\)] [Select[#Region == region &], {#LivingPlanetIndexAverage["Values"], Flatten[#LivingPlanetIndexRange["Values"] /. Interval -> List, 1], #LivingPlanetIndexRange["Dates"]} &], IntervalMarkers -> "Bands", Mesh -> Full, PlotStyle -> {Gray, Red, Gray}, PlotLabels -> {"Upper estimate", "Central estimate", "Lower estimate"}, FrameLabel -> {"Year", "LPI"}, PlotLabel -> "Living Planet Index " <> region, ImageSize -> Large], {{region, "World"}, Normal@ResourceData[\!\(\* TagBox["\"\<Living Planet Index Data\>\"", #& , BoxID -> "ResourceTag-Living Planet Index Data-Input", AutoDelete->True]\)][All, "Region"]}]
Out[10]=

Lina Marcela, "Living Planet Index Data" from the Wolfram Data Repository (2023)  

License Information

All visualizations, data, and code produced by Our World in Data are completely open access under the Creative Commons BY license. You have the permission to use, distribute, and reproduce these in any medium, provided the source and authors are credited.

Data Resource History

  • Date Created:

Source Metadata

  • Title: Living Planet Index
  • Creator: Our World in Data
  • Publisher: World Wildlife Fund (WWF) and Zoological Society of London (2022). Living Planet Report 2022 – Building a nature-positive society. Almond, R.E.A., Grooten, M., Juffe Bignoli, D. & Petersen, T. (Eds). WWF, Gland, Switzerland.
  • Date: 13 October 2022
  • Language: English
  • Citation: World Wildlife Fund (WWF) and Zoological Society of London. Processed by Our World in Data.

Publisher Information

  • Prepared for the Wolfram Data Repository By: Lina Marcela Ruiz Galvis and Keiko Hirayama
  • Publisher of Record: Lina Marcela