Plot a choropleth map — mf

Plot choropleth map.

mf_choro(
  x,
  var,
  pal = "Mint",
  alpha = 1,
  breaks = "quantile",
  nbreaks,
  border,
  pch = 21,
  cex = 1,
  lwd = 0.7,
  col_na = "white",
  cex_na = 1,
  pch_na = 4,
  leg_pos = mf_get_leg_pos(x),
  leg_title = var,
  leg_title_cex = 0.8,
  leg_val_cex = 0.6,
  leg_val_rnd = 2,
  leg_no_data = "No data",
  leg_frame = FALSE,
  add = FALSE
)

Arguments

x: object of class sf
var: name(s) of the variable(s) to plot
pal: a set of colors or a palette name (from hcl.colors)
alpha: if pal is a hcl.colors palette name, the alpha-transparency level in the range [0,1]
breaks: either a numeric vector with the actual breaks, or a classification method name (see mf_get_breaks and Details)
nbreaks: number of classes
border: border color
pch: pch type of pch if x is a POINT layer
cex: cex cex of the symbols if x is a POINT layer
lwd: border width
col_na: color for missing values
cex_na: cex for NA values if x is a POINT layer
pch_na: pch for NA values if x is a POINT layer
leg_pos: position of the legend, one of 'topleft', 'top','topright', 'right', 'bottomright', 'bottom', 'bottomleft', 'left' or a vector of two coordinates in map units (c(x, y)). If leg_pos = NA then the legend is not plotted. If leg_pos = 'interactive' click onthe map to choose the legend position.
leg_title: legend title
leg_title_cex: size of the legend title
leg_val_cex: size of the values in the legend
leg_val_rnd: number of decimal places of the values in the legend
leg_no_data: label for missing values
leg_frame: whether to add a frame to the legend (TRUE) or not (FALSE)
add: whether to add the layer to an existing plot (TRUE) or not (FALSE)

Value

x is (invisibly) returned.

Details

Breaks defined by a numeric vector or a classification method are left-closed: breaks defined by c(2, 5, 10, 15, 20) will be mapped as [2 - 5[, [5 - 10[, [10 - 15[, [15 - 20]. The "jenks" method is an exception and has to be right-closed. Jenks breaks computed as c(2, 5, 10, 15, 20) will be mapped as [2 - 5], ]5 - 10], ]10 - 15], ]15 - 20].

Examples

mtq <- mf_get_mtq()
mf_choro(mtq, "MED")


mtq[6, "MED"] <- NA
mf_choro(
  x = mtq, var = "MED", col_na = "grey", pal = "Cividis",
  breaks = "quantile", nbreaks = 4, border = "white",
  lwd = .5, leg_pos = "topleft",
  leg_title = "Median Income", leg_title_cex = 1.1,
  leg_val_cex = 1, leg_val_rnd = -2, leg_no_data = "No data",
  leg_frame = TRUE
)