One step transitions (Chord diagram) — chordDiagramLand • OpenLand

A circlize plot representing the one step transitions between two times point of interest.

Usage

chordDiagramLand(
  dataset,
  legendtable,
  legposition = c(x = -1.3, y = 0),
  legtitle = "Categories",
  sectorcol = "gray80",
  area_km2 = TRUE,
  legendsize = 1,
  y.intersp = 1,
  x.margin = c(-1, 1)
)

Arguments

dataset: A table of the one step transition (lulc_OneStep) generated by contingencyTable.
legendtable: A table containing the LUC legend items and their respective color (tb_legend).
legposition: numeric. A vector containing the `x` and `y` values for the position of the legend. (see legend).
legtitle: character. The title of the legend.
sectorcol: character. The color of the external sector containing the years of compared time points.
area_km2: logical. If TRUE the change is computed in km2, if FALSE in pixel counts.
legendsize: numeric. Font size of the legend. (see "cex" in legend).
y.intersp: numeric. character interspacing factor for vertical (y) spacing in the legend.
x.margin: numeric vector ensuring additional space (blank area) on the left or right of the circle for the legend, by default it is c(-1, 1). (see "canvas.xlim" in circos.par)

Value

A Chord Diagram

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"
  )
)

SL_2002_2014$tb_legend$color <- c(
  "#FFE4B5", "#228B22", "#00FF00", "#CAFF70",
  "#EE6363", "#00CD00", "#436EEE", "#FFAEB9",
  "#FFA54F", "#68228B", "#636363"
)

# the plot
chordDiagramLand(
  dataset = SL_2002_2014$lulc_Onestep,
  legendtable = SL_2002_2014$tb_legend
)