José R. Ferrer-Paris
23 de julio de 2025
20 de noviembre de 2025
En este documento muestro un resumen de las observaciones realizadas en iNaturalist durante mis años de trabajo en la iniciativa NeoMapas.
Attaching package: 'lubridate'The following objects are masked from 'package:base':
date, intersect, setdiff, union
Attaching package: 'dplyr'The following objects are masked from 'package:stats':
filter, lagThe following objects are masked from 'package:base':
intersect, setdiff, setequal, unionhere() starts at /Users/z3529065/proyectos/CES/code-4-iNatif (!dir.exists(here::here("data")))
dir.create(here::here("data"))
inat_obs_data <- here::here("data", "inat-obs.rds")
if (file.exists(inat_obs_data)) {
user_obs <- readRDS(inat_obs_data)
} else {
user_obs <- get_inat_obs_user("NeoMapas",maxresults = 5000) |>
mutate(dts=date(datetime), year=year(dts), month=month(dts))
saveRDS(user_obs, inat_obs_data)
}lookup <- c(name="scientific_name",
user="user_login",
#date="observed_on",
taxonid="id",
taxon="iconic_taxon_name",
kingdom="taxon_kingdom_name",
phylum="taxon_phylum_name",
class="taxon_class_name",
order="taxon_order_name",
genus="taxon_genus_name"
)
NeoMapas_obs <- user_obs |>
mutate(date=ymd(observed_on),
filter1 = grepl("Muestreos de NeoMapas", tag_list),
URA=str_extract(tag_list,"NM[0-9]+")) |>
rename(any_of(lookup)) |>
filter(
latitude > 0 &
latitude <13 &
longitude < -60 &
longitude > -75) |>
filter(filter1 | year(date) %in% 2003:2012)
Cordillera de Mérida endemic butterflies
69 1 1
Laguna de Mucubají Mamíferos Mariposas de Maracaibo
1 1 2
Mariposas de Venezuela Muestreos de NeoMapas NeoMapas
1 334 1
NM02 NM03 NM05
11 2 3
NM09 NM1 NM16
5 1 2
NM18 NM19 NM20
5 4 1
NM22 NM24 NM25
4 3 1
NM26 NM27 NM4
30 7 4
NM50 NM6 NM92
6 1 13
Paramos páramos parques nacionales
1 1 1
NM02 NM03 NM05 NM09 NM1 NM16 NM18 NM19 NM20 NM22 NM24 NM25 NM26 NM27 NM4 NM50
11 2 3 5 1 2 5 4 1 4 3 1 30 7 4 6
NM6 NM92
1 13 [1] name place_guess url
<0 rows> (or 0-length row.names) name
1 Anolis onca
2 Clusia grandiflora
3 Clusia grandiflora
4 Dryas iulia
5 Phoebis agarithe
6 Phoebis marcellina
7 Anartia amathea
8 Pachybolidae
9 Apoica pallens
10 Eupsittula pertinax
11 Pelecanus occidentalis
12 Espeletia
13 Phareicranaus albilineatus
14 Comparettia
15 Cyrtochilum
16 Hesperiidae
17 Heliconiini
18 Eupsittula pertinax
19 Eupsittula pertinax
20 Megascops choliba
21 Tabebuia
22 Zephyranthes
23 Opuntia
24 Opuntia caracassana
25 Stapelia gigantea
26 Eupsittula pertinax
27 Eupsittula pertinax
28 Diareusa
29 Erythrina
30 Bembix
31 Ipomoea
32 Pyrocephalus rubinus
33 Kalanchoe × houghtonii
34 Procnias averano
35 Palythoa caribaeorum
36 Faviinae
37 Actinopterygii
38 Palythoa caribaeorum
39 Cactoideae
40 Cylindropuntia caribaea
41 Cephalotes
42 Tribulus cistoides
43 Pontederia crassipes
44 Kricogonia lyside
45 Coragyps atratus
46 Stenocereus griseus
47 Magnoliopsida
48 Ceiba pentandra
49 Hura crepitans
50 Trichonephila clavipes
51 Stenocereus griseus
52 Stenocereus griseus
53 Poaceae
54 Acanthocereus tetragonus
55 Tillandsia
56 Cylindropuntia caribaea
57 Kalanchoe × houghtonii
58 Diaethria
59 Pithecellobium
60 Libidibia coriaria
61 Ortalis ruficauda
62 Psalidognathus friendii
63 Charidotis abrupta
64 Melitaeini
65 Arecaceae
66 Utricularia alpina
67 Guzmania lingulata
68 Euptychiina
69 Catasticta hebra
place_guess
1 Rosario de Perijá, Zulia, VE
2 Canaima National Park, Canaima, Sifontes, Bolívar, VE
3 Canaima National Park, Canaima, Sifontes, Bolívar, VE
4 Piar, Bolívar, VE
5 Piritu, Falcón, Venezuela
6 Piritu, Falcón, Venezuela
7 Ayacucho, Táchira, Venezuela
8 Silva, Falcón, Venezuela
9 Colina, Falcón, Venezuela
10 Punceres, Monagas, Venezuela
11 El Guamache 6318, Nueva Esparta, Venezuela
12 Uribante, 5058, Táchira, Venezuela
13 92Q7+W9P, Parroquia Macarao 1204, Miranda, Venezuela
14 927M+778, San Antonio de Los Altos 1204, Miranda, Venezuela
15 927M+778, San Antonio de Los Altos 1204, Miranda, Venezuela
16 927M+778, San Antonio de Los Altos 1204, Miranda, Venezuela
17 927M+778, San Antonio de Los Altos 1204, Miranda, Venezuela
18 Carirubana, Falcón, Venezuela
19 San José de Cocodite 4150, Falcón, Venezuela
20 Andrés Eloy Blanco, Lara, VE
21 Jiménez, Lara, VE
22 Cerro Saroche, Iribarren, Lara, VE
23 Cerro Saroche, Iribarren, Lara, VE
24 Cerro Saroche, Iribarren, Lara, VE
25 Cerro Saroche, Iribarren, Lara, VE
26 Bruzual, Anzoátegui, VE
27 Mochima, Sucre, Sucre, VE
28 Diego Ibarra, Carabobo, VE
29 Sucre, Falcón, VE
30 Colina, Falcón, VE
31 Colina, Falcón, VE
32 Colina, Falcón, VE
33 Federación, Falcón, VE
34 Bolivar, Falcón, Venezuela
35 Vargas, La Guaira, Venezuela
36 Vargas, La Guaira, Venezuela
37 Vargas, La Guaira, Venezuela
38 Vargas, La Guaira, Venezuela
39 Miranda, Falcón, Venezuela
40 Colina, Falcón, Venezuela
41 Mirimire 4110, Falcón, Venezuela
42 Boca de Aroa, Falcón, Venezuela
43 Boca de Uchire, Anzoátegui, Venezuela
44 Urb Los Olivos, Maracaibo, Zulia, Venezuela
45 Colina, Falcón, Venezuela
46 Colina, Falcón, Venezuela
47 Municipio Zamora 4134, Falcón, Venezuela
48 Municipio Zamora 4134, Falcón, Venezuela
49 Municipio Zamora 4134, Falcón, Venezuela
50 Municipio Zamora 4134, Falcón, Venezuela
51 Colina, Falcón, Venezuela
52 Colina, Falcón, Venezuela
53 Colina, Falcón, Venezuela
54 Colina, Falcón, Venezuela
55 Colina, Falcón, Venezuela
56 Colina, Falcón, Venezuela
57 Colina, Falcón, Venezuela
58 92Q7+W9P, Parroquia Macarao 1204, Miranda, Venezuela
59 Guajira, Zulia, Venezuela
60 Guajira, Zulia, Venezuela
61 927M+778, San Antonio de Los Altos 1204, Miranda, Venezuela
62 92Q7+W9P, Parroquia Macarao 1204, Miranda, Venezuela
63 2061, Falcón, Venezuela
64 2061, Falcón, Venezuela
65 Península de Paraguaná, 4126, Falcón, Venezuela
66 Península de Paraguaná, 4126, Falcón, Venezuela
67 Península de Paraguaná, 4126, Falcón, Venezuela
68 Península de Paraguaná, 4126, Falcón, Venezuela
69 Municipio Los Salias, 1204, Miranda, Venezuela
url
1 https://www.inaturalist.org/observations/306453787
2 https://www.inaturalist.org/observations/305527737
3 https://www.inaturalist.org/observations/305527719
4 https://www.inaturalist.org/observations/305527445
5 https://www.inaturalist.org/observations/305487532
6 https://www.inaturalist.org/observations/305487531
7 https://www.inaturalist.org/observations/305468002
8 https://www.inaturalist.org/observations/305466738
9 https://www.inaturalist.org/observations/305466736
10 https://www.inaturalist.org/observations/305459572
11 https://www.inaturalist.org/observations/305458610
12 https://www.inaturalist.org/observations/305450168
13 https://www.inaturalist.org/observations/305376031
14 https://www.inaturalist.org/observations/305376024
15 https://www.inaturalist.org/observations/305374547
16 https://www.inaturalist.org/observations/305374546
17 https://www.inaturalist.org/observations/305374545
18 https://www.inaturalist.org/observations/305132097
19 https://www.inaturalist.org/observations/305132093
20 https://www.inaturalist.org/observations/305126947
21 https://www.inaturalist.org/observations/305126915
22 https://www.inaturalist.org/observations/305126908
23 https://www.inaturalist.org/observations/305126900
24 https://www.inaturalist.org/observations/305126889
25 https://www.inaturalist.org/observations/305126853
26 https://www.inaturalist.org/observations/305097927
27 https://www.inaturalist.org/observations/305096883
28 https://www.inaturalist.org/observations/304955984
29 https://www.inaturalist.org/observations/304951231
30 https://www.inaturalist.org/observations/304946606
31 https://www.inaturalist.org/observations/304944882
32 https://www.inaturalist.org/observations/304940311
33 https://www.inaturalist.org/observations/304935696
34 https://www.inaturalist.org/observations/304913026
35 https://www.inaturalist.org/observations/304204148
36 https://www.inaturalist.org/observations/304204147
37 https://www.inaturalist.org/observations/304204146
38 https://www.inaturalist.org/observations/304204145
39 https://www.inaturalist.org/observations/303405875
40 https://www.inaturalist.org/observations/303405870
41 https://www.inaturalist.org/observations/303396498
42 https://www.inaturalist.org/observations/303396489
43 https://www.inaturalist.org/observations/303394553
44 https://www.inaturalist.org/observations/302326763
45 https://www.inaturalist.org/observations/302325293
46 https://www.inaturalist.org/observations/302325289
47 https://www.inaturalist.org/observations/302311845
48 https://www.inaturalist.org/observations/302311842
49 https://www.inaturalist.org/observations/302311841
50 https://www.inaturalist.org/observations/302311840
51 https://www.inaturalist.org/observations/302310186
52 https://www.inaturalist.org/observations/302310185
53 https://www.inaturalist.org/observations/302310184
54 https://www.inaturalist.org/observations/302310183
55 https://www.inaturalist.org/observations/302309032
56 https://www.inaturalist.org/observations/302308336
57 https://www.inaturalist.org/observations/302308333
58 https://www.inaturalist.org/observations/301443016
59 https://www.inaturalist.org/observations/266331220
60 https://www.inaturalist.org/observations/266329015
61 https://www.inaturalist.org/observations/265813481
62 https://www.inaturalist.org/observations/250987688
63 https://www.inaturalist.org/observations/81245546
64 https://www.inaturalist.org/observations/81245545
65 https://www.inaturalist.org/observations/81242836
66 https://www.inaturalist.org/observations/81242834
67 https://www.inaturalist.org/observations/81242833
68 https://www.inaturalist.org/observations/81242832
69 https://www.inaturalist.org/observations/53031599---
title: "Observaciones de la iniciativa NeoMapas en iNaturalist"
author: "José R. Ferrer-Paris"
date: "2025-07-23"
date-modified: last-modified
categories: [R, rinat, Español, Venezuela]
output: html_document
editor_options:
chunk_output_type: console
execute:
echo: true
message: true
warning: true
format:
html:
code-tools:
source: true
caption: "Code for this document"
image: "https://inaturalist-open-data.s3.amazonaws.com/photos/2002533/medium.jpg"
image-alt: "(c) JR Ferrer-Paris, some rights reserved (CC BY)"
lang: es
---
En este documento muestro un resumen de las observaciones realizadas en iNaturalist durante mis años de trabajo en la iniciativa NeoMapas.
## Cargar paquetes
```{r setup}
library(rinat)
library(stringr)
library(lubridate)
library(dplyr)
```
## Leer datos de iNaturalist
```{r download}
here::i_am("projects/NeoMapas-dashboard.qmd")
if (!dir.exists(here::here("data")))
dir.create(here::here("data"))
inat_obs_data <- here::here("data", "inat-obs.rds")
if (file.exists(inat_obs_data)) {
user_obs <- readRDS(inat_obs_data)
} else {
user_obs <- get_inat_obs_user("NeoMapas",maxresults = 5000) |>
mutate(dts=date(datetime), year=year(dts), month=month(dts))
saveRDS(user_obs, inat_obs_data)
}
```
## Preparar los datos
```{r prepare data}
lookup <- c(name="scientific_name",
user="user_login",
#date="observed_on",
taxonid="id",
taxon="iconic_taxon_name",
kingdom="taxon_kingdom_name",
phylum="taxon_phylum_name",
class="taxon_class_name",
order="taxon_order_name",
genus="taxon_genus_name"
)
NeoMapas_obs <- user_obs |>
mutate(date=ymd(observed_on),
filter1 = grepl("Muestreos de NeoMapas", tag_list),
URA=str_extract(tag_list,"NM[0-9]+")) |>
rename(any_of(lookup)) |>
filter(
latitude > 0 &
latitude <13 &
longitude < -60 &
longitude > -75) |>
filter(filter1 | year(date) %in% 2003:2012)
```
```{r}
str_split(NeoMapas_obs$tag_list,",") |>
unlist() |>
str_trim() |>
table()
```
```{r}
table(NeoMapas_obs$URA)
```
```{r}
NeoMapas_obs |>
filter(grepl("monitoreo|muestreos de NeoMapas|Muestreos NeoMapas",tag_list)) |>
select(name, place_guess, url)
```
```{r}
NeoMapas_obs |>
filter(tag_list %in% c("")) |>
select(name, place_guess, url)
```