Check des Coordonnées GPS de la BDD V2.0

1 Exploration

Pour le moment, j’ai appliquer acunes filtres (ni Protocole, ni OS,…)

1.1 Database import

BBD V1.9 (=> landworm_V1.9)

• Import of database LandWorm_dataset_site_V1.9.xlsx version V1.9 (february 22, 2024)

chemin_fichier_excel = "C:/Users/diall/Downloads/datas/LandWorm_dataset_site_V1.9.xlsx"
landworm_V1.9 <- read.xlsx(chemin_fichier_excel, sheet = "Sheet1")

landworm_V1.9 <- landworm_V1.9 %>% mutate(gps_x = as.numeric(gps_x),gps_y = as.numeric(gps_y))

• The database contains 8019 rows and 481 columns

BBD V2 (=> landworm)

• Import of database LandWorm_dataset_site_01_07_2024.xlsx (01/07/2024)

chemin_fichier_excel = "C:/Users/diall/Downloads/datas/LandWorm_dataset_site_01_07_2024.xlsx"
landworm <- read.xlsx(chemin_fichier_excel, sheet = "Sheet1")

• The database contains 8143 rows and 479 columns

1.2 Variations

BBD V1.9 (=> landworm_V1.9)

summary(landworm_V1.9[,c("gps_x", "gps_y")])

##      gps_x            gps_y      
##  Min.   :-5.050   Min.   :41.44  
##  1st Qu.:-0.318   1st Qu.:46.07  
##  Median : 2.154   Median :47.85  
##  Mean   : 2.004   Mean   :47.21  
##  3rd Qu.: 4.346   3rd Qu.:48.75  
##  Max.   : 9.521   Max.   :50.98  
##  NA's   :425      NA's   :428

Dans BDD V1.9, GPS_X varie de \(-5.050\) à \(9.521\)

BBD V2 (=> landworm)

summary(landworm[,c("gps_x", "gps_y")])

##      gps_x            gps_y      
##  Min.   :0.0001   Min.   :41.44  
##  1st Qu.:1.5924   1st Qu.:46.07  
##  Median :2.5116   Median :47.84  
##  Mean   :2.9430   Mean   :47.20  
##  3rd Qu.:4.4110   3rd Qu.:48.74  
##  Max.   :9.5213   Max.   :50.98  
##  NA's   :435      NA's   :438

Dans BDD V2, GPS_X varie de \(0.0001\) à \(9.521\)

1.3 Visualisations

Pour GPS_Y

## Pour gps_y
plot(landworm_V1.9$gps_y, main = 'GPS_Y de V1.9 (en noir) vs GPS_Y de V2 (en bleu)')
points(landworm$gps_y, col = "blue")

On observe une bonne superposition des GPS_X dans les deux BDD

Pour GPS_X

## Pour gps_x
plot(landworm_V1.9$gps_x, main = 'GPS_X de V1.9 (en noir) vs GPS_X de V2 (en bleu)')
points(landworm$gps_x, col = "blue")
lines(c(0,8000), c(0,0), col = 'red', lwd = 3)

On peut observer qu’en dessous de la ligne horizontale rouge, il y a que des points noir (c’est à dire uniquement des points venant de la BDD V1.9).

1.4 Carte des observations

BBD V1.9 (=> landworm_V1.9)

df_coord <- landworm_V1.9[, c("gps_x", "gps_y")] %>% mutate(gps_x = as.numeric(gps_x),gps_y = as.numeric(gps_y))

df_coord$num_ligne <- seq(nrow(df_coord))
carte <- leaflet(df_coord) %>%
  addTiles() %>%
  addCircleMarkers(lng = ~gps_x, lat = ~gps_y, radius = 0.8, fillOpacity = 0.8, fillColor = "blue")
carte

BBD V2 (=> landworm)

df_coord <- landworm[, c("gps_x", "gps_y")] %>% mutate(gps_x = as.numeric(gps_x),gps_y = as.numeric(gps_y))

df_coord$num_ligne <- seq(nrow(df_coord))
carte <- leaflet(df_coord) %>%
  addTiles() %>%
  addCircleMarkers(lng = ~gps_x, lat = ~gps_y, radius = 0.8, fillOpacity = 0.8, fillColor = "blue")
carte

2 Date de Prelevement

Après avoir effectué les filtres selon les OWNERS, PROTOCOLES, OS,…:

Le programme Theix, annee 2011 n’a pas de Date de Prelevement, est ce que c’est normal ?