In imarpe/imarpe: Tools for graphics and summary reports for IMARPE

\pagenumbering{gobble}

knitr::opts_chunk$set(echo = TRUE)

Desembarque y esfuerzo por tipo de flota

fleeTableLanding = round(x = x$landing$fleeTable, digits = 2)
fleeTableEffort  = round(x = x$effort$fleeTable, digits = 2)

fleeTable = NULL
for(i in seq_len(dim(fleeTableLanding)[2])){
  columns = cbind(Desembarque = fleeTableLanding[, i], Esfuerzo = fleeTableEffort[, i])
  fleeTable = cbind(fleeTable, columns)
}

rowNamesTable = rownames(fleeTableLanding)
colNamesTable = colnames(fleeTable)

fleeTable = rbind(fleeTable, apply(fleeTable, 2, sum, na.rm = TRUE))
rownames(fleeTable) = c(rowNamesTable, "Total")

if(dim(fleeTable)[2] == 2) {
  fleeTable = fleeTable

  fleeTable = rbind(colnames(fleeTable), fleeTable)
  colnames(fleeTable) = gsub("_", " ", rep(colnames(fleeTableLanding), each = 2))

} else {
  fleeTable = cbind(fleeTable,
                  Desembarque = apply(fleeTable[,seq(from = 1, by = 2, to = dim(fleeTable)[2])], 1, sum, na.rm = TRUE),
                  Esfuerzo = apply(fleeTable[,seq(from = 2, by = 2, to = dim(fleeTable)[2])], 1, sum, na.rm = TRUE))

  fleeTable = rbind(colnames(fleeTable), fleeTable)
colnames(fleeTable) = c(gsub("_", " ", rep(colnames(fleeTableLanding), each = 2)), "Total", "Total")
}

pander::pander(fleeTable, align = "c", split.table = Inf)

Desembarque y esfuerzo diario

plot(x, language = "spanish", ploType = "plotJoined", daysToPlot = daysToPlot,
     colBar = "black")

\pagebreak

Desembarque y esfuerzo por puerto

#Landing
portTableLanding = x$landing$data
yearsTable = sort(unique(portTableLanding$year), decreasing = FALSE)
portTableLanding = melt(portTableLanding, id.vars= names(portTableLanding[ , c(1:3)]))
portTableLanding = tapply(portTableLanding$value, list(portTableLanding[, 1], portTableLanding[, 4]), sum)

portInfoLanding = getPort(colnames(portTableLanding))
colnames(portTableLanding) = portInfoLanding$data$name

if(dim(portTableLanding)[1] == 1){
  portTableLanding = t(round(portTableLanding, digits = 2))
  portTableLanding = as.data.frame(portTableLanding[order(portInfoLanding$data$lat, decreasing = TRUE),])
  colnames(portTableLanding) = yearsTable
} else {
    portTableLanding = as.data.frame(portTableLanding)
    portTableLanding = round(t(portTableLanding[, order(portInfoLanding$data$lat, decreasing = TRUE)]), digits = 2)
}

#Effort
portTableEffort  = x$effort$data
portTableEffort  = melt(portTableEffort, id.vars= names(portTableEffort[ , c(1:3)]))
portTableEffort  = tapply(portTableEffort$value, list(portTableEffort[, 1], portTableEffort[, 4]), sum)

portInfoEffort = getPort(colnames(portTableEffort))
colnames(portTableEffort) = portInfoEffort$data$name

if(dim(portTableEffort)[1] == 1){
  portTableEffort = t(round(portTableEffort, digits = 2))
  portTableEffort = as.data.frame(portTableEffort[order(portInfoEffort$data$lat, decreasing = TRUE),])
  colnames(portTableEffort) = yearsTable

  } else {
  portTableEffort = as.data.frame(portTableEffort)
  portTableEffort = round(t(portTableEffort[, order(portInfoEffort$data$lat, decreasing = TRUE)]), digits = 2)
}

porTable = NULL
for(i in seq_len(dim(portTableLanding)[2])){
  columns = cbind(Desembarque = portTableLanding[, i], Esfuerzo = portTableEffort[, i])
  porTable = cbind(porTable, columns)
}
rownames(porTable) = rownames(portTableLanding)

#Total
rowNamesTable = rownames(porTable)
colNamesTable = colnames(porTable)

porTable = rbind(porTable, apply(porTable, 2, sum, na.rm = TRUE))
rownames(porTable) = c(rowNamesTable, "Total")

if(dim(porTable)[2] == 2) {
  porTable = porTable

  porTable = rbind(colnames(porTable), porTable)
  colnames(porTable) = rep(yearsTable, each = 2)

} else {
  porTable = cbind(porTable,
                   Desembarque = apply(porTable[, seq(from = 1, by = 2, to = dim(porTable)[2])], 1, sum, na.rm = TRUE),
                   Esfuerzo = apply(porTable[, seq(from = 2, by = 2, to = dim(porTable)[2])], 1, sum, na.rm = TRUE))

  porTable = rbind(colnames(porTable), porTable)
  colnames(porTable) = c(rep(yearsTable, each = 2), "Total", "Total")

}

pander::pander(porTable, align = "c", split.table = Inf)

Desembarque acumulado en el dominio peruano

plot(x$landing, language = "spanish", ploType = "plotPERU", daysToPlot = daysToPlot, textAxis2 = textAxis2, textAxis4 = textAxis4)

\pagebreak

Desembarque acumulado en la región Norte-Centro

plot(x$landing, language = "spanish", ploType = "plotNC", daysToPlot = daysToPlot, textAxis2 = textAxis2, textAxis4 = textAxis4)

Desembarque acumulado en la región Sur

plot(x$landing, language = "spanish", ploType = "plotS", daysToPlot = daysToPlot, textAxis2 = textAxis2, textAxis4 = textAxis4)

\pagebreak

Esfuerzo acumulado en el dominio peruano

plot(x$effort, language = "spanish", ploType = "plotPERU", daysToPlot = daysToPlot, textAxis2 = textAxis2, textAxis4 = textAxis4)

Esfuerzo acumulado en la región Norte-Centro

plot(x$effort, language = "spanish", ploType = "plotNC", daysToPlot = daysToPlot, textAxis2 = textAxis2, textAxis4 = textAxis4)

\pagebreak

Esfuerzo acumulado en la región Sur

plot(x$effort, language = "spanish", ploType = "plotS", daysToPlot = daysToPlot, textAxis2 = textAxis2, textAxis4 = textAxis4)

imarpe/imarpe documentation built on Aug. 8, 2020, 8:40 p.m.