Net and gross changes of LUC categories

A stacked barplot showing net and gross changes of LUC categories during the entire analysed time period.

Usage

netgrossplot(
  dataset,
  legendtable,
  title = NULL,
  xlab = "LUC category",
  ylab = "Area (Km2)",
  legend_title = "Changes",
  changesLabel = c(GC = "Gross change", NG = "Net gain", NL = "Net loss"),
  color = c(GC = "gray70", NG = "#006400", NL = "#EE2C2C"),
  area_km2 = TRUE
)

Arguments

dataset

A table of the multi step transition (lulc_Mulstistep) generated by contingencyTable.

legendtable

A table containing the LUC legend items and their respective color (tb_legend).

title

character. The title of the plot (optional), use NULL for no title.

xlab

character. Label for the x axis.

ylab

character. Label for the y axis.

legend_title

character. The title of the legend.

changesLabel

character. Labels for the three types of changes, defaults are c(GC = "Gross change", NG = "Net gain", NL = "Net loss").

color

character. A vector defining the three bar colors.

area_km2

logical. If TRUE the change is computed in km2, if FALSE in pixel counts.

Value

A bar plot

Examples

# editing the category names

SL_2002_2014$tb_legend$categoryName <- factor(
  c(
    "Ap", "FF", "SA", "SG", "aa", "SF",
    "Agua", "Iu", "Ac", "R", "Im"
  ),
  levels = c(
    "FF", "SF", "SA", "SG", "aa", "Ap",
    "Ac", "Im", "Iu", "Agua", "R"
  )
)

# the plot
netgrossplot(
  dataset = SL_2002_2014$lulc_Multistep,
  legendtable = SL_2002_2014$tb_legend,
  title = NULL,
  xlab = "LUC Category",
  changes = c(GC = "Gross changes", NG = "Net Gain", NL = "Net Loss"),
  color = c(GC = "gray70", NG = "#006400", NL = "#EE2C2C")
)