Gráficas Países

UNIVERSIDAD CENTRAL DEL ECUADOR

PROYECTO:ESTUDIO ESTADÍSTICO DE LA CONTAMINACIÓN DEL SUELO Y SU IMPACTO EN LA SALUD

FECHA: 22/11/2025

# Datos para la gráfica

datos<-read.csv("soil_pollution_diseases.csv",header = TRUE,dec = ".",
                sep = ",")
#País
País <- datos$Country
#Tabla de distribución de frecuencia
TDF_País<- data.frame(table(País))
ni <- TDF_País$Freq
hi <- round((ni / sum(ni)) *100,2)
#Graficas
# Diagrama de barrras local ni

barplot(ni, main = "Gráfica N°6: Distribución de frecuencias de los países de estudio",
        xlab = "Países",
        ylab = "Cantidad",
        col = "red",
        ylim = c(0,400),
        las = 2,
        cex.names = 0.6,
        names.arg = TDF_País$País)

#Diagrama de barras global ni 

barplot(ni, main = "Gráfica N°7: Distribución de frecuencias de los países de estudio",
        xlab = "Países",
        ylab = "Cantidad",
        col = "skyblue",
        ylim = c(0,3000),
        las=2,
        cex.names = 0.6,
        names.arg = TDF_País$País)

#Diagrama de barras local hi(%)

barplot(hi, main = "Gráfica N°8: Distribución de frecuencias porcentual de los países de estudio",
        xlab = "Países",
        ylab = "Porcentaje",
        col = "green",
        ylim = c(0,15),
        las = 2,
        cex.names = 0.6,
        names.arg = TDF_País$País)

#Diagrama de barras global hi(%)

barplot(hi, main = "Gráfica N°9: Distribución de frecuencias porcentual de 
los países de estudio",
        xlab = "Países",
        ylab = "Porcentaje",
        col = "blue",
        ylim = c(0,100),
        las = 2,
        cex.names = 0.6,
        names.arg = TDF_País$País)

#Diagrama circular 


# Etiquetas con número + símbolo %
etiquetas <- paste0(hi, " %")


colores <- c("yellow", "khaki1", "gold", "orange", "darkorange", "red")


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

pie(
  hi,
  labels = etiquetas,
  col = colores,
  main = "Gráfica N°10 Distribución porcentual de los países de estudio",
  cex = 1
)

legend(
  "topright",
  legend = TDF_País$País,
  fill = colores,
  title = "Leyenda",
  cex = 0.9,
  xpd = TRUE
)