Muestreo y Mediciones Ambientales

Institución: UCE — FIGEMPA
Periodo: Cuarto Semestre 2026-2027
Autor: Grupo 1

Integrantes: Heredia Sofia, Criollo Cesar, Zambrano Camila, Yanes Clara

Basado en apuntes de F. Acevedo

1.- CARGA DE LIBRERÍAS

Cargar librerías necesarias

rm(list=ls())
gc()
##           used (Mb) gc trigger (Mb) max used (Mb)
## Ncells  624792 33.4    1433197 76.6   703846 37.6
## Vcells 1162099  8.9    8388608 64.0  1932161 14.8
Sys.setenv(tz="UTC")


library(readxl)
library(ggplot2)
library(knitr)
library(DT)

Confirmar directorio de trabajo actual

getwd()
## [1] "C:/Users/CESAR/Documents"

2. CARGA DEL DOCUMENTO AMBIENTAL

datos_originales <- read_excel("Datos_Temperatura.xlsx", sheet = "Datos limpios")

3. RECONOCIMIENTO Y EXPLORACIÓN

la tabla del resumen estadistico

dim(datos_originales)
## [1] 16  9
names(datos_originales)
## [1] "Punto"                "Lugar"                "Fecha"               
## [4] "Hora"                 "Temperatura (°C)"     "Humedad Relativa (%)"
## [7] "Latitud"              "Longitud"             "Observación"
str(datos_originales)
## tibble [16 × 9] (S3: tbl_df/tbl/data.frame)
##  $ Punto               : num [1:16] 1 2 3 4 5 6 7 8 9 10 ...
##  $ Lugar               : chr [1:16] "Calle Jerónimo Leiton" "Calle Jerónimo Leiton" "Calle Jerónimo Leiton" "Calle Jerónimo Leiton" ...
##  $ Fecha               : POSIXct[1:16], format: "2026-10-16" "2026-10-16" ...
##  $ Hora                : chr [1:16] "10:20:00" "10:25:00" "10:30:00" "10:35:00" ...
##  $ Temperatura (°C)    : num [1:16] 21.4 23.3 22 22.6 20.1 20.1 19.4 19.7 18 17.6 ...
##  $ Humedad Relativa (%): num [1:16] 37 30 31 31 32 30 35 33 34 33 ...
##  $ Latitud             : chr [1:16] "-0.198128" "-0.198129" "-0.198130" "-0.198131" ...
##  $ Longitud            : num [1:16] -78.5 -78.5 -78.5 -78.5 -78.5 ...
##  $ Observación         : chr [1:16] "Ninguna" "Ninguna" "Ninguna" "Ninguna" ...

Visualización de la tabla

# Crear tabla interactiva con barra deslizante y estilos formales
datatable(
  datos_originales, 
  caption = "Tabla 1. Primeras mediciones registradas de temperatura y humedad",
  options = list(
    pageLength = 5,          # Filas por página
    scrollX = TRUE,          # Barra deslizante horizontal si es muy ancha
    scrollY = "250px",       # Barra deslizante vertical con altura fija
    language = list(url = '//cdn.datatables.net/plug-ins/1.10.11/i18n/Spanish.json') # En español
  )
)

4. EXTRACCIÓN DE VARIABLES

punto       <- datos_originales$Punto
lugar       <- datos_originales$Lugar
temperatura <- datos_originales$`Temperatura (°C)`
humedad     <- datos_originales$`Humedad Relativa (%)`

5. RESUMEN ESTADÍSTICO BÁSICO

mean(temperatura, na.rm = TRUE)
## [1] 19.225
median(temperatura, na.rm = TRUE)
## [1] 18.7
sd(temperatura, na.rm = TRUE)
## [1] 2.163485

6. GRÁFICOS BÁSICOS

plot(punto, temperatura, type = "b", pch = 16, col = "steelblue",
     xlab = "Punto de Muestreo", ylab = "Temperatura (°C)",
     main = "Comportamiento de la Temperatura")
grid()

# 1. Configurar la ventana gráfica para ver ambos gráficos lado a lado
par(mfrow = c(1, 2))

# 2. Diagrama de caja (Boxplot) de la temperatura
boxplot(datos_originales$`Temperatura (°C)`, 
        ylab = "Temperatura (°C)",
        main = "Distribución de Temperatura", 
        col = "orange", 
        border = "darkorange4")
grid(nx = NA, ny = NULL)

# 3. Histograma de la temperatura
hist(datos_originales$`Temperatura (°C)`, 
     col = "lightblue", 
     border = "white",
     xlab = "Temperatura (°C)", 
     ylab = "Frecuencia",
     main = "Histograma de Temperatura")
grid()

# 4. Restaurar la configuración de la ventana a 1 solo gráfico por vista
par(mfrow = c(1, 1))