Anthropogenic Biome

Source Notebook

Illustrating anthropogenic biomes of the world

Details

The data is imported from NASA Socioeconomic Data and Applications Center (SEDAC) and formatted for computation.
The default content is a Dataset containing the following properties for each anthropogenic biome include:
"Biome"name of anthropogenic biome
"Class"class of biome
"Polygon"polygons over time
"Color"suggested color to visualize the geographical image
The dataset includes historical records for circa 1700, 1800, 1900, 2000 as well as 2001-2006 (shown as year 2006 in TimeSeries).
Due to the changes in methods for optimal analysis, classifications of anthropogenic biomes for circa 2001-2006 are not identical to those for circa 1700, 1800, 1900 and 2000.

(4 columns, 30 rows)

Examples

Basic Examples (3) 

Get a Dataset containing rows for each anthropogenic biome:

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

Retrieve polygons for rangeland biomes for circa 1700:

In[2]:=
polygon = ResourceData[\!\(\*
TagBox["\"\<Anthropogenic Biome\>\"",
#& ,
BoxID -> "ResourceTag-Anthropogenic Biome-Input",
AutoDelete->True]\)][Select[MatchQ[#Class, "Rangelands"] &]][
  All, {#Biome, #Color, #Polygon[DateObject[{1700}, "Year"]]} &]
Out[2]=

Use GeoGraphics and visualize them:

In[3]:=
GeoGraphics[polygon[[All, {2, 3}]], GeoBackground -> {"Coastlines", "VectorMarketing"}]
Out[3]=

Visualizations (2) 

Retrieve polygons for seminatural biomes:

In[4]:=
snpolygon = ResourceData[\!\(\*
TagBox["\"\<Anthropogenic Biome\>\"",
#& ,
BoxID -> "ResourceTag-Anthropogenic Biome-Input",
AutoDelete->True]\)][Select[MatchQ[#Class, "Seminatural"] &]][
  All, {#Biome, #Color, #Polygon} &]
Out[4]=

Visualize the biomes over time:

In[5]:=
mapFun[year_] := GeoGraphics[snpolygon[All, {#[[2]], #[[3]][DateObject[{year}]]} &], GeoRange -> "World", GeoBackground -> Dated["CountryBorders", year]]
In[6]:=
GraphicsGrid[
 Partition[
  Column[{DateObject[{#}], mapFun[#]}] & /@ {1700, 1800, 1900, 2000}, 2]]
Out[6]=

Wolfram Research, "Anthropogenic Biome" from the Wolfram Data Repository (2024)  

Data Resource History

Source Metadata

Publisher Information