Análisis de Depósitos Masivos de Sulfuro Volcánicos (Variable Intrusión Post Mineralizacion)
Grupo 2
2025-12-14
Carga de Datos
1. CARGA DE LIBRERIAS
# cargar librerías
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, unionlibrary(ggplot2)
library(gt)
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 = ".")Verificamos los datos de la variable a trabajar
str(datos$postminint)## chr [1:1090] "yes" "no" "" "" "no" "no" "yes" "yes" "" "yes" "yes" "" ...Limpiar, corregir y estandarizar los valores
#Limpiar, corregir y estandarizar los valores de los datos
datos <- datos %>%
mutate(
postminint = trimws(postminint),
postminint = case_when(
postminint %in% c("yes") ~ "YES",
postminint %in% c("no") ~ "NO",
postminint == "" | is.na(postminint) ~ "Sin Registro",
TRUE ~ postminint
)
)
#cargar variable
datos$postminint <- trimws(datos$postminint)
IntrusionP <- datos$postminint
IntrusionP## [1] "YES" "NO" "Sin Registro" "Sin Registro"
## [5] "NO" "NO" "YES" "YES"
## [9] "Sin Registro" "YES" "YES" "Sin Registro"
## [13] "YES" "Sin Registro" "NO" "YES"
## [17] "Sin Registro" "YES" "YES" "NO"
## [21] "Sin Registro" "YES" "Sin Registro" "YES"
## [25] "YES" "NO" "Sin Registro" "Sin Registro"
## [29] "Sin Registro" "YES" "YES" "YES"
## [33] "YES" "YES" "YES" "YES"
## [37] "Sin Registro" "YES" "YES" "Sin Registro"
## [41] "NO" "Sin Registro" "Sin Registro" "YES"
## [45] "YES" "NO" "YES" "NO"
## [49] "YES" "YES" "YES" "Sin Registro"
## [53] "Sin Registro" "Sin Registro" "Sin Registro" "Sin Registro"
## [57] "Sin Registro" "Sin Registro" "YES" "Sin Registro"
## [61] "YES" "Sin Registro" "YES" "YES"
## [65] "YES" "NO" "NO" "YES"
## [69] "NO" "Sin Registro" "Sin Registro" "YES"
## [73] "Sin Registro" "YES" "Sin Registro" "YES"
## [77] "YES" "YES" "Sin Registro" "Sin Registro"
## [81] "Sin Registro" "Sin Registro" "Sin Registro" "Sin Registro"
## [85] "YES" "YES" "YES" "YES"
## [89] "YES" "YES" "YES" "YES"
## [93] "NO" "NO" "YES" "YES"
## [97] "Sin Registro" "YES" "YES" "YES"
## [101] "YES" "YES" "NO" "Sin Registro"
## [105] "YES" "YES" "YES" "YES"
## [109] "Sin Registro" "YES" "YES" "YES"
## [113] "NO" "YES" "YES" "Sin Registro"
## [117] "YES" "YES" "Sin Registro" "YES"
## [121] "YES" "YES" "YES" "YES"
## [125] "YES" "Sin Registro" "YES" "Sin Registro"
## [129] "Sin Registro" "Sin Registro" "Sin Registro" "Sin Registro"
## [133] "YES" "YES" "YES" "Sin Registro"
## [137] "YES" "Sin Registro" "Sin Registro" "Sin Registro"
## [141] "YES" "YES" "YES" "YES"
## [145] "Sin Registro" "YES" "YES" "YES"
## [149] "Sin Registro" "YES" "Sin Registro" "YES"
## [153] "Sin Registro" "YES" "YES" "Sin Registro"
## [157] "YES" "Sin Registro" "YES" "YES"
## [161] "YES" "Sin Registro" "Sin Registro" "NO"
## [165] "Sin Registro" "Sin Registro" "YES" "YES"
## [169] "YES" "YES" "YES" "YES"
## [173] "YES" "Sin Registro" "YES" "Sin Registro"
## [177] "YES" "YES" "YES" "Sin Registro"
## [181] "NO" "NO" "Sin Registro" "YES"
## [185] "YES" "YES" "YES" "Sin Registro"
## [189] "YES" "YES" "YES" "Sin Registro"
## [193] "YES" "YES" "Sin Registro" "Sin Registro"
## [197] "YES" "Sin Registro" "YES" "YES"
## [201] "YES" "Sin Registro" "YES" "Sin Registro"
## [205] "YES" "Sin Registro" "YES" "NO"
## [209] "YES" "YES" "Sin Registro" "YES"
## [213] "NO" "Sin Registro" "Sin Registro" "Sin Registro"
## [217] "YES" "YES" "Sin Registro" "YES"
## [221] "NO" "YES" "Sin Registro" "Sin Registro"
## [225] "Sin Registro" "YES" "YES" "Sin Registro"
## [229] "Sin Registro" "YES" "YES" "YES"
## [233] "Sin Registro" "YES" "Sin Registro" "YES"
## [237] "YES" "YES" "YES" "YES"
## [241] "YES" "YES" "YES" "Sin Registro"
## [245] "YES" "NO" "NO" "NO"
## [249] "YES" "YES" "YES" "YES"
## [253] "Sin Registro" "YES" "YES" "YES"
## [257] "YES" "Sin Registro" "Sin Registro" "Sin Registro"
## [261] "YES" "YES" "YES" "NO"
## [265] "YES" "NO" "YES" "YES"
## [269] "Sin Registro" "YES" "Sin Registro" "YES"
## [273] "NO" "Sin Registro" "Sin Registro" "YES"
## [277] "YES" "Sin Registro" "Sin Registro" "YES"
## [281] "YES" "Sin Registro" "YES" "YES"
## [285] "NO" "Sin Registro" "NO" "YES"
## [289] "YES" "YES" "Sin Registro" "YES"
## [293] "Sin Registro" "YES" "YES" "Sin Registro"
## [297] "Sin Registro" "YES" "NO" "YES"
## [301] "YES" "YES" "NO" "YES"
## [305] "YES" "YES" "YES" "Sin Registro"
## [309] "NO" "Sin Registro" "YES" "Sin Registro"
## [313] "YES" "Sin Registro" "YES" "YES"
## [317] "YES" "YES" "NO" "YES"
## [321] "Sin Registro" "YES" "YES" "YES"
## [325] "YES" "Sin Registro" "YES" "Sin Registro"
## [329] "YES" "YES" "YES" "YES"
## [333] "Sin Registro" "YES" "YES" "YES"
## [337] "NO" "Sin Registro" "YES" "NO"
## [341] "NO" "Sin Registro" "NO" "YES"
## [345] "Sin Registro" "Sin Registro" "YES" "YES"
## [349] "Sin Registro" "YES" "YES" "Sin Registro"
## [353] "YES" "YES" "YES" "YES"
## [357] "YES" "YES" "NO" "YES"
## [361] "YES" "Sin Registro" "YES" "YES"
## [365] "Sin Registro" "Sin Registro" "YES" "YES"
## [369] "Sin Registro" "Sin Registro" "Sin Registro" "YES"
## [373] "NO" "NO" "YES" "Sin Registro"
## [377] "Sin Registro" "NO" "YES" "Sin Registro"
## [381] "Sin Registro" "Sin Registro" "YES" "Sin Registro"
## [385] "Sin Registro" "Sin Registro" "NO" "YES"
## [389] "YES" "YES" "NO" "YES"
## [393] "YES" "NO" "YES" "YES"
## [397] "Sin Registro" "Sin Registro" "YES" "NO"
## [401] "Sin Registro" "YES" "Sin Registro" "NO"
## [405] "YES" "NO" "YES" "Sin Registro"
## [409] "YES" "Sin Registro" "NO" "YES"
## [413] "YES" "Sin Registro" "YES" "YES"
## [417] "YES" "YES" "YES" "Sin Registro"
## [421] "YES" "Sin Registro" "Sin Registro" "YES"
## [425] "Sin Registro" "NO" "YES" "YES"
## [429] "YES" "YES" "YES" "YES"
## [433] "Sin Registro" "YES" "YES" "YES"
## [437] "YES" "YES" "Sin Registro" "Sin Registro"
## [441] "YES" "YES" "YES" "Sin Registro"
## [445] "Sin Registro" "Sin Registro" "YES" "YES"
## [449] "Sin Registro" "NO" "Sin Registro" "YES"
## [453] "Sin Registro" "NO" "YES" "Sin Registro"
## [457] "YES" "YES" "Sin Registro" "Sin Registro"
## [461] "Sin Registro" "Sin Registro" "Sin Registro" "YES"
## [465] "YES" "NO" "YES" "Sin Registro"
## [469] "YES" "NO" "YES" "YES"
## [473] "YES" "YES" "YES" "YES"
## [477] "YES" "YES" "YES" "YES"
## [481] "NO" "Sin Registro" "Sin Registro" "Sin Registro"
## [485] "Sin Registro" "YES" "Sin Registro" "YES"
## [489] "Sin Registro" "Sin Registro" "YES" "YES"
## [493] "Sin Registro" "Sin Registro" "Sin Registro" "Sin Registro"
## [497] "Sin Registro" "YES" "Sin Registro" "YES"
## [501] "Sin Registro" "Sin Registro" "Sin Registro" "Sin Registro"
## [505] "Sin Registro" "Sin Registro" "YES" "Sin Registro"
## [509] "Sin Registro" "Sin Registro" "YES" "Sin Registro"
## [513] "Sin Registro" "Sin Registro" "Sin Registro" "Sin Registro"
## [517] "Sin Registro" "NO" "Sin Registro" "Sin Registro"
## [521] "Sin Registro" "Sin Registro" "Sin Registro" "Sin Registro"
## [525] "YES" "Sin Registro" "Sin Registro" "Sin Registro"
## [529] "Sin Registro" "Sin Registro" "YES" "Sin Registro"
## [533] "YES" "NO" "YES" "YES"
## [537] "Sin Registro" "Sin Registro" "NO" "Sin Registro"
## [541] "Sin Registro" "NO" "NO" "NO"
## [545] "YES" "NO" "NO" "NO"
## [549] "NO" "NO" "NO" "YES"
## [553] "YES" "NO" "NO" "YES"
## [557] "NO" "NO" "NO" "YES"
## [561] "NO" "YES" "Sin Registro" "NO"
## [565] "Sin Registro" "Sin Registro" "Sin Registro" "NO"
## [569] "YES" "YES" "Sin Registro" "YES"
## [573] "YES" "YES" "YES" "YES"
## [577] "YES" "YES" "Sin Registro" "YES"
## [581] "YES" "Sin Registro" "Sin Registro" "YES"
## [585] "YES" "YES" "Sin Registro" "Sin Registro"
## [589] "Sin Registro" "Sin Registro" "Sin Registro" "Sin Registro"
## [593] "Sin Registro" "Sin Registro" "YES" "Sin Registro"
## [597] "Sin Registro" "Sin Registro" "YES" "YES"
## [601] "YES" "YES" "YES" "YES"
## [605] "YES" "NO" "YES" "YES"
## [609] "YES" "YES" "YES" "Sin Registro"
## [613] "YES" "Sin Registro" "NO" "Sin Registro"
## [617] "Sin Registro" "NO" "YES" "YES"
## [621] "YES" "Sin Registro" "Sin Registro" "Sin Registro"
## [625] "YES" "YES" "NO" "YES"
## [629] "YES" "Sin Registro" "YES" "YES"
## [633] "YES" "YES" "YES" "NO"
## [637] "NO" "YES" "NO" "YES"
## [641] "NO" "NO" "Sin Registro" "YES"
## [645] "YES" "YES" "NO" "YES"
## [649] "NO" "YES" "YES" "YES"
## [653] "YES" "NO" "NO" "NO"
## [657] "NO" "YES" "YES" "NO"
## [661] "Sin Registro" "Sin Registro" "NO" "NO"
## [665] "NO" "NO" "YES" "NO"
## [669] "NO" "YES" "YES" "NO"
## [673] "YES" "YES" "YES" "YES"
## [677] "Sin Registro" "YES" "Sin Registro" "Sin Registro"
## [681] "YES" "YES" "Sin Registro" "NO"
## [685] "YES" "YES" "NO" "NO"
## [689] "YES" "NO" "YES" "NO"
## [693] "Sin Registro" "YES" "NO" "YES"
## [697] "YES" "YES" "NO" "NO"
## [701] "Sin Registro" "NO" "YES" "YES"
## [705] "Sin Registro" "NO" "YES" "YES"
## [709] "YES" "YES" "YES" "YES"
## [713] "YES" "YES" "YES" "YES"
## [717] "YES" "YES" "YES" "Sin Registro"
## [721] "Sin Registro" "YES" "YES" "YES"
## [725] "Sin Registro" "YES" "YES" "YES"
## [729] "YES" "YES" "Sin Registro" "Sin Registro"
## [733] "YES" "YES" "YES" "YES"
## [737] "YES" "YES" "YES" "NO"
## [741] "Sin Registro" "YES" "YES" "Sin Registro"
## [745] "YES" "YES" "YES" "Sin Registro"
## [749] "YES" "YES" "YES" "YES"
## [753] "YES" "YES" "Sin Registro" "YES"
## [757] "YES" "YES" "YES" "NO"
## [761] "YES" "NO" "YES" "YES"
## [765] "YES" "YES" "YES" "YES"
## [769] "YES" "YES" "YES" "YES"
## [773] "NO" "Sin Registro" "YES" "YES"
## [777] "Sin Registro" "Sin Registro" "YES" "YES"
## [781] "YES" "Sin Registro" "YES" "YES"
## [785] "YES" "YES" "YES" "YES"
## [789] "YES" "YES" "NO" "YES"
## [793] "NO" "NO" "NO" "Sin Registro"
## [797] "YES" "YES" "YES" "YES"
## [801] "YES" "YES" "Sin Registro" "Sin Registro"
## [805] "Sin Registro" "Sin Registro" "Sin Registro" "Sin Registro"
## [809] "Sin Registro" "Sin Registro" "YES" "Sin Registro"
## [813] "YES" "YES" "YES" "Sin Registro"
## [817] "Sin Registro" "Sin Registro" "YES" "Sin Registro"
## [821] "Sin Registro" "YES" "YES" "Sin Registro"
## [825] "YES" "YES" "Sin Registro" "Sin Registro"
## [829] "Sin Registro" "Sin Registro" "Sin Registro" "YES"
## [833] "Sin Registro" "YES" "YES" "Sin Registro"
## [837] "YES" "YES" "YES" "Sin Registro"
## [841] "Sin Registro" "Sin Registro" "Sin Registro" "Sin Registro"
## [845] "Sin Registro" "YES" "NO" "YES"
## [849] "YES" "YES" "Sin Registro" "Sin Registro"
## [853] "YES" "Sin Registro" "Sin Registro" "Sin Registro"
## [857] "Sin Registro" "Sin Registro" "Sin Registro" "Sin Registro"
## [861] "Sin Registro" "YES" "YES" "YES"
## [865] "YES" "YES" "Sin Registro" "Sin Registro"
## [869] "NO" "YES" "Sin Registro" "YES"
## [873] "Sin Registro" "YES" "YES" "YES"
## [877] "YES" "YES" "YES" "YES"
## [881] "YES" "Sin Registro" "Sin Registro" "YES"
## [885] "YES" "Sin Registro" "YES" "NO"
## [889] "YES" "Sin Registro" "Sin Registro" "YES"
## [893] "YES" "YES" "YES" "YES"
## [897] "YES" "Sin Registro" "YES" "YES"
## [901] "YES" "YES" "YES" "Sin Registro"
## [905] "YES" "YES" "YES" "Sin Registro"
## [909] "YES" "YES" "YES" "Sin Registro"
## [913] "YES" "YES" "Sin Registro" "YES"
## [917] "YES" "YES" "YES" "YES"
## [921] "YES" "YES" "YES" "YES"
## [925] "YES" "YES" "YES" "YES"
## [929] "YES" "YES" "YES" "YES"
## [933] "YES" "YES" "YES" "YES"
## [937] "YES" "YES" "YES" "YES"
## [941] "YES" "YES" "YES" "YES"
## [945] "YES" "Sin Registro" "YES" "YES"
## [949] "YES" "Sin Registro" "YES" "YES"
## [953] "YES" "YES" "YES" "YES"
## [957] "YES" "YES" "YES" "YES"
## [961] "YES" "YES" "YES" "YES"
## [965] "YES" "YES" "YES" "YES"
## [969] "YES" "YES" "YES" "YES"
## [973] "YES" "YES" "YES" "YES"
## [977] "YES" "YES" "YES" "YES"
## [981] "YES" "YES" "YES" "YES"
## [985] "Sin Registro" "YES" "YES" "YES"
## [989] "YES" "YES" "YES" "YES"
## [993] "YES" "YES" "YES" "YES"
## [997] "YES" "YES" "YES" "YES"
## [1001] "YES" "YES" "YES" "Sin Registro"
## [1005] "YES" "YES" "YES" "YES"
## [1009] "YES" "YES" "YES" "YES"
## [1013] "YES" "YES" "YES" "YES"
## [1017] "YES" "YES" "YES" "YES"
## [1021] "YES" "YES" "YES" "YES"
## [1025] "Sin Registro" "Sin Registro" "YES" "YES"
## [1029] "YES" "YES" "YES" "YES"
## [1033] "YES" "YES" "Sin Registro" "YES"
## [1037] "YES" "YES" "YES" "YES"
## [1041] "YES" "YES" "YES" "YES"
## [1045] "Sin Registro" "YES" "Sin Registro" "Sin Registro"
## [1049] "YES" "YES" "Sin Registro" "YES"
## [1053] "YES" "Sin Registro" "YES" "YES"
## [1057] "YES" "YES" "YES" "YES"
## [1061] "YES" "YES" "YES" "Sin Registro"
## [1065] "YES" "Sin Registro" "YES" "YES"
## [1069] "YES" "YES" "YES" "YES"
## [1073] "YES" "YES" "YES" "YES"
## [1077] "YES" "YES" "YES" "YES"
## [1081] "NO" "NO" "NO" "YES"
## [1085] "YES" "YES" "YES" "Sin Registro"
## [1089] "YES" "YES"Tabla de distribucion de frecuencia
2. TABLAS DE DISTRIBUCIÓN DE FRECUENCIA
#Crear tabla de frecuencia y Convertir tabla en dataframe
TDFIntrusionP <- table(IntrusionP)
TDFIntrusionP <- as.data.frame(TDFIntrusionP)
TDFIntrusionP## IntrusionP Freq
## 1 NO 122
## 2 Sin Registro 317
## 3 YES 651#calcular frecuencia absolutas y simples
TDFIntrusionPFinal <- TDFIntrusionP %>%
group_by(IntrusionP) %>%
summarise(
ni = sum(Freq),
hi = round((sum(ni) / sum(TDFIntrusionP$Freq)) * 100, 2)
)
TDFIntrusionPFinal <- data.frame(TDFIntrusionPFinal)
TDFIntrusionPFinal## IntrusionP ni hi
## 1 NO 122 11.19
## 2 Sin Registro 317 29.08
## 3 YES 651 59.72#Agregar Total
Total_ni <- sum(TDFIntrusionPFinal$ni)
Total_hi <- 100
TDFIntrusionPFinalCompleto <- rbind(TDFIntrusionPFinal,
data.frame(IntrusionP="Total", ni = Total_ni, hi = Total_hi))
print(TDFIntrusionPFinalCompleto)## IntrusionP ni hi
## 1 NO 122 11.19
## 2 Sin Registro 317 29.08
## 3 YES 651 59.72
## 4 Total 1090 100.002.1. Tabla Nº1-Distribución de Deformaciones Post Mineralización en Depósito masivos de sulfuros volcanicos
#Crear Tabla
TablaIntrusionP <- TDFIntrusionPFinalCompleto %>%
gt(rowname_col = NULL) %>%
tab_header(
title = md("**Tabla Nº1**"),
subtitle = md("**Distribucion de las Intrusiones Post Mineralización**")
) %>%
tab_source_note(
source_note = md("Autor: Grupo2")
) %>%
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"
) %>%
tab_style(
style = cell_text(weight = "bold"),
locations = cells_body(
rows = TDFIntrusionPFinalCompleto$Intrusion == "Total"
)
)
TablaIntrusionP| Tabla Nº1 | ||
| Distribucion de las Intrusiones Post Mineralización | ||
| IntrusionP | ni | hi |
|---|---|---|
| NO | 122 | 11.19 |
| Sin Registro | 317 | 29.08 |
| YES | 651 | 59.72 |
| Total | 1090 | 100.00 |
| Autor: Grupo2 | ||
Diagramas de barras
3. DIAGRAMAS DE BARRAS
3.1. DIAGRAMA DE BARRAS ni (LOCAL/GLOBAL)
#Diagrama de barras ni (local)
barplot(TDFIntrusionPFinalCompleto$ni[1:(nrow(TDFIntrusionPFinalCompleto)-1)],
main = "Gráfica Nº1: Distribucion de las Intrusiones Post Mineralización en Depósito masivos de sulfuros volcanicos (Local)",
cex.main=0.7,
col = "gray",
xlab = "Presencia de Intrusiones Post Mineralización",
ylab = "Cantidad (ni)",
names.arg = TDFIntrusionPFinalCompleto$IntrusionP[1:(nrow(TDFIntrusionPFinalCompleto)-1)])
#Diagrama de barras ni (global)
barplot(
TDFIntrusionPFinalCompleto$ni[1:(nrow(TDFIntrusionPFinalCompleto)-1)],
main = "Gráfica Nº2: Distribucion de las Intrusiones Post Mineralización en Depósito masivos de sulfuros volcanicos (Global)",
cex.main = 0.7,
xlab = "Presencia de Intrusiones Post Mineralizacións",
ylab = "Cantidad (ni)",
col = "gray",
names.arg = TDFIntrusionPFinalCompleto$IntrusionP[1:(nrow(TDFIntrusionPFinalCompleto)-1)],
ylim = c(0, 1090)
)
3.2. DIAGRAMA DE BARRAS hi (LOCAL/GLOBAL)
#Diagrama de barras hi (local)
hi_local <- as.numeric(TDFIntrusionPFinalCompleto$hi[1:(nrow(TDFIntrusionPFinalCompleto)-1)])
barplot(
hi_local,
main = "Gráfica Nº3: Distribucion de las Intrusiones Post Mineralización en Depósito masivos de sulfuros volcanicos (Local)",
cex.main = 0.7,
xlab = "Presencia de Intrusiones Post Mineralización",
ylab = "Porcentaje (%)",
col = "gray",
names.arg = TDFIntrusionPFinalCompleto$IntrusionP[1:(nrow(TDFIntrusionPFinalCompleto)-1)] ,
cex.names = 1,
ylim = c(0, 60)
)
#Diagrama de barras hi (global)
hi_local <- as.numeric(TDFIntrusionPFinalCompleto$hi[1:(nrow(TDFIntrusionPFinalCompleto)-1)])
barplot(
hi_local,
main = "Gráfica Nº3: Distribucion de las Intrusiones Post Mineralización en Depósito masivos de sulfuros volcanicos (Local)",
cex.main = 0.7,
xlab = "Presencia de Intrusiones Post Mineralización",
ylab = "Porcentaje (%)",
col = "gray",
names.arg = TDFIntrusionPFinalCompleto$IntrusionP[1:(nrow(TDFIntrusionPFinalCompleto)-1)] ,
cex.names = 1,
ylim = c(0, 100)
)
Diagrama circular
4. DIAGRAMA CIRCULAR
#Diagrama circular
hi_instrusionp <- as.numeric(TDFIntrusionPFinalCompleto$hi[1:(nrow(TDFIntrusionPFinalCompleto)-1)])
Intrusiones <- TDFIntrusionPFinalCompleto$IntrusionP[1:(nrow(TDFIntrusionPFinalCompleto)-1)]
Colores <- colorRampPalette(c("lightskyblue", "darkblue"))(length(hi_instrusionp))
etiquetas <- paste0(hi_instrusionp, "%")
par(mfrow = c(1,2))
par(mar = c(2,2,4,2))
pie(
hi_instrusionp,
radius = 0.7,
col = Colores,
labels = etiquetas,
main = "Gráfica Nº5: Distribucion de las Intrusiones
Post Mineralización en Depósito
masivos de sulfuros volcanicos",
cex.main = 0.9
)
plot.new()
legend(
"center",
title = "Intrusiones Post Mineralización",
legend = Intrusiones,
fill = Colores,
cex = 0.7,
bg = "white",
box.lwd = 0.7
)
Indicadores Estadísticos
5. Indicadores Estadísticos
#MODA VARIABLE MINERAL
# Asegurar que ERA sea vector
INTPM_limpia <- as.character(IntrusionP)
INTPM_limpia <- INTPM_limpia [!is.na(INTPM_limpia)]
# Tabla de frecuencias
tabla_INTPM <- table(INTPM_limpia)
# Moda
moda_intpm <- names(tabla_INTPM)[which.max(as.numeric(tabla_INTPM))]
moda_intpm## [1] "YES"5.1. Tabla de Indicadores Estadísticos
#MODA
Variable<-c("Intrusión Post Mineralización")
TablaIndicadores<-data.frame(Variable,moda_intpm)
colnames(TablaIndicadores)<-c("Variable","Moda")
kable(TablaIndicadores, format = "markdown", caption = "Tabla N°2. Indicadores Estadíticos de la variable Intrusión Post Mineralización en depósitos masivos de sulfuros volcanicos")| Variable | Moda |
|---|---|
| Intrusión Post Mineralización | YES |
Conclusiones
6. Conclusión
La variable Intrusion Post Mineralización indica que la moda es “YES”, lo que significa que la presencia de intrusión post mineralización es la condición más frecuente en los depósitos masivos de sulfuros volcánicos analizados. Dado que se trata de una variable cualitativa nominal, la moda es el estadístico más representativo, permitiendo identificar una clara predominancia de eventos deformacionales posteriores a la mineralización dentro del conjunto de datos.