Mines maps

# interactive map in r
library(tmap)

## Warning: le package 'tmap' a été compilé avec la version R 4.3.3

## Breaking News: tmap 3.x is retiring. Please test v4, e.g. with
## remotes::install_github('r-tmap/tmap')

library(sf)

## Warning: le package 'sf' a été compilé avec la version R 4.3.3

## Linking to GEOS 3.11.2, GDAL 3.8.2, PROJ 9.3.1; sf_use_s2() is TRUE

library(ggplot2)

## Warning: le package 'ggplot2' a été compilé avec la version R 4.3.3

library(terrainr)

## Warning: le package 'terrainr' a été compilé avec la version R 4.3.3

library(geodata)

## Warning: le package 'geodata' a été compilé avec la version R 4.3.3

## Le chargement a nécessité le package : terra

## Warning: le package 'terra' a été compilé avec la version R 4.3.3

## terra 1.7.71

library(mapedit)

## Warning: le package 'mapedit' a été compilé avec la version R 4.3.3

library(mapview)

## Warning: le package 'mapview' a été compilé avec la version R 4.3.3

library(tidyverse)

## Warning: le package 'tidyverse' a été compilé avec la version R 4.3.3

## Warning: le package 'tibble' a été compilé avec la version R 4.3.3

## Warning: le package 'tidyr' a été compilé avec la version R 4.3.3

## Warning: le package 'readr' a été compilé avec la version R 4.3.3

## Warning: le package 'purrr' a été compilé avec la version R 4.3.3

## Warning: le package 'dplyr' a été compilé avec la version R 4.3.3

## Warning: le package 'stringr' a été compilé avec la version R 4.3.3

## Warning: le package 'forcats' a été compilé avec la version R 4.3.3

## Warning: le package 'lubridate' a été compilé avec la version R 4.3.3

## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.4     ✔ readr     2.1.5
## ✔ forcats   1.0.0     ✔ stringr   1.5.1
## ✔ lubridate 1.9.3     ✔ tibble    3.2.1
## ✔ purrr     1.0.2     ✔ tidyr     1.3.1

## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ tidyr::extract() masks terra::extract()
## ✖ dplyr::filter()  masks stats::filter()
## ✖ dplyr::lag()     masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

library(dplyr)
library(tidyr)
library(leaflet)

## Warning: le package 'leaflet' a été compilé avec la version R 4.3.3

path <- "C:/Users/straore/Desktop/Coordonnees_parcelles_Mines"
ci <- geodata::gadm("Côte d'Ivoire", path = path, levl = 0) %>% 
  st_as_sf()

mapview(ci)

setwd("C:/Users/straore/Desktop/Coordonnees_parcelles_Mines")
sf <-read_sf("Lot2_19072024.shp")
#plot(sf)


tm1 <- tm_shape(ci) +
  tm_polygons(alpha = 0.2,col = "white")
#tm1

p <- ggplot(data=ci)+
  geom_sf(fill = NA)

p1 <- ggplot(data = sf)+
  geom_sf()


# or 
tm <- tm_shape(ci)+
  tm_polygons(alpha = 0.2,col = "white")+
  tm_shape(sf)+
  tm_dots(size = 0.3,col = "DEMANDEUR", midpoint = 0)
#tm

# change view
tmap_mode("view")

## tmap mode set to interactive viewing

tm <- tm_shape(ci)+
  tm_polygons(alpha = 0.2,col = "white")+
  tm_shape(sf)+
  tm_dots(size = 0.3,col = "red", midpoint = 0)
#tm
#tmap_save(tm,"test_html.html")

sf  <- sf %>% 
  st_transform(4326)%>% 
  as("Spatial") # From sf to spatial
library(spbabel) # Convert Spatial Data Using Tidy Tables

## Warning: le package 'spbabel' a été compilé avec la version R 4.3.3

 sf  <- sptable(sf)

sf  <- sf %>% 
   rename(Num=1,long=2,lat=3)

 head(sf)

## # A tibble: 6 × 3
##     Num  long   lat
##   <int> <dbl> <dbl>
## 1     1 -2.81  5.37
## 2     2 -2.81  5.37
## 3     3 -2.81  5.36
## 4     4 -2.81  5.36
## 5     5 -4.64  8.13
## 6     6 -4.63  8.13

 sf %>%
leaflet(width = 900) %>%
  addTiles() %>%
  addMarkers(clusterOptions = markerClusterOptions(), popup = "Hi")

## Assuming "long" and "lat" are longitude and latitude, respectively