- Establece la ruta de trabajo en una carpeta.
setwd("D:/Documents/GBIF")
2. Carga tu archivo de la base de datos con las coordenadas en formato csv. La base de datos debe tener las columnas de latitud y longitud.
occ <- read.csv(paste0("Coordenadas.csv"), header = TRUE, sep = ",", dec = ".")
3. Primero excluimos los datos que no tienen valores válidos para las columnas «longitud» y «latitud» almacenando el resultado en «occ_1».
occ_1 <- occ[!is.na(occ$longitude) & !is.na(occ$latitude), ]
4. Se crea una nueva columna «code» que combina los valores de «especies», «longitud» y «latitud» separados por un guión bajo, luego se excluyen los duplicados de esta columna almacenando el resultado en «occ_2».
occ_1$code <- paste(occ_1$species, occ_1$longitude, occ_1$latitude, sep = "_")
occ_2 <- occ_1[!duplicated(occ_1$code), 1:4]
5. Se excluyen los valores de cero en las columnas «longitud» y «latitud» almacenando el resultado en «occ_3».
occ_3 <- occ_2[occ_2$longitude != 0 & occ_2$latitude != 0, 1:3]
6. Finalmente, se guarda el resultado final en un nuevo archivo CSV.
write.csv(occ_3, paste0("Coordenadas_filtro.csv"), row.names = FALSE)
