production | R Documentation |
Aquaculture and capture production quantity by species, area, and country for the years 1950-2023, compiled and published by FAO (2025).
production
Data frame containing eight columns:
species | species code |
year | year |
area | area code |
country | country code |
value | quantity in tonnes or number of individuals |
measure | measure code |
status | status code |
source | source code
|
This data frame contains the full set of 1,159,613 data records from the FishStat Production Quantity 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(production)
# Analyze production measured in tonnes
prod <- production[production$measure == "Q_tlw" & production$value > 0,]
prod <- merge(prod, species[c("species", "yearbook")])
# Select SOFIA species, excluding mammals, reptiles, and plants
prod <- prod[prod$yearbook ==
"Aquatic animals (Fish, crustaceans and molluscs, etc.)",]
# Determine origin
prod <- merge(prod, area[c("area", "inlandmarine")])
prod$origin <- ifelse(prod$source == "CAPTURE", "Capture", "Aquaculture")
prod$w <- ifelse(prod$inlandmarine == "Marine areas", "marine", "inland")
prod$origin <- paste0(prod$origin, " (", prod$w, ")")
cbind(sort(unique(prod$origin)))
# World capture fisheries and aquaculture production
x <- xtabs(value~year+origin, aggregate(value~year+origin, prod, sum))
x <- x[,c(2,1,4,3)] / 1e6
library(areaplot)
areaplot(x, legend=TRUE, args.legend=list(x="topleft"), ylab="million tonnes")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.