Reporte Interactivo: Monitoreo Ambiental

Resultados Preliminares

Este es un documento de prueba para verificar la integración entre R, Quarto y Google Sites. A continuación, generamos una serie de datos simulados sobre la concentración de atrazina en muestras de agua superficial.

library(tidyverse)
library(plotly)

# Simulamos datos de monitoreo mensual
set.seed(42)
datos_monitoreo <- tibble(
  mes = seq(as.Date("2026-01-01"), as.Date("2026-12-01"), by = "month"),
  atrazina_ug_L = runif(12, 0.5, 4.0) + sin(1:12) # Simulación de fluctuación
)

# Mostramos los primeros registros
head(datos_monitoreo)

# A tibble: 6 × 2
  mes        atrazina_ug_L
  <date>             <dbl>
1 2026-01-01          4.54
2 2026-02-01          4.69
3 2026-03-01          1.64
4 2026-04-01          2.65
5 2026-05-01          1.79
6 2026-06-01          2.04

#| label: grafico-interactivo


# 1. Creamos el gráfico estático con ggplot2
grafico_base <- ggplot(datos_monitoreo, aes(x = mes, y = atrazina_ug_L)) +
  geom_line(color = "#2c3e50", linewidth = 1) +
  geom_point(color = "#e74c3c", size = 3) +
  geom_hline(yintercept = 3.0, linetype = "dashed", color = "red") + 
  annotate("text", x = as.Date("2026-02-01"), y = 3.2, label = "Límite de Referencia", color = "red") +
  labs(
    title = "Evolución de Atrazina (2026)",
    x = "Fecha de Muestreo",
    y = "Concentración (µg/L)"
  ) +
  theme_minimal()

# 2. Lo transformamos en interactivo con plotly
ggplotly(grafico_base)