Categoría de Cuerpos de Agua

1. Librerias

library(gt)
library(dplyr)

## 
## Adjuntando el paquete: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

2. Leer Datos

# =========================
# Cargar Datos
# =========================
datos <- read.csv(
  "waterPollution.csv",
  sep = ",",
  stringsAsFactors = FALSE
)

3. Selección de Variable

datos$parameterWaterBodyCategory <- recode(
  datos$parameterWaterBodyCategory,
  "GW" = "Aguas subterráneas",
  "LW" = "Agua de lagos",
  "RW" = "Agua de ríos"
)

4. Tabla de distribución de frecuencia

# =========================
# TABLAS CUALITATIVAS NOMINALES
# =========================

PWB <- datos$parameterWaterBodyCategory

TDF_PWB <- data.frame(table(PWB))

ni <- TDF_PWB$Freq
hi <- round((ni / sum(ni)) * 100, 2)

TDF_PWB <- data.frame(PWB = TDF_PWB$PWB, ni, hi)
Summary <- data.frame(PWB = "TOTAL", ni = sum(ni), hi = 100)

TDF_PWB_suma <- rbind(TDF_PWB, Summary)
colnames(TDF_PWB_suma) <- c("Cuerpos de agua", "ni", "hi(%)")

# =========================
# TABLA
# =========================

TDF_PWB_suma %>%
  gt() %>%
  tab_header(
    title = md("*Tabla Nro. 1*"),
    subtitle = md("**Distribución de Frecuencias de las Categorias de cuerpos de agua en el estudio de calidad de agua en Europa(1991-2017)**")
  ) %>%
  tab_source_note(
    source_note = md("Autor: Grupo 3")
  ) %>%
  tab_options(
    table.border.top.color = "black",
    table.border.bottom.color = "black",
    table.border.top.style = "solid",
    table.border.bottom.style = "solid",
    column_labels.border.top.color = "black",
    column_labels.border.bottom.color = "black",
    column_labels.border.bottom.width = px(2),
    row.striping.include_table_body = TRUE,
    heading.border.bottom.color = "black",
    heading.border.bottom.width = px(2),
    table_body.hlines.color = "gray",
    table_body.border.bottom.color = "black"
  )

Tabla Nro. 1
Distribución de Frecuencias de las Categorias de cuerpos de agua en el estudio de calidad de agua en Europa(1991-2017)
Cuerpos de agua	ni	hi(%)
Agua de lagos	61	0.30
Agua de ríos	19416	97.08
Aguas subterráneas	523	2.61
TOTAL	20000	100.00
Autor: Grupo 3

5. Gráficas

5.1 Diagrama de barras de cantidad

# =========================================
# Diagrama de barras genrado por RStudio 
# =========================================

barplot(ni,
        main = "Gráfica N°1: Distribución de las Categorias de cuerpos de agua 
        en el estudio de calidad de agua en Europa(1991-2017)",
        xlab = "Categoria de cuerpo de agua",
        ylab = "Cantidad",
        col = "mediumslateblue",
        ylim = c(0,max(ni)),
        las = 1,
        cex.names = 0.8,
        names.arg = TDF_PWB$PWB)

# ===========================================================
# Diagrama de barras con relación a la totalidad de los datos
# ===========================================================

barplot(ni,
        main = "Gráfica N°2: Distribución general de las 
        Categorias de cuerpos de agua en el estudio de calidad 
        de agua en Europa(1991-2017)",
        xlab = "Categoria de cuerpo de agua",
        ylab = "Cantidad",
        col = "mediumpurple1",
        ylim = c(0,20000),
        las = 1,
        cex.names = 0.8,
        names.arg = TDF_PWB$PWB)

5.2 Diagrama de barras porcentuales

# ======================================
# Diagrama de barras que genera RStudio
# ======================================

barplot(hi,
        main = "Gráfica N°3: Distribución porcentual de las 
        Categorias de cuerpos de agua en el estudio de calidad 
        de agua en Europa(1991-2017)",
        xlab = "Categoria de cuerpo de agua",
        ylab = "Porcentaje (%)",
        col = "mediumslateblue",
        ylim = c(0,max(hi)),
        las = 1,
        cex.names = 0.8,
        names.arg = TDF_PWB$PWB)

# ===========================================================
# Diagrama de barras porcentual con relación a la totalidad 
# ===========================================================
 
barplot(hi,
        main = "Gráfica N°4: Distribución porcentual general de las 
        Categorias de cuerpos de agua en el estudio de calidad 
        de agua en Europa(1991-2017)",
        xlab = "Categoria de cuerpo de agua",
        ylab = "Porcentaje (%)",
        col = "mediumpurple1",
        ylim = c(0,100),
        las = 1,
        cex.names = 0.8,
        names.arg = TDF_PWB$PWB)

5.3 Diagrama Circular

# =========================
# DIAGRAMA CIRCULAR
# =========================

etiquetas <- paste0(hi, " %")

colores <- c("steelblue3", "lightsteelblue3", "lightsteelblue1", "violetred", "wheat", "yellow")

par(mar = c(2, 2, 4, 6))

pie(
  hi,
  labels = etiquetas,
  col = colores,
  main = "Gráfica N°5: Distribución de las Categorias de cuerpos de agua 
  en el estudio de calidad de agua en Europa(1991-2017)",
  cex = 1
)

legend(
  "topright",
  legend = TDF_PWB$PWB,
  fill = colores,
  title = "Leyenda",
  cex = 0.5,
  xpd = TRUE
)

6. Indicadores Estadísticos

# =========================
# INDICADORES ESTADÍSTICOS
# =========================

# Moda
frecuencia_max <- max(TDF_PWB$ni)

modas <- TDF_PWB$PWB[
  TDF_PWB$ni == frecuencia_max
]

Mo_PWB <- paste(modas, collapse = " - ")

# Tabla resumen

tabla_indicadores <- data.frame(
  Variable = "Categoría de cuerpo de agua",
  Rango = "-",
  X = "-",
  Me = "-",
  Mo = Mo_PWB,
  V = "-",
  Sd = "-",
  Cv = "-",
  As = "-",
  K = "-",
  Valores_Atipicos = "-"
)

# Mostrar tabla

tabla_indicadores_gt <- tabla_indicadores %>%
  gt() %>%
  tab_header(
    title = md("*Tabla Nro. 3*"),
    subtitle = md("**Indicadores estadísticos de la categoría de cuerpos de agua 
                  en el estudio de calidad de agua en Europa(1991-2017)**")
  ) %>%
  tab_source_note(
    source_note = md("Autor: Grupo 3")
  ) %>%
  tab_options(
    table.border.top.color = "black",
    table.border.bottom.color = "black",
    column_labels.border.bottom.color = "black",
    row.striping.include_table_body = TRUE
  )

tabla_indicadores_gt

Tabla Nro. 3
Indicadores estadísticos de la categoría de cuerpos de agua en el estudio de calidad de agua en Europa(1991-2017)
Variable	Rango	X	Me	Mo	V	Sd	Cv	As	K	Valores_Atipicos
Categoría de cuerpo de agua	-	-	-	Agua de ríos	-	-	-	-	-	-
Autor: Grupo 3

7. Conclusión

El valor más frecuente de la variable Categoria de cuerpo de agua es el Agua de ríos