-
Notifications
You must be signed in to change notification settings - Fork 5
/
index.qmd
755 lines (476 loc) · 29.6 KB
/
index.qmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
---
title: "Proyecto Paraná 2023"
format:
html:
anchor-sections: true
number-sections: true
smooth-scroll: true
embed-resources: true
include-in-header:
- extras/favicon.html
- extras/esquina.html
- extras/abrev_toc.html
- extras/boton_arriba.html
- extras/fontawesome-mermaid.html
theme:
- extras/mis_estilos.scss
toc: true
toc-float: false
toc-location: left
toc-title: "Contenido"
mainfont: Ubuntu
link-external-icon: false
link-external-newwindow: true
link-citations: true
code-link: true
code-copy: true
code-annotations: false
code-line-numbers: false
tbl-cap-location: margin
fig-cap-location: bottom
bibliography: biblio/bibliografia.bib
csl: biblio/ieee.csl
html-math-method: katex
callout-icon: false
backgroundcolor: "#F5F5F5"
editor_options:
chunk_output_type: console
crossrefs-hover: false
crossref:
chapters: true
lang: es
execute:
echo: false
warning: false
eval: true
date: last-modified
---
```{r scripts}
#| eval: true
#| echo: false
#| output: false
# corro todos los scripts
source("scripts_quarto/soporte.R")
r_script <- list.files(path = "scripts_quarto/", full.names = TRUE)
r_script <- r_script[!str_detect(r_script, "soporte")]
r_script <- r_script[!str_detect(r_script, "/_")]
purrr::map(r_script, source)
```
<!-- cómo agregar referencias cruzadas
https://quarto.org/docs/authoring/cross-references.html#references -->
<!-- link a los sitios de las funciones
https://quarto.org/docs/authoring/cross-references.html#references -->
<!-- los bloques de callout
https://quarto.org/docs/authoring/callouts.html -->
<!-- layout de las columnas
https://quarto.org/docs/authoring/article-layout.html#body-column -->
<!-- referencias cruzadas de figuras/tablas/secciones
https://quarto.org/docs/authoring/cross-references.html#references -->
<!-- formatos de tiempo
?strptime -->
<!-- agregar favicon
https://quarto.org/docs/output-formats/html-basics.html#includes -->
<!-- formato de citas
https://quarto.org/docs/authoring/citations.html#sec-citations -->
<!-- cambiar el texto en toc
https://stackoverflow.com/a/76764108/13742303 -->
<!-- mermaid para generar diagramas de flujo
https://mermaid.js.org/syntax/flowchart.html -->
<!-- agregar transparencia a colores HEX https://gist.github.com/lopspower/03fb1cc0ac9f32ef38f4 -->
Este documento funciona como soporte del proyecto <b>Estimar indicadores de calidad de agua en la cuenca media del río Paraná para el desarrollo de un algoritmo mediante técnicas de teledetección satelital</b> (MSECRE0008604), desarrollado por el <b>Grupo de Investigación Sobre Temas Ambientales y Químicos</b> ([GISTAQ]((https://www.instagram.com/gistaq.utn/))) de la <b>Universidad Tecnológica Nacional Facultad Regional Resistencia</b> ([UTN-FRRe](https://www.frre.utn.edu.ar)).
El mencionado proyecto forma parte de las tareas de investigación del MS. Víctor Gauto, en el marco del <b>Doctorado en Geomática y Sistemas Espaciales</b>, dictado por el [Instituto Gulich](https://ig.conae.unc.edu.ar), en conjunto con la <b>Universidad Nacional de Córdoba</b> ([UNC](https://www.unc.edu.ar/)) y la <b>Comisión Nacional de Actividades Espaciales</b> ([CONAE](https://www.argentina.gob.ar/ciencia/conae)).
Asimismo, el doctorando cuenta con una beca CONICET radicada en el <b>Instituto de Investigaciones para el Desarrollo Territorial y del Hábitat Humano</b> ([IIDTHH](https://iidthh.conicet.gov.ar/)) de la <b>Universidad Nacional del Nordeste</b> ([UNNE](https://www.unne.edu.ar)).
El presente sitio web contiene una introducción ([-@sec-introduccion]) al proyecto, seguido de la descripción del área de estudio ([-@sec-roi]). Hay un calendario de muestreos ([-@sec-muestreos]) y los resultados ([-@sec-resultados]) se muestran por sitio y característica fisicoquímica, seguido de las firmas espectrales ([-@sec-firmas-espectrales]). En la discusión ([-@sec-discusion]) se analizan trabajos referentes a turbidez, sólidos suspendidos y profundidad de disco de Secchi. Se indican el objetivo ([-@sec-objetivos]) general y específicos junto con las tareas informáticas de procesamiento ([-@sec-ejecucion]) de datos. Se proponen y analizan múltiples algoritmos ([-@sec-algoritmos]). Finalmente, la informacón de contacto ([-@sec-contacto]).
La finalidad de este desarrollo es reunir en un único sitio web las características principales del proyecto de investigación para entender cómo registrar datos, visualizar resultados, evaluar algoritmos y que, además, sea utilizado como material de consulta general de la metodología.
# Introducción {#sec-introduccion}
La preservación del agua es fundamental para el desarrollo humano y el monitoreo de la calidad del agua es una actividad importante para la preservación de los recursos. Para garantizar la disponibilidad de agua, de acuerdo con la Agenda 2030 para el Desarrollo Sostenible @agenda2030, es necesario realizar un estudio de la calidad de la misma. Las técnicas de teledetección satelital, aplicadas a la calidad de los cuerpos de agua, han ido incrementándose en los últimos años verificando la viabilidad de los sensores satelitales @Bonansea2019. Dichas técnicas, que se pueden utilizar para desarrollar algoritmos que permiten estimar distintos parámetros fisicoquímicos del agua [@Gholizadeh2016; @Ferral2018a], requieren datos espectrales obtenidos por sensores montados en plataformas satelitales. Sentinel-2 (S2) es una misión de observación de la Tierra, de la Agencia Espacial Europea (ESA), que consta de dos plataformas (S2A, S2B). El rango espectral del instrumento multiespectral (MSI), el sensor principal, es de 440 a 2200 nm, con una resolución espacial de 10 m en bandas seleccionadas y 5 días de tiempo de revisita, según la región de interés. Las imágenes S2-MSI son de acceso libre y gratuito desde el Ecosistema Espacial de Datos de Copernicus. Debido a una baja incertidumbre radiométrica @Gorroño2017, los productos generados por S2--MSI son confiables @Phiri2020 y se han utilizado para estimar el color del agua @wangWaterColorSentinel22023, la concentración de clorofila-a @bramichImprovedRededgeChlorophylldetection2021 y la materia orgánica disuelta coloreada (CDOM) @liuRemoteSensingCDOM2021.
Los ecosistemas de agua dulce son vulnerables a los cambios en la gestión de usos de la tierra, los impactos antrópicos @Lovino2018 y la variabilidad climática @Hestir2015. Estos ecosistemas están presentes en lagos, arroyos, ríos y humedales. La aplicación de técnicas de teledetección a las aguas superficiales continentales presenta un desafío debido a la extensión relativamente menor y la alta complejidad espacial. Tradicionalmente, las aguas continentales se estudian mediante el desarrollo de algoritmos que correlacionan las propiedades espectrales con los parámetros fisicoquímicos. Este proceso debe validarse a través de mediciones in situ @Liang2004.
Los algoritmos de teledetección, para recuperar las propiedades de las aguas superficiales, incluyen clorofila-a, sólidos suspendidos totales, turbidez y otras @Sagan2020a. Los modelos de regresión empírica se basan en ecuaciones lineales o exponenciales de reflectancia o radiancia detectadas remotamente @Chen2017. El desarrollo de un algoritmo empírico requiere un análisis estadístico entre la medición de los componentes o propiedades del agua y los datos radiométricos @ogashawaraRemoteSensingInland2017d. Para analizar dichas propiedades, esos algoritmos requieren campañas de campo y, debido a la presencia de componentes múltiples y complejos en las aguas, el desarrollo de modelos globales no es factible; por ende, un enfoque adecuado consistiría en desarrollar modelos regionales validados @yangReviewRemoteSensing2022.
El Área Metropolitana del Gran Resistencia (AMGR), en el noreste de Argentina, es la principal área urbana de la provincia del Chaco e incluye cuatro ciudades y 423.000 habitantes, según el último censo de 2022 @indec2022. Está emplazada en el valle de inundación del río Paraná y se desarrolla principalmente en el interfluvio del río Negro y el riacho Arazá. Las lluvias o sequías continuas modifican el patrón de los ríos y arroyos, generando lagunasgit de meandros @PoideNeiff2003. Aunque el terreno del AMGR es plano, el ecosistema corresponde a un humedal y, como consecuencia, en el área urbana están insertos múltiples cursos y cuerpos de agua. En concordancia con esto, la estimación de la calidad del agua es sumamente relevante para evaluar el impacto humano en el ambiente, planificar medidas de corrección y evaluar sus efectos.
{{< include scripts_quarto/_area_de_estudio.qmd >}}
::: {.column-screen-right}
![Imagen satelital de la región de interés. Mapa superior: ubicación relativa a Argentina.](figuras/roi.png){#fig-roi}
:::
La región de interés, donde se hacen las campañas de campo se muestra en la figura [-@fig-roi]. Los tres puntos señalados sobre el río Paraná se utilizaron para generar la figura [-@fig-boxplot-puntos].
# Materiales y métodos
El diagrama mostrado en la figura [-@fig-workflow] corresponde al flujo de trabajo para la obtención y generación de resultados.
:::{.column-screen-right}
<center>
```{mermaid}
%%| fig-cap: Flujo de trabajo.
%%| label: fig-workflow
%%{
init: {
'themeVariables': {
'lineColor': '#B86092',
'edgeLabelBackground': '#F5F5F5B3'
}
}
}%%
flowchart LR
a1([fa:fa-droplet Muestreo de agua])-->a2[Mediciones in-situ y<br>en laboratorio]
a2-->a3([Propiedades fisicoquímicas])
b1([fa:fa-satellite Producto S2-MSI L2A])-->b2[Extracción de R<sub>rs</sub>]
b2-->b3([Firma espectral])
a3--> |<i>turb, cond<br>susp, secchi<br></i>pH| E[(Base<br>de datos)]
b3--> |B01~B8A,<br>B11, B12| E
E-->F([Figuras fa:fa-chart-line])
E-->G([Tablas fa:fa-table])
E-->H([Mapas fa:fa-map])
classDef default fill:#F5F5F5,stroke:#007E2E,stroke-width:1px,font-family:Ubuntu,color:black;
linkStyle default stroke:#B86092,stroke-width:1px;
```
</center>
:::
# Muestreos {#sec-muestreos}
Los muestreos, según lo permita la logística, se llevan a cabo en la fecha de adquisición de Sentinel-2 (S2-MSI) cada 5 días sobre la región de interés, con cielo despejado. El plan de adquisición actualizado puede [descargarse](https://sentinels.copernicus.eu/web/sentinel/copernicus/sentinel-2/acquisition-plans) en formato `.kml`.
En cada fecha se toman 8 muestras de agua sobre una transecta a lo largo del río Paraná. Los sitios son aproximadamente equidistantes entre sí y con las orillas.
```{r tbl-adq}
#| label: tbl-adq
#| tbl-cap: !expr caption_adq
tabla_adquisicion
```
## Metodología de muestreo
::: {.callout-note title="Mostrar" collapse=true}
El calendario completo de muestreos para el resto del año se encuentra en el siguiente [link](https://github.com/vhgauto/gistaq_parana/blob/main/calendario_2024.pdf).
Las muestras de agua se toman en botellas de vidrio color caramelo de 1 litro y se registra la posición geográfica del sitio.
In situ, se miden: pH, conductividad y profundidad de disco de Secchi (SDD). Luego, en el laboratorio se analizan turbidez y sólidos suspendidos totales (TSM). A continuación se describe cada parámetro fisicoquímico:
* pH y conductividad (μS/cm), a partir de un equipo multiparamétrico.
* Profundidad de disco de Secchi (cm).
* Sólidos suspendidos totales (ppm) por gravimetría, utilizando el método 2540 D. sólidos totales en suspensión secados a 103-105°C del Standard Methods (APHA, AWWA, WPCF, 2017, p.2-70), que emplea filtros de fibra de vidrio de 47 mm de diámetro y 0,5 μm de poro.
* Turbidez, a través de dos métodos:
- Colorimétrico (NTU), utilizando el equipo HACH, programa 95.
- Turbidímetro (EBC), que emplea el Hazemeter.
La relación entre las unidades de turbidez es: $1~NTU = 0,25~EBC$.
:::
Para simplificar, se van a usar las siguientes siglas para denominar a las propiedades fisicoquímicas en el resto del presente documento.
::::: {.callout-note appearance="simple" title=""}
:::: {.columns}
::: {.column width="20%"}
* *turb*<br>
* *secchi*<br>
* *susp*<br>
* *cond*<br>
:::
::: {.column width="80%"}
Turbidez (NTU)<br>
Profundidad de disco de Secchi (cm)<br>
Sólidos suspendidos totales (ppm)<br>
Conductividad (μS/cm)<br>
:::
::::
:::::
# Resultados {#sec-resultados}
Se muestran las correlaciones lineales entre los parámetros espectrales y fisicoquímicos. De estos últimos, se incluye la serie temporal según el sitio de muestreo.
Las firmas espectrales se encuentran en la siguiente sección ([$\S$@sec-firmas-espectrales]).
## Sitios muestrales
Se indican los sitios de muestreo para todas las fechas disponibles junto con la imagen en composición de color real correspondiente.
```{r mapa_interactivo}
#| column: screen-right
#| warning: false
#| fig-align: left
#| fig-asp: 1
#| fig-cap: Mapa interactivo de los sitios de toma de muestra y propiedades fisicoquímicas.
mapa_interactivo
```
<br>
Actualmente, se realizaron <b>`r cantidad_fechas` muestreos</b>, en los que se recolectaron <b>`r cantidad_muetras` muestras de agua</b>.
En todos los casos, no se apreció la presencia de nubes sobre los puntos de toma de muestras.
Los ocho sitios muestrales se nombran correlativamente de `P1` a `P8`, iniciando en la <b style='color:`r c1`'>orilla chaqueña</b> y finalizando en la <b style='color:`r c2`'>costa de Corrientes</b>.
## Datos fisicoquímicos
Las siguientes figuras muestran la evolución de las propiedades fisicoquímicos a lo largo de la longitud geográfica entre orillas y la fecha de muestreo.
::: {.panel-tabset}
## *turb*
```{r}
lista_figura_evolucion_lab[[1]]
```
## *secchi*
```{r}
lista_figura_evolucion_lab[[2]]
```
## *susp*
```{r}
lista_figura_evolucion_lab[[3]]
```
## *cond*
```{r}
lista_figura_evolucion_lab[[4]]
```
## pH
```{r}
lista_figura_evolucion_lab[[5]]
```
:::
Tabla de coeficientes de correlación lineal <b>R</b> (Pearson) entre pares de parámetros fisicoquímicos. Los valores se acomodan como una matriz triangular para evitar repeticiones.
```{r corr_laboratorio}
#| label: tbl-corr-lab
#| tbl-cap: !expr caption_tabla
tabla_corr_lab
```
Las correlaciones mostradas en la @tbl-corr-lab pueden visualizarse en las siguientes figuras. La línea punteada corresponde al mejor ajuste lineal para cada par de parámetros.
:::: {.panel-tabset}
## <i>turb</i> vs <i>cond</i>
![](figuras/cond_vs_turb.png)
## <i>susp</i> vs <i>cond</i>
![](figuras/cond_vs_sol_sus.png)
::: {.column-margin}
:::
## <i>secchi</i> vs <i>susp</i>
![](figuras/sol_sus_vs_secchi.png)
::: {.column-margin}
<br><br>Figura en escala doble logarítmica.
:::
## <i>secchi</i> vs <i>turb</i>
![](figuras/turb_vs_secchi.png)
::: {.column-margin}
<br><br>Figura en escala doble logarítmica.
:::
## <i>susp</i> vs <i>turb</i>
![](figuras/turb_vs_sol_sus.png)
::::
Las propiedades fisicoquímicas del agua cambian a lo largo de la transecta. Se divide el conjunto de datos en <b>lado Chaco</b> o <b>lado Corrientes</b>, según si la longitud geográfica de las observaciones son menores o mayores a la longitud media, respectivamente.
```{r}
cap1 <- glue(
"<br><br><br>{simbolo_sig} $=pvalor<0.05$<br><br>",
"Existe diferencia significativa entre los grupos."
)
```
:::: {.panel-tabset}
## <i>turb</i>
![](figuras/lado_turb.png)
[`r cap1`]{.aside}
## <i>secchi</i>
![](figuras/lado_secchi.png)
[`r cap1`]{.aside}
## <i>susp</i>
![](figuras/lado_sol_sus.png)
[`r cap1`]{.aside}
## <i>cond</i>
![](figuras/lado_cond.png)
[`r cap1`]{.aside}
## pH
![](figuras/lado_ph.png)
[`r cap1`]{.aside}
::::
# Firmas espectrales {#sec-firmas-espectrales}
La reflectancia de superficie ($\rho_{r}$) @chuvieco1996 se define como el cociente entre la radiación reflejada por la superficie de interés ($\Phi_{r}$) y la radiación solar incidente ($\Phi_{i}$), a una longitud de onda específica ($\lambda$), de acuerdo a la ecuación [-@eq-reflect].
$$
\rho_{r}(\lambda)=\frac{\Phi_{r}(\lambda)}{\Phi_{i}(\lambda)}
$$ {#eq-reflect}
Por definición, $\rho_{r}$ adopta el rango entre $0-1$.
Una definición más rigurosa @Chen2017 indica que la reflectancia de sensado remoto ($R_{rs}(\lambda)$) se expresa como el cociente entre la radiancia saliente del agua verticalmente ascendente ($L_{w}(\lambda)$) y la irradiancia verticalmente descendente sobre la superficie del agua ($E_d(0^{+})$), a una longitud de onda $\lambda$, según la ecuación [-@eq-r-rs].
$$
R_{rs}(\lambda)=\frac{L_{w}(\lambda)}{E_{d}(0^{+})}
$$ {#eq-r-rs}
Con los pares ordenados de $R_{rs}$ y $\lambda$ para las bandas de S2-MSI, se construyen figuras que muestran el comportamiento espectral del agua, llamadas **firmas espectrales**, las cuales son específicas para cada cobertura y dan cuenta de algunas de sus propiedades.
A partir de los valores de píxel de las reflectancias de superficie ([$\S$@sec-base-de-datos]) se construyen firmas espectrales, que permiten inferir las características del agua. Las firmas espectrales a lo largo de la transecta en el río Paraná, sirven para ver el cambio entre costas.
Firmas espectrales por fecha y sitio muestral a lo largo de una línea transecta.
::: {.panel-tabset}
## `r fechas_gis_v[1]`
```{r}
lista_firma_espectral[[1]]
```
## `r fechas_gis_v[2]`
```{r}
lista_firma_espectral[[2]]
```
## `r fechas_gis_v[3]`
```{r}
lista_firma_espectral[[3]]
```
## `r fechas_gis_v[4]`
```{r}
lista_firma_espectral[[4]]
```
## `r fechas_gis_v[5]`
```{r}
lista_firma_espectral[[5]]
```
:::
<br>
Las curvas de <b style='color:`r c1`'>color violeta</b> corresponden a los sitios cercanos a la orilla chaqueña. Los puntos próximos a la costa correntina son de <b style='color:`r c2`'>color verde</b>.
Generalmente, las firmas espectrales del lado chaqueño presentan los mayores valores. A medida que los sitios de muestreo se acercan al lado correntino, las firmas espectrales comienzan a aplanarse.
El efecto de las características cambiantes del agua no es el mismo para las bandas espectrales de S2-MSI, tal como se muestra en la tabla @tbl-boxplot-firma-espectral.
La distribución (en formato de gráfico de cajas) de R<sub>rs</sub> por banda, indica que en ciertas bandas se observa un efecto de la composición del agua más que en otras.
Las bandas B11 y B12 muetran una distribución estrecha, con bajos valores de reflectancia, a pesar de los cambios observados en el agua. En contraste, las bandas B04 y B05 abarcan un mayor rango de respuesta espectral y valores altos.
```{r tbl-boxplot-firma-espectral}
#| label: tbl-boxplot-firma-espectral
#| tbl-cap: Distribución de reflectancia de superficie por banda espectral.
tabla_boxplot_firma_espectral
```
Se seleccionaron tres sitios fijos, mostrados en la figura @fig-roi, para extraer los valores de R<sub>rs</sub> y evaluar el cambio en la respuesta espectral a lo largo del río Paraná.
La figura [-@fig-boxplot-puntos] muestra que las características de la composición del agua tiene poca repercusión para las bandas B11 y B12, dado que se mantienen constantes en los puntos extremos y en el medio del curso de agua.
En cambio, las bandas B04 y B05 muestran una notable disminución de la R<sub>rs</sub> en dirección Chaco-Corrientes.
```{r}
cap2 <- glue(
"Distribución de R<sub>rs</sub> a partir de gráficos de cajas por sitio ",
"fijo y banda espectral. {simbolo_sig} en la esquina de cada panel marca ",
"diferencia significativa ($pvalor<0.05$) entre los conjuntos de la costa ",
"<b style='color: {c1}'>chaqueña</b> y ",
"<b style='color: {c2}'>correntina</b>."
)
```
::: {.column-screen-right}
![`r cap2`](figuras/puntos_boxplot.png){#fig-boxplot-puntos}
:::
Las características espectrales de S2-MSI se muestran en la siguiente tabla:
```{r tbl-s2msi}
#| label: tbl-s2msi
#| tbl-cap: <br>Propiedades de las bandas S2-MSI, para las plataformas S2A y S2B.
tabla_s2msi
```
# Discusión {#sec-discusion}
Esta sección recolecta información bibliográfica referente a parámetros de laboratorio estimados mediante teledetección satelital.
Se eligieron tres propiedades del agua: turbidez, sólidos suspendidos y profundidad de disco de Secchi.
A continuación se muestran (según en caso) las ecuaciones para la estimación de las propiedades, los sensores y longitudes de onda empleados, las características de los cuerpos de agua y la justificación de los autores, junto con la referencia bibliográfica.
Se pretende poder justificar los algoritmos desarrollados propios a partir de los obtenido por otros autores.
Las características de las bandas espectrales de S2-MSI se encuentran en la tabla [-@tbl-s2msi].
* Métodos tradicionales
Ecuaciones directas, usualmente polinomios, de la forma general:
$$
propiedad = f(bandas~espectrales)
$$
Estas expresiones permiten evaluar la contribución de las bandas espectrales, y sus combinaciones, al valor de la propiedad fisicoquímica estimada.
Son usuales las expresiones que incorporan índices espectrales, sensibles a alguna característica del agua, como ser NDCI (índice normalizado de diferencia de clorofila) [@Mishra2012; @Buma2020], NDTI (índice normalizado de diferencia de turbidez) @Lacaux2007, entre otros.
* Aprendizaje automático
Las técnicas de aprendizaje automático permiten encontrar relaciones entre las propiedades del agua y la reflectancia de superficie, a distintas longitudes de onda.
{{< include scripts_quarto/_turbidez.qmd >}}
{{< include scripts_quarto/_secchi.qmd >}}
{{< include scripts_quarto/_sol_sus.qmd >}}
# Objetivos {#sec-objetivos}
El objetivo principal del proyecto de investigación es:
::: {.callout-note appearance="simple" icon=false}
<p style='font-size:1.1rem'>
Modelar la calidad del agua en una porción de la cuenca media del río Paraná mediante el desarrollo de un algoritmo construido a partir de técnicas estadísticas, información espacial y datos de campo.
</p>
:::
## Objetivos específicos
::: {.callout-note title="Mostrar" collapse=true}
* Seleccionar un sector de la cuenca media del río Paraná, en la confluencia de los ríos Paraguay-Paraná, y en la toma de agua de la empresa potabilizadora de la ciudad de Resistencia.
* Definir la cantidad y ubicación geográfica de los sitios de muestreo considerando el sensor satelital elegido, la logística y las características de la región de interés.
* Analizar los sólidos suspendidos y la turbidez como indicadores de la calidad del agua en las muestras recolectadas en los sitios previamente seleccionados.
* Construir una base de datos espaciotemporales a partir de productos satelitales ópticos, en reflectancia de superficie.
* Calcular índices espectrales relacionados con la cuantificación de los indicadores de calidad del agua.
* Desarrollar un algoritmo semiempírico que permita estimar indicadores de la calidad del agua a partir de los datos de campo y los datos espectrales de los productos espaciales.
* Validar el algoritmo desarrollado, evaluar su significancia estadística y compararlo con otros encontrados en referencias bibliográficas.
* Generar mapas de los parámetros estimados y su evolución temporal a partir de la aplicación del algoritmo obtenido.
* Analizar espaciotemporalmente el comportamiento de los indicadores de calidad de agua.
* Formar RRHH en el área específica.
:::
El desarrollo de algoritmos empíricos requiere de datos espectrales y fisicoquímicos del agua, la propuesta de modelos candidatos, la selección final de los modelos y la validación de los mismos. Luego, la generación de mapas para evaluar la distribución espacial de las propiedades.
Se pretende automatizar la descarga, extracción y almacenamiento de los datos espectrales y fisicoquímicos del agua en los sitios de muestreo, junto con las coordenadas geográficas.
A medida que el proyecto avance, los resultados parciales serán registrados en el presente sitio web, para su seguimiento y revisión por parte de los integrantes.
# Ejecución {#sec-ejecucion}
::: {.callout-note title="Mostrar" collapse=true}
El proyecto está gestionado mediante el paquete [`targets`](https://books.ropensci.org/targets/). Para ejecutar todas las funciones, correr en la consola:
```{r tar_make}
#| eval: false
#| echo: true
targets::tar_make()
```
Esto genera una ejecución en cadena de múltiples funciones que permiten la obtención de datos espectrales y fisicoquímicos para la generación y almacenamiento de resultados.
Utilizar `targets` permite asegurar el orden correcto de ejecución y facilita la resolución de potenciales problemas.
## Funciones
El archivo `_targets.R` contiene los paquetes necesarios y las funciones a ejecutar, en el orden adecuado y las relaciones entre sí.
Para visualizar las dependencias y el estado actual entre funciones correr:
```{r tar_viz}
#| eval: false
#| echo: true
targets::tar_visnetwork()
```
```{r grafo_funciones}
#| fig-cap: Grafo de dependencias.
#| label: fig-visnetwork
targets::tar_visnetwork()
```
La figura es interactiva y pueden seleccionarse los nodos para identificar las dependencias.
## Creación de objetivos
Para generar nuevos objetivos, hay que editar el archivo `_targets.R` agregando un nuevo elemento a `list()`:
```{r tar_target}
#| eval: false
#| echo: true
targets::tar_target(
names = nombre_de_objetivo,
command = funcion()
)
```
La `funcion()` se desarrolla en el archivo `scripts/funciones.R`. En caso de hacer el seguimiento de archivos agregar el argumento `format = "file"`.
Los objetivos se muestran como círculos (`r icono_circulo`) en el [grafo -@fig-visnetwork] de dependencias.
## Datos
Los datos generados son del tipo archivo de texto (`.csv`) y ráster (`.tif`).
### Bases de datos {#sec-base-de-datos}
La ejecución de `targets` tiene como propósito ([$\S$@sec-objetivos]) la obtención de los datos espectrales y fisicoquímicos de los sitios de muestreo sobre el río Paraná.
* Datos espectrales, `datos/base_de_datos_gis.csv`
El archivo de texto posee los valores de reflectancia de superficie (entre $0 - 1$) para cada banda de S2-MSI. Se generan dos valores para cada sitio: <b>1x1</b>, que consiste en el valor exacto del píxel; y <b>3x3</b>, que toma la media de una ventana de píxeles alrededor del píxel central.
Se incluye la fecha, el número de sitio y las coordenadas geográficas en el sistema EPSG:4326, en latitud y longitud.
* Datos fisicoquímicos, `datos/base_de_datos_lab.csv`
Sobre el curso de agua se obtienen pH, conductividad, profundidad de disco de Secchi y las coordenadas geográficas. En laboratorio se miden turbidez por dos métodos: colorimétrico (HACH) y turbidímetro (Hazemeter), y sólidos suspendidos por gravimetría.
### Recortes ráster
Los productos S2-MSI son recortados a la región de interés, alrededor del [Puente Chaco-Corrientes](https://www.openstreetmap.org/#map=15/-27.4687/-58.8608).
Se genera un stack con las bandas de interés y se almacena con el nombre de la fecha correspondiente en la carpeta `recorte/` con formato `.tif`.
## Entorno de ejecución
Definir las versiones de los paquetes utilizados en el presente proyecto es relevante ya que permite asegurar la reproducibilidad de los resultados. Para tal fin se emplea el paquete [`renv`](https://rstudio.github.io/renv/).
La instalación de paquetes se realiza de manera tradicional:
```{r install-pack}
#| eval: false
#| echo: true
install.packages("nombre_del_paquete")
```
Cada vez que se instale, actualice o remueva un nuevo paquete ejecutar en la consola:
```{r renv-snap}
#| eval: false
#| echo: true
renv::snapshot()
```
Esto actualiza el archivo `renv.lock` con la información de cada paquete. Para verificar el estado actual de `renv`, correr:
```{r renv-status}
#| eval: false
#| echo: true
renv::status()
```
## Quarto
El presente sitio web fue desarrollado con la herramienta [Quarto](https://quarto.org/). Para generar el sitio web se debe renderizar el archivo `index.qmd` que produce `index.html`.
La publicación se lleva a cabo en [Quarto Pub](https://quartopub.com/). Los datos de publicación se registran en el archivo `_publish.yml`.
Para regenerar el `.html` e inmediatamente publicar el sitio web, correr en la terminal:
```{.bash}
quarto publish index.qmd
```
En la terminal se debe elegir la cuenta asociada a Quarto Pub.
:::
# Algoritmos {#sec-algoritmos}
El desarrollo de los algoritmos para la estimación de indicadores de calidad del agua requiere la combinación de datos espectrales y fisicoquímicos.
Se proponen múltiples modelos para la estimación de parámetros. Se siguen los lineamientos de [`tidymodels`](https://www.tmwr.org/) para el entrenamiento y validación de los modelos.
# Contacto {#sec-contacto}
Integrantes del Proyecto de Investigación.
Profesionales:
* Enid Utgés
* Daniela Tenev
* Víctor Gauto
Becarios:
* Mauricio Acosta
* Vera Geneyer
* Víctor Gómez
* Bruno Lossada Dusset
Los archivos que generan este sitio web están disponibles en [{{< fa brands github >}}](https://vhgauto.quarto.pub/gistaq-parana/).
Sitio web desarrollado y mantenido por: <b>Víctor Gauto</b>. [{{< fa envelope >}}](mailto:[email protected]), [{{< fa brands github >}}](https://github.com/vhgauto).
Grupo de Investigación Sobre Temas Ambientales y Químicos (<b>GISTAQ</b>). [{{< fa envelope >}}](mailto:[email protected]), [{{< fa brands instagram >}}](https://www.instagram.com/gistaq.utn/), [{{< fa brands facebook >}}](https://www.facebook.com/GISTAQ/).
<br>
::: {.column-screen-inset}
<center>
![](extras/logo-gistaq.png){height=50}
`r espacios()`
![](extras/logo-utn-frre.png){height=50}
`r espacios()`
![](extras/logo-gulich.png){height=50}
`r espacios()`
![](extras/logo-conae.png){height=50}
`r espacios()`
![](extras/logo-unc.png){height=50}
`r espacios()`
![](extras/logo-iidthh.png){height=50}
`r espacios()`
![](extras/logo-conicet.png){height=50}
`r espacios()`
![](extras/logo-unne.png){height=50}
</center>
:::