Commit cc3910a5 authored by Thierry Feuillet's avatar Thierry Feuillet
Browse files

index

parent 19a5415b
Pipeline #9437 passed with stage
in 24 seconds
UTF-8
\ No newline at end of file
No preview for this file type
......@@ -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()
```
......
This diff is collapsed.
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment