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

index

parent 51afdb11
Pipeline #9414 failed with stage
in 3 seconds
......@@ -86,7 +86,7 @@ tmap_mode("view")
tm_basemap(leaflet::providers$OpenTopoMap) +
tm_shape(parcelles) +
tm_polygons(col = "shftQrt", palette = "-RdBu") +
tm_polygons(col = "shftQrt", palette = "-RdBu", alpha = 0.7) +
tm_view(set.view = c(1.84, 42.62, 12)) +
tm_shape(vues) +
tm_dots()
......
This diff is collapsed.
library(sf)
library(tmap)
library(questionr)
tmp <- parcelles <- st_read("data/parcelles.shp", quiet = T)
names(parcelles)
tmap_mode("view")
vues <- parcelles %>% filter(Terrain == "VU") %>% st_centroid()
tm_basemap(leaflet::providers$OpenTopoMap) +
tm_shape(parcelles) +
tm_polygons(col = "shftQrt", palette = "-RdBu") +
tm_view(set.view = c(1.84, 42.62, 12)) +
tm_shape(vues) +
tm_dots()
parcelles$Terrain
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