histogram legend about cartography HOT 5 CLOSED

library(sf)
library(tmap)
mtq <- st_read(system.file("gpkg/mtq.gpkg", package="cartography"))
mtq$chomage=mtq$CHOM/mtq$ACT
cols=carto.pal("wine.pal",4)

# TMAP OPTION--------
tm_shape(mtq) +
  tm_borders(col = 'white', lwd = 0.3) +
  tm_fill(col = 'chomage', title = 'Chomage', legend.hist = TRUE,
          palette = cols) +
  tm_legend(legend.outside = TRUE)

# CARTOGRAPHY OPTION--------
par(mar=c(0,0,0,3))
brks=as.double(pretty(mtq$chomage))
choroLayer(mtq,var="chomage", breaks = brks, col=cols,
           legend.pos="topright", legend.title.txt="Chomage",
           legend.values.rnd=2)

maphist(mtq$chomage,breaks = brks,pos="right", col=cols)

library(cartography)
library(sf)
mtq <- st_read(system.file("gpkg/mtq.gpkg", package="cartography"))
# Population density
mtq$POPDENS <- 1e6 * mtq$POP / st_area(x = mtq)
par(mar = c(0.5,0.5,2,0.5))
bks <- getBreaks(mtq$POPDENS, method = "quantile", nclass = 6)
cols <- carto.pal(pal1 = "wine.pal", 6)
choroLayer(x = mtq, var = "POPDENS", breaks = bks, col = cols,
           border = NA, legend.title.txt = "Population\nDensity",
           legend.hist = TRUE) #NEW PARAMETER
layoutLayer("Testing histogram", theme = "wine.pal")