Análisis inferencial de Depósitos Masivos de Sulfuro Volcánicos (Variable Presencia de Deformación Post Mineralizacion)

Carga de Datos y Librerías

1. CARGA DE LIBRERIAS

# cargar librerías
library(countrycode)
library(gt)
library(dplyr)

## 
## Adjuntando el paquete: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(knitr)

1.2. CARGA DE DATOS

#cargar datos
datos <- read.csv("C:\\Users\\joeja\\Desktop\\Proyecto Estadística\\Depositos_sulfuro.csv", 
                  header = TRUE, 
                  sep = ";", 
                  dec = ".")

Tabla de distribucion de probabilidad

2. TABLAS DE DISTRIBUCIÓN DE PROBABILIDAD

# Extraer variable
Deformacion_post <- datos$stringer

# Reemplazar NA, espacios, guiones, etc.
Deformacion_post[
  Deformacion_post == "" |
    Deformacion_post == " " |
    Deformacion_post == "-" |
    is.na(Deformacion_post)
] <- "Sin registro"

# Frecuencias y probabilidad
ni <- table(Deformacion_post)
hi <- round(prop.table(ni), 4)
P <- round(hi * 100, 2)

# Crear tabla base
tabla_finaldeformacion <- data.frame(
  Deformacion_post = names(ni),
  ni = as.numeric(ni),
  hi = as.numeric(hi),
  P  = as.numeric(P)
)

# Fila TOTAL
fila_total <- data.frame(
  Deformacion_post = "TOTAL",
  ni = sum(tabla_finaldeformacion$ni),
  hi = round(sum(tabla_finaldeformacion$hi), ),
  P  = round(sum(tabla_finaldeformacion$P), )
)

# Mostrar
tabla_finaldeformacion <- rbind(tabla_finaldeformacion, fila_total)

tabla_finaldeformacion

##   Deformacion_post   ni     hi      P
## 1               no  431 0.3954  39.54
## 2     Sin registro  275 0.2523  25.23
## 3              yes  384 0.3523  35.23
## 4            TOTAL 1090 1.0000 100.00

2.1. Tabla Nº1-Distribución de Probabilidad de la presencia de Deformaciones Post Mineralización en Depósito masivos de sulfuros volcanicos

#Crear Tabla
tabla_deformacion_gt <- tabla_finaldeformacion %>%
  gt() %>%
  tab_header(
    title = md("**Tabla N° 1**"),
    subtitle = md("Distribución de probabibilidad de la presencia de Deformaciones 
                  Post Mineralización en Depósitos Masivos de Sulfuro Volcánicos")
  ) %>%
  tab_source_note(
    source_note = md("Autor: Grupo 2")
  ) %>%
  tab_options(
    table.border.top.color = "black",
    table.border.bottom.color = "black",
    heading.border.bottom.color = "black",
    heading.border.bottom.width = px(2),
    column_labels.border.top.color = "black",
    column_labels.border.bottom.color = "black",
    column_labels.border.bottom.width = px(2),
    table_body.hlines.color = "gray",
    table_body.border.bottom.color = "black",
    row.striping.include_table_body = TRUE
  ) %>%
  tab_style(
    style = cell_text(weight = "bold"),
    locations = cells_body(rows = Deformacion_post == "Total")
  )

tabla_deformacion_gt

Tabla N° 1
Distribución de probabibilidad de la presencia de Deformaciones Post Mineralización en Depósitos Masivos de Sulfuro Volcánicos
Deformacion_post	ni	hi	P
no	431	0.3954	39.54
Sin registro	275	0.2523	25.23
yes	384	0.3523	35.23
TOTAL	1090	1.0000	100.00
Autor: Grupo 2

Gráficas de distribución de probabilidad

3. DIAGRAMAS DE BARRAS

# Extraer probabilidad (%) sin la fila TOTAL
P_global <- as.numeric(tabla_finaldeformacion$P[1:(nrow(tabla_finaldeformacion)-1)])

barplot(
  P_global,
  main = "Gráfica Nº1: Distribución de probabibilidad de la presencia de Deformaciones 
                  Post Mineralización en Depósitos Masivos de Sulfuro Volcánicos",
  cex.main = 0.7,
  xlab = "Presencia de Deformación Post Mineralización",
  ylab = "Probabilidad (%)",
  col = "blue",
  names.arg = tabla_finaldeformacion$Deformacion_post[1:(nrow(tabla_finaldeformacion)-1)],
  cex.names = 0.9,
  ylim = c(0, 100),
  las = 1
)

Cáclulo de Probabilidad

# Eliminar fila TOTAL
tabla_sin_total <- tabla_finaldeformacion[
  tabla_finaldeformacion$Deformacion_post != "TOTAL",
]

# Extraer probabilidad de la categoría "no"
prob_no <- tabla_sin_total$P[
  tabla_sin_total$Deformacion_post == "no"
]

# Gráfico de texto explicativo
plot(1, type = "n", axes = FALSE, xlab = "", ylab = "")

text(
  x = 1, y = 1,
  labels = paste(
    "Cálculo de probabilidad\n(Estimación general)\n\n",
    "¿Qué probabilidad existe de que un depósito\n",
    "masivo de sulfuros volcánicos NO presente\n",
    "deformación post mineralización?\n\n",
    "Probabilidad = ", prob_no, " (%)",
    sep = ""
  ),
  cex = 1.4,
  col = "black",
  font = 2
)