Commit 4a4af1ad authored by Thierry Feuillet's avatar Thierry Feuillet
Browse files

conf+

parent e3473eb8
Pipeline #10531 passed with stage
in 36 seconds
......@@ -360,4 +360,4 @@ tm_shape(labos_sf) +
### **Conférences**
- Birre D., Lagalis R., Milian J., Alexandre F., Serrano-Notivoli R., Sheeren D., Feuillet T. 2022. [Quantification du changement de forme de la limite supérieure de la forêt subalpine dans les Pyrénées françaises : Proposition d'un protocole méthodologique original](https://thema.univ-fcomte.fr/theoq/fr/index.php). *15<sup>èmes</sup> rencontres de Théo Quant*, Besançon, février 2022.
This diff is collapsed.
library(sf)
library(tmap)
library(questionr)
tmp <- parcelles <- st_read("data/parcelles.shp", quiet = T)
parcelles <- st_read("data/parcelles.shp", quiet = T)
names(parcelles)
## Recodage de parcelles$shift en parcelles$shift_rec
parcelles$shift2 <- cut(parcelles$shift,
include.lowest = TRUE,
right = FALSE,
dig.lab = 4,
breaks = c(-212, -30, 40, 80, 308)
)
table(parcelles$shift2)
tmap_mode("view")
vues <- parcelles %>% filter(Terrain == "VU") %>% st_centroid()
clustExt <- parcelles %>% filter(change %in% c("1_3","3_1")) %>% st_centroid()
tm_shape(clustExt) + tm_dots(col = "change", palette = "Set1")
tm_shape(parcelles) + tm_polygons(col="change", palette = "Set1")
tm_basemap(leaflet::providers$OpenTopoMap) +
tm_shape(parcelles) +
tm_polygons(col = "shftQrt", palette = "-RdBu") +
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()
class(parcelles$shftQrt)
parcelles$Terrain
g <- ggplot(data = parcelles, aes(y=shift, x=shftQrt)) +
geom_violin(fill = "grey40", colour=NA) +
labs(y = "Variation altitudinale", x="Quartiles")
ggplotly(g)
h <- ggplot(data = parcelles, aes(y=shift, x=DENS)) + geom_point(col="grey60", alpha = .9) +
geom_smooth(method = "loess", color = "red", se = TRUE) +
labs(y = "Variation d'altitudes", x="Variation de densité") +
theme_grey()
ggplotly(h)
tmp <- read.csv2("cluster.csv")
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