index

data/parcelles.cpg

-UTF-8
\ No newline at end of file

index.Rmd

@@ -85,15 +85,27 @@ Row {data-width=600}
 ```{r, eval = TRUE, echo = FALSE, message=FALSE, warning=FALSE}
 parcelles <- st_read("data/parcelles.shp", quiet = T)
 vues <- parcelles %>% filter(Terrain == "VU") %>% st_centroid()
+parcelles$shift2 <- cut(parcelles$shift,
+  include.lowest = TRUE,
+  right = FALSE,
+  dig.lab = 4,
+  breaks = c(-212, -30, 50, 100, 308)
+)
+
 # map <- mapview(parcelles$shftQrt, legend=F, col.regions="red", 
 #         map.types = c("OpenTopoMap"))
 # setView(map@map, lng = 1.84, lat = 42.6, zoom=12)
 tmap_mode("view")
 
+vues <- parcelles %>% filter(Terrain == "VU") %>% st_centroid()
+clustExt <- parcelles %>% filter(change %in% c("1_3","3_1")) %>% st_centroid()
+
 tm_basemap(leaflet::providers$OpenTopoMap) + 
   tm_shape(parcelles) + 
-  tm_polygons(col = "shftQrt", palette = "-RdBu", alpha = 0.68) + 
+  tm_polygons(col = "shift2", palette = "-RdBu", alpha = 0.8) + 
   tm_view(set.view = c(1.84, 42.62, 12)) + 
+  tm_shape(clustExt) + 
+  tm_dots(col = "change", palette = "Set1", size = .08) +
   tm_shape(vues) + 
   tm_dots()
 ```