diff --git a/R/legendHatched.R b/R/legendHatched.R
index ed9357b7..9f5bbda3 100644
--- a/R/legendHatched.R
+++ b/R/legendHatched.R
@@ -25,35 +25,26 @@
 #' @export
 #' @examples 
 #' library(sf)
-#' mtq <-  st_read(system.file("gpkg/mtq.gpkg",
-#'                             package = "cartography"),
-#'                 stringsAsFactors = FALSE)
-#' 
-#' breaksMED<-getBreaks(mtq$MED, nclass=3)
-#' ord=unique(mtq$STATUS)
-#' ord<-ord[c(2,3,1)]
+#' mtq <-  st_read(system.file("gpkg/mtq.gpkg", package = "cartography"))
 #' typoLayer(mtq,  var = "STATUS",  legend.pos = "n",
-#'           legend.values.order = ord,
+#'           legend.values.order = c("Prefecture","Sub-prefecture",
+#'                                   "Simple municipality"),
 #'           col = c("grey10", "grey50", "grey80"),border = NA)
-#' 
-#' mtq$Patts = cut(mtq$MED,c(-Inf,14000,18000,Inf), labels=FALSE)
-#' hatchedLayer( mtq[mtq$Patts == 1,],"left2right",
-#'               density = 2,  col = "white",  add = TRUE,  pch = 3,  cex = 0.6)
+#' mtq$Patts = cut(mtq$MED,c(-Inf,15700,Inf), labels=FALSE)
+#' hatchedLayer(mtq[mtq$Patts == 1,],"left2right",
+#'              density = 2,  col = "white",  add = TRUE,  pch = 3,  cex = 0.6)
 #' hatchedLayer(mtq[mtq$Patts == 2, ],"left2right",
 #'              density = 4, col = "white", add = TRUE)
-#' hatchedLayer(mtq[mtq$Patts == 3, ], "left2right", col = "white",
-#'              add = TRUE, density = 6)
-#' 
 #' legendHatched(pos = "bottomleft",
 #'               cex = 1.5,
 #'               values.cex = 0.8,
 #'               title.txt = "Median Income\n(in thousand of euros)",
-#'               categ = c("< 14","14 - 18",">18",
+#'               categ = c("11.9 - 15.7","14.7 - 21.8",
 #'                         "Prefecture", "Sub-prefecture",
 #'                         "Simple municipality"),
-#'               patterns = c("left2right"), density = c(1, 2, 3),
-#'               col = c(rep("black", 3), "grey10", "grey50", "grey80"),
-#'               ptrn.bg = c(rep("white", 3), "grey10", "grey50", "grey80"),
+#'               patterns = c("left2right"), density = c(1, 2),
+#'               col = c(rep("black", 2), "grey10", "grey50", "grey80"),
+#'               ptrn.bg = c(rep("white", 2), "grey10", "grey50", "grey80"),
 #'               pch = 3)
 #' plot(st_geometry(st_union(mtq)), add = TRUE)
 legendHatched <- function(pos = "topleft",
diff --git a/man/legendHatched.Rd b/man/legendHatched.Rd
index 20216551..61825c36 100644
--- a/man/legendHatched.Rd
+++ b/man/legendHatched.Rd
@@ -60,35 +60,26 @@ Parameters would honour the order of the \code{categ} variable.
 }
 \examples{
 library(sf)
-mtq <-  st_read(system.file("gpkg/mtq.gpkg",
-                            package = "cartography"),
-                stringsAsFactors = FALSE)
-
-breaksMED<-getBreaks(mtq$MED, nclass=3)
-ord=unique(mtq$STATUS)
-ord<-ord[c(2,3,1)]
+mtq <-  st_read(system.file("gpkg/mtq.gpkg", package = "cartography"))
 typoLayer(mtq,  var = "STATUS",  legend.pos = "n",
-          legend.values.order = ord,
+          legend.values.order = c("Prefecture","Sub-prefecture",
+                                  "Simple municipality"),
           col = c("grey10", "grey50", "grey80"),border = NA)
-
-mtq$Patts = cut(mtq$MED,c(-Inf,14000,18000,Inf), labels=FALSE)
-hatchedLayer( mtq[mtq$Patts == 1,],"left2right",
-              density = 2,  col = "white",  add = TRUE,  pch = 3,  cex = 0.6)
+mtq$Patts = cut(mtq$MED,c(-Inf,15700,Inf), labels=FALSE)
+hatchedLayer(mtq[mtq$Patts == 1,],"left2right",
+             density = 2,  col = "white",  add = TRUE,  pch = 3,  cex = 0.6)
 hatchedLayer(mtq[mtq$Patts == 2, ],"left2right",
              density = 4, col = "white", add = TRUE)
-hatchedLayer(mtq[mtq$Patts == 3, ], "left2right", col = "white",
-             add = TRUE, density = 6)
-
 legendHatched(pos = "bottomleft",
               cex = 1.5,
               values.cex = 0.8,
               title.txt = "Median Income\n(in thousand of euros)",
-              categ = c("< 14","14 - 18",">18",
+              categ = c("11.9 - 15.7","14.7 - 21.8",
                         "Prefecture", "Sub-prefecture",
                         "Simple municipality"),
-              patterns = c("left2right"), density = c(1, 2, 3),
-              col = c(rep("black", 3), "grey10", "grey50", "grey80"),
-              ptrn.bg = c(rep("white", 3), "grey10", "grey50", "grey80"),
+              patterns = c("left2right"), density = c(1, 2),
+              col = c(rep("black", 2), "grey10", "grey50", "grey80"),
+              ptrn.bg = c(rep("white", 2), "grey10", "grey50", "grey80"),
               pch = 3)
 plot(st_geometry(st_union(mtq)), add = TRUE)
 }