Diagramas Tipo de Cultivo

This is an R Markdown Notebook. When you execute code within the notebook, the results appear beneath the code.

Try executing this chunk by clicking the Run button within the chunk or by placing your cursor inside it and pressing Ctrl+Shift+Enter.

par(mar = c(10, 5, 4, 2))


#Estadistica Descriptiva

#María Jóse Calo

#22/11/2025

library(gt)
library(dplyr)

#Cargar Datos


datos<-read.csv("soil_pollution_diseases.csv",header = TRUE,dec = ".",
                sep = ",")


#Tablas Cualitativas Nominales

#Tipo de Cultivo 


Tipo_de_Cultivo <- datos$Crop_Type

#Tabla de Distribucion de Frecuencia

TDF_Tipo_de_Cultivo <-data.frame(table(Tipo_de_Cultivo))

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

#Graficas
# Diagrama de barrras local ni


barplot(ni, main = "Gráfica N°16: Distribución de frecuencias del Tipo de Cultivo de estudio",
        
        xlab = "Tipo de Cultivo",
        ylab = "Cantidad",
        col = "red",
        ylim = c(0,600),
        las = 2,
        cex.names = 0.6,
        names.arg = TDF_Tipo_de_Cultivo$Tipo_de_Cultivo)

#Diagrama de barras global ni 

barplot(ni, main = "Gráfica N°17: Distribución de frecuencias del Tipo de Cultivo de estudio",
        xlab = "Tipo de Cultivo",
        ylab = "Cantidad",
        col = "skyblue",
        ylim = c(0,3000),
        las=2,
        cex.names = 0.6,
        names.arg = TDF_Tipo_de_Cultivo$Tipo_de_Cultivo)

#Diagrama de barras local hi(%)

barplot(hi, main = "Gráfica N°18: Distribución de frecuencias porcentual del Tipo de Cultivo de estudio",
        xlab = "Tipo de Cultivo",
        ylab = "Porcentaje",
        col = "green",
        ylim = c(0,20),
        las = 2,
        cex.names = 0.6,
        names.arg = TDF_Tipo_de_Cultivo$Tipo_de_Cultivo)

#Diagrama de barras global hi(%)

barplot(hi, main = "Gráfica N°19: Distribución de frecuencias porcentual del Tipo de Cultivo de estudio",
        xlab = "Tipo de Cultivo",
        ylab = "Porcentaje",
        col = "blue",
        ylim = c(0,100),
        las = 2,
        cex.names = 0.6,
        names.arg = TDF_Tipo_de_Cultivo$Tipo_de_Cultivo)

#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°20 Distribución porcentual del Tipo de Cultivo de estudio",
  cex = 1
)

legend(
  "topright",
  legend = TDF_Tipo_de_Cultivo$Tipo_de_Cultivo,
  fill = colores,
  title = "Leyenda",
  cex = 0.9,
  xpd = TRUE
)