head(measure, 3)
# Aquaculture production is measured in tonnes live weight
table(aquaculture$measure)
# Capture production is measured in tonnes or number of individuals
table(capture$measure)
# When number of individuals is used, it is for mammals and reptiles
x <- merge(capture[capture$measure=="Q_no_1",], species)
aggregate(value~isscaap, x, sum)
aggregate(value~isscaap, x, sum, subset=year==2023)
# Examine one measure
print.simple.list(measure[measure$measure=="Q_tlw",])
Run the code above in your browser using DataLab