VARIABLE-CUALITATIVA-NOMINAL-MÉTODO-DE-ELIMINACIÓN.R

#------------------ UNIVERSIDAD CENTRAL DEL ECUADOR
##-----Facultad de Ingeniería en Geología, Minas, Petróleo y Ambiental 
###-----------------Carrera de Ingeniería Ambiental

# Proyecto: Estudio de Residuos y Reciclaje en la India
# Etapa: Estadistica Descriptiva
# Integrantes: Jazmin Guañuna, Nayely Perugachi, Helen Taipe, Gabriela Usiña
# Fecha: 26/5/2025

#VARIABLE CUALITATIVA NOMINAL :MÉTODO DE ELIMINACIÓN 

#Carga de datos
library(readr)
Waste_Management_and_Recycling_India_csv_xd <- read_delim("Waste_Management_and_Recycling_India.csv xd.csv", 
                                                          delim = ";", escape_double = FALSE, trim_ws = TRUE)

## Rows: 850 Columns: 13
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ";"
## chr (5): City/District, Waste Type, Disposal Method, Landfill Name, Landfill...
## dbl (8): Waste Generated (Tons/Day), Recycling Rate (%), Population Density ...
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

datos <- Waste_Management_and_Recycling_India_csv_xd

#Extraer variable nominal
metodo_eliminacion <- datos$`Disposal Method`

#EDA variable nominal 
TDFmetodo_eliminacion <- table(metodo_eliminacion)
Tablafinal <- as.data.frame(TDFmetodo_eliminacion)
ni<-Tablafinal$Freq
sum(ni)

## [1] 850

hi<-(Tablafinal$Freq/sum(Tablafinal$Freq))*100
sum(hi)

## [1] 100

Tablafinal<-data.frame(Tablafinal,round(hi,3))
names(Tablafinal)<-c("Metodo_eliminacion","ni","hi(%)")

#Creamos la fila del total

totales <- c(other=NA,
  ni= sum(ni),
  hi= sum(hi))
  
Tablafinal_con_total<- rbind(Tablafinal,totales) 
Tablafinal_con_total

##   Metodo_eliminacion  ni   hi(%)
## 1         Composting 209  24.588
## 2       Incineration 218  25.647
## 3           Landfill 210  24.706
## 4          Recycling 213  25.059
## 5               <NA> 850 100.000

#GDF LOCAL ni
barplot(Tablafinal$ni, main = "Gráfica No.1:Distribución de Cantidad del método de eliminación 
        del Estudio de Residuos de la India",
        xlab = "Método de eliminación",
        ylab = "Cantidad", col = "blue3",
        names.arg = Tablafinal$Metodo_eliminacion,
        las=1)

#GDF GLOBAL ni
barplot(Tablafinal$ni, main = "Gráfica No.2:Distribución de Cantidad del método de eliminación 
        del Estudio de Residuos de la India",
        xlab = "Método de eliminación",
        ylab = "Cantidad", col = "purple3",
        names.arg = Tablafinal$Metodo_eliminacion,
        las=1,
        ylim = c(0,850))

#GDF LOCAL hi
barplot(Tablafinal$hi,
        main = "Gráfica No.3:Distribución de Porcentaje del método de eliminación 
        del Estudio de Residuos de la India",
        xlab = "Método de eliminación",
        ylab = "Porcentaje (%)", col = "blue3",
        names.arg = Tablafinal$Metodo_eliminacion,
        las=1)

#GDF GLOBAL hi 
barplot(Tablafinal$hi, 
        main = "Gráfica No.4:Distribución de Cantidad del método de eliminación 
        del Estudio de Residuos de la India",
        xlab = "Método de eliminación",
        ylab = "Porcentaje (%)", col = "purple3",
        names.arg = Tablafinal$Metodo_eliminacion,
        las=1,
        ylim = c(0,100))

#DIAGRAMA CIRCULAR

pie(
  Tablafinal$hi,
  labels = paste(Tablafinal$hi, "%"),
  col = heat.colors(length(Tablafinal$hi)),
  radius = 1,
  main = "Gráfica No.5:Distribución Porcentual del método de eliminación 
        del Estudio de Residuos de la India"
)
legend("topright",                                 
       legend = Tablafinal$Metodo_eliminacion,    
       fill = heat.colors(length(Tablafinal$hi)),                            
       title = "Leyenda",                         
       cex = 0.7)

#INDICADORES ESTADÍSTICOS
#Mediana
metodo_eliminacionord<-sort(metodo_eliminacion)
posMe<-(length(metodo_eliminacion)+1)/2
Me<-metodo_eliminacionord[posMe]
Me

## [1] "Incineration"

#Moda
Mo<-"Incineration"
Mo

## [1] "Incineration"

#Tabla de indicadores

Variable <- "Método eliminación"
Tabla_indicadores <- data.frame(Variable,Me,Mo)
Tabla_indicadores

##             Variable           Me           Mo
## 1 Método eliminación Incineration Incineration