airqualityES

.title[
# <code>airqualityES</code>
]
.subtitle[
## Un Paquete de R para Acceder a Datos de Contaminación del Aire en España IV Congreso & XV Jornadas de Usuarios de R 5, 6 y 7 Noviembre, 2025 • Valencia •
]

---

# _Outline_

### [1. Autores](#3)
### [2. Origen y Motivación](#4)
.white[• Recopilar Datos del _Miteco:_ una Misión "casi" Imposible... si decides aceptarla] 
### [3. Instalación y Funcionalidades](#13)
### [Aplicación: Confinamiento Humano vs. Saneamiento Ambiental ](#22)
### [Aplicación: ¿Son las _Fallas de Valencia_ un fallo para la Calidad del Aire? ](#24)

---

# 1. Autores

]

---

# La _insoportable gravedad_ de trabajar con datos de organismos oficiales españoles: el caso del _Miteco_

> .white[_"In God we trust, all others bring data."_].fuente[W. Edwards Deming, *Estadístico estadounidense.*]

> .white[_"Data is the new oil."_].fuente[Clive Humby, *Matemático británico.*]

---

# 2. Origen y Motivación

![:scale 99%](img/miteco1.png)

---

# 2. Origen y Motivación

Todo es... 😊

![:scale 99%](img/miteco1a.png)

---

# 2. Origen y Motivación

... y avanzamos...😅

![:scale 99%](img/miteco2.png)

---

# 2. Origen y Motivación

... y seguimos..., hasta que, .hi-pink[¡por fin...!]

![:scale 70%](img/pascal1.png)
]

![:scale 90%](img/miteco3.png)
]

---

# 2. Origen y Motivación

Sin embargo,... .🥵

![:scale 70%](img/pascal2.png)

]

![:scale 90%](img/miteco4.png)

]

---

# 2. Origen y Motivación

## ... y así...😤

- .hi-pink[Año 2023] 🤬

![:scale 80%](img/miteco5.png)
]

- .hi-pink[Año 2010] 🤯

![:scale 99%](img/miteco6.png)

]
---

- .hi-purple[2001 - 2011: cada contaminante se presenta en fichero `.xlsx`]

- .hi-purple[2012: cada contaminante se presenta en fichero `.xlsx` y `.csv`]

- .hi-purple[2013: cada contaminante se presenta en fichero `.csv`]

- .hi-purple[2014 - 2016: cada contaminante se presenta en fichero `.xlsx`]

- .hi-purple[2017 - 2022 : cada contaminante se presenta en fichero `.csv`]

.bg-washed-red.b--dark-red.ba.bw2.br3.shadow-5.ph3.mt1[

## > 130 ficheros en múltiples formatos 🤯🤯🤯

]

---

## .hi-purple[Resumiendo: ¡caos, pesadilla, debacle, descontrol, frustración, llantos, lágrimas,...!]

---

# El paquete `airqualityEs`

> .white["_The purpose of (data) display is comparison (recognition of phenomena), not numbers... The phenomena are the main actors, numbers are supporting cast._"] .fuente[John Tukey, 1973, *Estadístico estadounidense.*]

---

# 3. Instalación y Funcionalidades

.pull-left[
- Conjunto de datos que contiene .hi-purple[mediciones diarias de la calidad del aire en España durante un periodo de 22 años (de 2001 a 2022)]. Las mediciones se refieren a varios contaminantes:

- .hi-pink[PM10] y .hi-pink[PM2.5]
- .hi-pink[Pb] 
- .hi-pink[Cd] 
- .hi-pink[As] 
- .hi-pink[Ni]
- .hi-pink[C6H6]
]

- Son **datos publicados abiertamente** por el _Gobierno de España_.

- Los conjuntos de datos estaban **originalmente repartidos en varios archivos y formatos**.

- .hi-green[Aportación:] la misma información se encuentra en `airqualityES` en un sencillo marco de datos para facilitar la consulta a investigadores, periodistas o al público en general.

]

---

# 3. Instalación y Funcionalidades

``` r
install.packages("airqualityES")
```

La última versión en desarrollo del paquete también se puede cargar directamente desde GitHub utilizando el paquete devtools:

``` r
library(devtools)
install_github("jdieramon/airqualityES")
library(airquality)
```

- .hi-pink[What's new?]

- `v.1.1.0` .hi-purple[29-02-2020 Lanzamiento]
  - `v.1.2.0` .hi-red[30-11-2025 Primera actualización]
      - Data update: 2019 - actual
      - Introducción de un nuevo contaminante: **benzo[a]pyrene**
    
---

# 3. Instalación y Funcionalidades

.pull-right-3[
- **Ciudades:** .hi-purple[190] 
- **Estaciones:** .hi-purple[779]
.left[
![:scale 100%](img/tibble3.png)
]

]

---

# 3. Instalación y Funcionalidades

![:scale 99%](img/matrix.png)

]

---

# 3. Instalación y Funcionalidades

## Principio de Datos Ordenados `tidydata`

- `pivot_longer()` 
  - cada .hi-pink[variable] en una .hi-pink[columna]
  - cada .hi-purple[observación] en una .hi-purple[fila]
  - cada .hi-green[valor] en una .hi-green[celda]

- permite **agrupar**, **filtrar**, **resumir** 
 
 
]

![:scale 99%](img/tidy.png)

]

.bg-washed-green.b--dark-greem.ba.bw2.br3.shadow-5.ph3.mt1[

Facilita análisis y visualización para:

-  Descubrir patrones y plantear hipótesis.

]

---

# Repercusiones Ambientales del Confinamiento: ¿Fue Beneficioso para la Calidad del Aire?

> .white[_"Graphics is the visual means of resolving logical problems."_] .fuente[Jacques Bertin, *Graphics and Graphic Information Processing (2011).*]

---

## .purple[Efecto del Confinamiento en la ciudad de Valencia]

![:scale 99%](img/patterns.png)
Niveles de contaminación diarios para partículas PM2.5 durante los meses enero-junio 
para 2019 y 2020.

---

# El fallo de _Las Fallas:_ ¿son _Las Fallas_ un Elemento Contaminante para la Calidad del Aire?

> .white[_"...But is not always clear which 1000 words."_] .fuente[John Tukey, 1973, *Estadístico estadounidense*]

---

## .purple[¿Son las fiestas locales una fuente de contaminación ambiental?]

---

]
---

# Gracias

José Vicente Die Ramón<a href="mailto:z42diraj@uco.es">z42diraj@uco.es</a> José Rafael Caro Barrera<a href="mailto:z52cabaj@uco.es">z52cabaj@uco.es</a> Universidad de Córdoba <a href="https://cran.r-project.org/package=airqualityES">10.32614/CRAN.package.airqualityES</a> <a href="https://github.com/jrcarob/RValencia_Nov-25">https://github.com/jrcarob/RValencia_Nov-25</a>

]