Wolfram Data Repository

Immediate Computable Access to Curated Contributed Data

Proportion Habitat Protected Index

Source Notebook

Get the global and local proportion habitat protected index (GPHPI and LPHPI) by jurisdiction

Details

The indexes monitor the extent of coastal and marine habitats within protected areas and other effective area-based conservation measures.
These indexes are helpful to monitor aspects of the Sustainable Development Goal 14 and the emerging post-2020 global biodiversity framework, to understand the current status of international cooperation on coastal and marine habitats conservation.
Available properties include:
Jurisdictioncountries and other regions
Habitatcoastal and marine habitats
HabitatAreaInJurisdictiontotal number of 1 km2 (pixels) found of the habitat within the jurisdiction
HabitatAreaInJurisdictionProtectedtotal number of 1 km2 (pixels )found of the habitat occurring within a protected area within the jurisdiction
HabitatAreaInWorldtotal number of 1 km2 (pixels ) of the habitat occurring worldwide
HabitatAreaByJurisdictionInWorldglobal fraction of habitat each country has
LocalProportionHabitatProtectedIndexpinpoints the jurisdictions with the greatest opportunity to expand their protected or conserved areas
GlobalProportionHabitatProtectedIndexshowcases which jurisdictions contribute the most area to the protection of these habitats globally

Examples

Basic Examples (3) 

In[1]:=
PHPI = ResourceData[\!\(\* TagBox["\"\<Proportion Habitat Protected Index\>\"", #& , BoxID -> "ResourceTag-Proportion Habitat Protected Index-Input", AutoDelete->True]\)]
Out[118]=

Get for each habitat a plot of the total area of the habitat by jurisdiction:

In[119]:=
Histogram[#, Frame -> True, FrameLabel -> {"area by jurisdiction (km^2)", "frequency"}] & /@ Normal@PHPI[GroupBy[#Habitat &]][All, All, "HabitatAreaInJurisdiction"]
Out[119]=

Get for each habitat the total area of the habitat in the world:

In[120]:=
Union[#] & /@ Normal@PHPI[GroupBy[#Habitat &]][All, All, "HabitatAreaInWorld"]
Out[120]=

For each habitat, get the top 10 of the countries with highest percent of habitat area in the world:

In[121]:=
d = SortBy[#, Last][[-10 ;;]] & /@ Normal[PHPI[Select[! MissingQ[#Jurisdiction] &]][ GroupBy[#Habitat &]][All, GroupBy[#Jurisdiction &]][All, All, All, "HabitatAreaByJurisdictionInWorld"]];
In[122]:=
d // Keys
Out[122]=
In[123]:=
MapThread[ BarChart[Flatten[#1 // Values], ChartLabels -> Placed[Keys[#1], Right], PlotLabel -> #2, BarOrigin -> Right, ImageSize -> Medium, Frame -> True, FrameLabel -> "HabitatAreaByJurisdictionInWorld"] &, {Values[d], Keys[d]}]
Out[123]=

Visualizations (1) 

For each habitat, get the values of all the properties for each jurisdiction:

In[124]:=
habitats = Union@Normal@Dataset[ResourceData[\!\(\* TagBox["\"\<Proportion Habitat Protected Index\>\"", #& , BoxID -> "ResourceTag-Proportion Habitat Protected Index-Input", AutoDelete->True]\)]][All, #Habitat &]; indexes = Normal@Keys@Dataset[ResourceData[\!\(\* TagBox["\"\<Proportion Habitat Protected Index\>\"", #& , BoxID -> "ResourceTag-Proportion Habitat Protected Index-Input", AutoDelete->True]\)]][1][[3 ;;]];
In[125]:=
datos = Association@Table[ i -> {Association@DeleteCases[#, Missing[__] -> __] &@ Normal@Dataset[ResourceData[\!\(\* TagBox["\"\<Proportion Habitat Protected Index\>\"", #& , BoxID -> "ResourceTag-Proportion Habitat Protected Index-Input", AutoDelete->True]\)]][Select[#Habitat == i &]][ All, #"Jurisdiction" -> AssociationThread[indexes -> { #"HabitatAreaInJurisdiction", #"HabitatAreaInJurisdictionProtected", #"HabitatAreaInWorld", #"HabitatAreaByJurisdictionInWorld", #"LocalProportionHabitatProtectedIndex", #"GlobalProportionHabitatProtectedIndex"}] &]}, {i, habitats}];
In[126]:=
Manipulate[ GeoRegionValuePlot[ #[index] & /@ datos[habitat][[1]], ColorFunction -> ColorData[{"DeepSeaColors", "Reverse"}]], {habitat, habitats}, {{index, "LocalProportionHabitatProtectedIndex"}, indexes}]
Out[126]=

Lina Marcela, "Proportion Habitat Protected Index" from the Wolfram Data Repository (2023)  

License Information

Open Access article

Data Resource History

  • Date Created:

Source Metadata

  • Title: Habitat Protection Indexes - new monitoring measures for the conservation of coastal and marine habitats
  • Creator: Kumagai, J.A., Favoretto, F., Pruckner, S. et al.
  • Publisher: Scientific data
  • Date: 2022
  • Language: English
  • Citation:
    • Kumagai, J.A., Favoretto, F., Pruckner, S. et al. Habitat Protection Indexes - new monitoring measures for the conservation of coastal and marine habitats. Sci Data 9, 203 (2022). https://doi.org/10.1038/s41597-022-01296-4

Data Downloads

Publisher Information

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