Realizamos Taller de ensamblado de sensores Sensor.Community en el marco de la Materia Contaminación y Saneamiento Ambiental de la carrera de Ing. en recursos Naturales Renovables.
Un analisis de las tendencias y se puede consultar aquĆ­
Los sensores fueron gentilmente cedidos por el Lab. de AnÔlisis Instrumental de la Facultad de Ingeniería que también ha colaborado en la evaluación de los datos.
Luego de una campaña de 1 mes y medio aproximadamente, realizamos una co-locación de los sensores en la FCA y aquí presentamos los resultados.

Co-locación FCA

El código y los datos crudos se pueden consultar en el repositorio de Gitlab

Datos de la campaƱa

La co-locación fue de aproximadamente 1 semana y media en las instalaciones de la FCA

Nomeclatura sensores material particulado:

ID nodo ID sensor Tipo Ubicación Referencia
16614917 16013 sds011 Mitre-Ciudad sds011_DWT
7233236 34429 sds018 Las Tortugas-G.Cruz sds18_LT
7801045 47001 pms7003 V.Hipódromo-G.Cruz pms7003_VH
3210739 65191 sps30 M.Drummond-Lujan sps30_MD
1594166 65321 sds021 Las compuertas-Lujan sds021_LC

Lectura de los datos de los datos de los sensores

Los datos son descargados del archivo de Sensor.Community y luego procesados para pasar el timestamp de UTC a hora local.

## 
## Attaching package: 'lubridate'
## The following objects are masked from 'package:base':
## 
##     date, intersect, setdiff, union
## -- Attaching packages --------------------------------------- tidyverse 1.3.0 --
## v ggplot2 3.3.3     v dplyr   1.0.4
## v tibble  3.0.6     v stringr 1.4.0
## v readr   1.4.0     v forcats 0.5.1
## v purrr   0.3.4
## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x lubridate::as.difftime() masks base::as.difftime()
## x lubridate::date()        masks base::date()
## x dplyr::filter()          masks stats::filter()
## x lubridate::intersect()   masks base::intersect()
## x dplyr::lag()             masks stats::lag()
## x lubridate::setdiff()     masks base::setdiff()
## x lubridate::union()       masks base::union()

Resumen de los datos

##      date1      date2 sds011_DWT  sds018_LT pms7003_VH   sps30_MD  sds021_LC 
##  "POSIXct"   "POSIXt"  "numeric"  "numeric"  "numeric"  "numeric"  "numeric"

Series temporales - Valores horarios de todos los sensores

## Registered S3 method overwritten by 'GGally':
##   method from   
##   +.gg   ggplot2
## Warning: Removed 144 rows containing non-finite values (stat_density).
## Warning in ggally_statistic(data = data, mapping = mapping, na.rm = na.rm, :
## Removed 144 rows containing missing values

## Warning in ggally_statistic(data = data, mapping = mapping, na.rm = na.rm, :
## Removed 144 rows containing missing values

## Warning in ggally_statistic(data = data, mapping = mapping, na.rm = na.rm, :
## Removed 144 rows containing missing values

## Warning in ggally_statistic(data = data, mapping = mapping, na.rm = na.rm, :
## Removed 144 rows containing missing values
## Warning: Removed 144 rows containing non-finite values (stat_smooth).
## Warning: Removed 144 rows containing missing values (geom_point).
## Warning: Removed 144 rows containing non-finite values (stat_smooth).
## Warning: Removed 144 rows containing missing values (geom_point).
## Warning: Removed 144 rows containing non-finite values (stat_smooth).
## Warning: Removed 144 rows containing missing values (geom_point).
## Warning: Removed 144 rows containing non-finite values (stat_smooth).
## Warning: Removed 144 rows containing missing values (geom_point).