ICES advisory sheet condensed even further

Motivation

The ICES advisory sheet was made more condensed this year - a good move if you ask me. Wandered though if it could not be made more condensed. An attempt is made here to condense the stock status, graphs and pictograms even further

Current iCod stock status text:

The spawning-stock biomass (SSB) of Icelandic cod is increasing and is higher than has been observed over the last four decades. Fishing mortality (F) has declined significantly in the last decade and is presently at a historical low. Year classes are estimated to have been relatively stable since 1988, but with the mean around the lower values observed in the period 1955 to 1985.

… and then of course one has a lot of wasted space in figures and pictograms.

So how about merging text and figures into one single paragraph:-?

Even more condensed iCod stock status

The following code will of course not be shown the final advisory document.

library(sparkTable)
library(wices)

d <- get_summary_table(stock = "cod-iceg", year = 2015)

dpi <- 200

#yield <- newSparkLine(values = d$landings, lineWidth = .18, pointWidth = .4,width = .4, height = .08)
yield <- newSparkBar(values = d$landings[!is.na(d$landings)], width = .4, height = .08)

export(yield, outputType = "png", filename = "yield")
#rec <- newSparkLine(values = d$recruitment, lineWidth = .18, pointWidth = .4,width = .4, height = .08)
rec <- newSparkBar(values = d$recruitment, width = .4, height = .08)
export(rec, outputType = "png", filename = "rec")
mort <- newSparkLine(values = d$F, lineWidth = .18, pointWidth = .4,width = .4, height = .08)
export(mort, outputType = "png", filename = "mort")
ssb <- newSparkLine(values = d$SSB, lineWidth = .18, pointWidth = .4,width = .4, height = .08)
export(ssb, outputType = "png", filename = "ssb")

The all in one stock status (text and figures)

The spawning-stock biomass (SSB) of Icelandic cod is increasing and is higher than has been observed over the last four decades. Fishing mortality (F) has declined significantly in the last decade and is presently at a historical low. Year classes are estimated to have been relatively stable since 1988, but with the mean around the lower values observed in the period 1955 to 1985. Catch as been close to the long term minimum .