ESTUDIO ESTADÍSTICO DE LA CONTAMINACIÓN DEL AIRE EN LA INDIA

UNIVERSIDAD CENTRAL DEL ECUADOR

PROYECTO:ESTUDIO ESTADÍSTICO DE LA CONTAMINACIÓN DEL AIRE EN LA INDIA

FECHA: 22/11/2025

#Estadística Descriptiva
#Ariel Chiluisa
#19/11/2025

library(gt)
library(dplyr)

#Cargar los datos 

datos<-read.csv("C:/Users/JOSELYN/Desktop/kangle/Datos Cambiados.csv",header = TRUE,dec = ".",sep = ",")

#Tablas Cualitativas Nominales

#Zona
Zona<- datos$Zona
#Tabla de distribución de frecuencia
TDF_Zona<- data.frame(table(Zona))
ni <- TDF_Zona$Freq
hi <- round((ni / sum(ni)) *100,2)
Zona <- TDF_Zona$Zona
TDF_Zona <- data.frame(Zona,ni,hi)
Summary <- data.frame(Zona = "TOTAL", ni=sum(ni), hi = 100)

TDF_Zona_suma <- rbind(TDF_Zona,Summary)

colnames(TDF_Zona_suma) <- c("Nombre_Oficial", "ni", "hi(%)")

# TABLA 

TDF_Zona_suma %>%
  gt() %>%
  tab_header(
    title = md("Tabla Nro. 4"),
    subtitle = md("Tabla de distribución de frecuencias de zonas oficial de la estación de monitoreo")
  ) %>%
  tab_source_note(
    source_note = md("Fuente: Datos procesados por el autor a partir de archivo city.day.csv ")
  ) %>%
  tab_style(
    style = cell_borders(
      sides = "left",
      color = "black",
      weight = px(2),
      style = "solid"
    ),
    locations = cells_body()
  ) %>%
  tab_style(
    style = cell_borders(
      sides = "right",
      color = "black",
      weight = px(2),
      style = "solid"
    ),
    locations = cells_body()
  ) %>%
  tab_style(
    style = cell_borders(
      sides = "left",
      color = "black",
      weight = px(2),
      style = "solid"
    ),
    locations = cells_column_labels()
  ) %>%
  tab_style(
    style = cell_borders(
      sides = "right",
      color = "black",
      weight = px(2),
      style = "solid"
    ),
    locations = cells_column_labels()
  )%>%
  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. 4
Tabla de distribución de frecuencias de zonas oficial de la estación de monitoreo
Nombre_Oficial	ni	hi(%)
Centro	289	0.98
Este	7873	26.66
Oeste	21369	72.36
TOTAL	29531	100.00
Fuente: Datos procesados por el autor a partir de archivo city.day.csv