UNIVERSIDAD CENTRAL DEL ECUADOR

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.

#Estadistica Descriptiva

#04/01/2026

#Cargar Datos
library(gt)
library(dplyr)

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


#Tablas Cualitativas 

# Variable original
practica_agricola <- datos$Farming_Practice

# Tabla de frecuencia
TDF_Practica_Agricola <- as.data.frame(table(practica_agricola))

# Renombrar columnas
colnames(TDF_Practica_Agricola) <- c("Practica_Agricola", "ni")

# Frecuencias relativas
ni <- TDF_Practica_Agricola$ni
hi <- round((ni / sum(ni)) * 100, 2)
Pi <- hi

# Tabla final
TDF_Practica_Agricola <- data.frame(
  Practica_Agricola = TDF_Practica_Agricola$Practica_Agricola,
  ni,
  hi,
  Pi
)


# TABLA 

TDF_Practica_Agricola %>%
  gt() %>%
  tab_header(
    title = md("Tabla Nro. 1"),
    subtitle = md("Tabla de distribución y probabilidades de las Practicas Agricolas")
  ) %>%
  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
Tabla de distribución y probabilidades de las Practicas Agricolas
Practica_Agricola	ni	hi	Pi
Conventional	780	26.00	26.00
Integrated	750	25.00	25.00
Organic	709	23.63	23.63
Permaculture	761	25.37	25.37
Autor: Grupo 3

barplot(hi, main = "Gráfica N°1: Distribución porcentual de 
        las Practicas Agricolas",
        xlab = "Practica Agricola",
        ylab = "Porcentaje",
        col = "green",
        ylim = c(0,26),
        las = 1,
        cex.names = 0.6,
        names.arg = TDF_Practica_Agricola$Practica_Agricola)

barplot(hi, main = "Gráfica N°2: Distribución para la probabilidad de 
         las Practicas Agricolas",
        xlab = "Practica Agricola",
        ylab = "Probabilidad",
        col = "green",
        ylim = c(0,26),
        las = 1,
        cex.names = 0.6,
        names.arg = TDF_Practica_Agricola$Practica_Agricola)

# ¿Cuál es la probabilidad de que una practica agricola sea organica?

prob_organica <- TDF_Practica_Agricola$Pi[
  TDF_Practica_Agricola$Practica_Agricola == "Organic"
]

cat(
  "¿Cuál es la probabilidad de que una practica agricola sea organica?\n",
  "La probabilidad de que una practica agricola sea organica es de",
  prob_organica, "%.\n"
)

## ¿Cuál es la probabilidad de que una practica agricola sea organica?
##  La probabilidad de que una practica agricola sea organica es de 23.63 %.

## ¿Cuál es la probabilidad de que una practica agricola sea organica?
##  La probabilidad de encontrar una practica organica en el suelo es de 23.63 %.