species | R Documentation |
Aquatic species and taxonomic groups, defined by FAO (2025).
species
Data frame containing ten columns:
species | species code |
species_name | species name |
scientific | scientific name |
isscaap | ISSCAAP group |
major | major taxa |
cpc_class | CPC class |
cpc_group | CPC group |
yearbook | yearbook category |
author | author of scientific name |
taxonomic | taxonomic code |
This data frame contains the full set of 13,596 data records from the FishStat Species Groups data table. Column names have been simplified to facilitate quick exploration and plotting in R.
FAO (2025). Global Production. Fisheries and Aquaculture Division. Rome.
https://www.fao.org/fishery/en/collection/global_production
aquaculture
and capture
data are also
available in a combined production
format.
area
, country
, environment
,
measure
, source
, species
, and
status
are lookup tables.
fishstat-package
gives an overview of the package.
head(species, 3)
# Select 'species' entries that have non-zero production
nonzero <- unique(production$species[production$value > 0])
species.nz <- species[species$species %in% nonzero,]
length(species.nz$species)
# Only 'species', 'scientific', 'major', and 'taxonomic' are always defined
cbind(sapply(species, function(x) all(x != "")))
# Plus 'isscaap' and 'yearbook' for non-zero production
cbind(sapply(species.nz, function(x) all(x != "")))
# A variety of species are missing 'species_name', 'cpc_class', 'cpc_group'
cbind(table(species.nz$major[species.nz$species_name == ""]))
cbind(table(species.nz$major[species.nz$cpc_class == ""]))
cbind(table(species.nz$major[species.nz$cpc_group == ""]))
# Number of 'species' entries that have non-zero production by major taxa
cbind(table(species.nz$major))
# 7 major taxa, 50 isscaap groups, and 3 yearbook categories
cbind(sapply(species.nz, function(x) length(unique(x))))
# 'scientific' and 'species_name' entries are not unique
table(species.nz$scientific)[table(species.nz$scientific) > 1]
table(species.nz$species_name)[table(species.nz$species_name) > 1]
# A closer look at the yearbook categories
cbind(table(species.nz$yearbook)) # now inspect the "other" species
other <-
species.nz[species.nz$yearbook == "Other aquatic animals & products",]
cbind(table(other$major)) # majority is mammals, what about the rest
other <- other[other$major != "MAMMALIA",]
cbind(table(other$isscaap)) # reptiles and inedible ornamental animals
# Examine one species
print.simple.list(species[species$species_name == "Atlantic cod",])
print.simple.list(species[species$species == "YFT",])
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.