Análisis de Depósitos Masivos de Sulfuro Volcánicos (Variable Intrusión 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$synminint)## chr [1:1090] "no" "yes" "" "" "yes" "no" "" "" "" "yes" "yes" "" "yes" "" ...Limpiar, corregir y estandarizar los valores
#Limpiar, corregir y estandarizar los valores de los datos
datos <- datos %>%
mutate(
synminint = trimws(synminint),
synminint = case_when(
synminint %in% c("yes") ~ "YES",
synminint %in% c("no") ~ "NO",
synminint == "" | is.na(synminint) ~ "Sin Registro",
TRUE ~ synminint
)
)
#cargar variable
datos$synminint <- trimws(datos$synminint)
Intrusion <- datos$synminint
Intrusion## [1] "NO" "YES" "Sin Registro" "Sin Registro"
## [5] "YES" "NO" "Sin Registro" "Sin Registro"
## [9] "Sin Registro" "YES" "YES" "Sin Registro"
## [13] "YES" "Sin Registro" "YES" "NO"
## [17] "Sin Registro" "YES" "NO" "NO"
## [21] "Sin Registro" "NO" "Sin Registro" "YES"
## [25] "NO" "YES" "Sin Registro" "Sin Registro"
## [29] "Sin Registro" "YES" "YES" "YES"
## [33] "Sin Registro" "YES" "NO" "NO"
## [37] "Sin Registro" "YES" "NO" "Sin Registro"
## [41] "NO" "Sin Registro" "Sin Registro" "Sin Registro"
## [45] "NO" "NO" "NO" "NO"
## [49] "NO" "NO" "NO" "YES"
## [53] "Sin Registro" "Sin Registro" "Sin Registro" "Sin Registro"
## [57] "Sin Registro" "Sin Registro" "NO" "Sin Registro"
## [61] "NO" "Sin Registro" "NO" "NO"
## [65] "NO" "NO" "YES" "Sin Registro"
## [69] "YES" "Sin Registro" "Sin Registro" "NO"
## [73] "Sin Registro" "YES" "Sin Registro" "YES"
## [77] "NO" "YES" "YES" "YES"
## [81] "YES" "Sin Registro" "Sin Registro" "YES"
## [85] "Sin Registro" "YES" "NO" "NO"
## [89] "NO" "YES" "NO" "YES"
## [93] "YES" "YES" "NO" "YES"
## [97] "Sin Registro" "NO" "YES" "NO"
## [101] "YES" "YES" "NO" "Sin Registro"
## [105] "YES" "NO" "YES" "NO"
## [109] "Sin Registro" "YES" "YES" "YES"
## [113] "NO" "NO" "NO" "Sin Registro"
## [117] "NO" "YES" "Sin Registro" "NO"
## [121] "Sin Registro" "YES" "NO" "YES"
## [125] "YES" "Sin Registro" "YES" "Sin Registro"
## [129] "YES" "Sin Registro" "Sin Registro" "Sin Registro"
## [133] "NO" "NO" "YES" "Sin Registro"
## [137] "YES" "Sin Registro" "Sin Registro" "Sin Registro"
## [141] "YES" "Sin Registro" "NO" "YES"
## [145] "Sin Registro" "NO" "NO" "NO"
## [149] "Sin Registro" "YES" "Sin Registro" "YES"
## [153] "Sin Registro" "NO" "NO" "Sin Registro"
## [157] "NO" "Sin Registro" "NO" "YES"
## [161] "NO" "Sin Registro" "Sin Registro" "NO"
## [165] "Sin Registro" "Sin Registro" "NO" "NO"
## [169] "YES" "NO" "YES" "NO"
## [173] "YES" "Sin Registro" "YES" "Sin Registro"
## [177] "YES" "YES" "YES" "Sin Registro"
## [181] "NO" "NO" "Sin Registro" "NO"
## [185] "YES" "NO" "YES" "Sin Registro"
## [189] "NO" "YES" "NO" "Sin Registro"
## [193] "NO" "NO" "Sin Registro" "Sin Registro"
## [197] "YES" "Sin Registro" "YES" "YES"
## [201] "YES" "Sin Registro" "YES" "Sin Registro"
## [205] "YES" "Sin Registro" "NO" "NO"
## [209] "NO" "YES" "Sin Registro" "YES"
## [213] "YES" "Sin Registro" "Sin Registro" "Sin Registro"
## [217] "YES" "NO" "Sin Registro" "NO"
## [221] "NO" "YES" "Sin Registro" "Sin Registro"
## [225] "Sin Registro" "NO" "YES" "Sin Registro"
## [229] "Sin Registro" "NO" "YES" "YES"
## [233] "Sin Registro" "NO" "Sin Registro" "YES"
## [237] "YES" "YES" "YES" "NO"
## [241] "YES" "NO" "NO" "Sin Registro"
## [245] "YES" "YES" "YES" "YES"
## [249] "NO" "NO" "YES" "NO"
## [253] "Sin Registro" "NO" "NO" "YES"
## [257] "YES" "Sin Registro" "Sin Registro" "Sin Registro"
## [261] "NO" "YES" "YES" "NO"
## [265] "YES" "NO" "YES" "YES"
## [269] "Sin Registro" "NO" "Sin Registro" "YES"
## [273] "NO" "Sin Registro" "Sin Registro" "NO"
## [277] "NO" "Sin Registro" "Sin Registro" "NO"
## [281] "NO" "Sin Registro" "NO" "YES"
## [285] "NO" "Sin Registro" "NO" "YES"
## [289] "NO" "NO" "Sin Registro" "NO"
## [293] "Sin Registro" "YES" "YES" "Sin Registro"
## [297] "Sin Registro" "NO" "NO" "NO"
## [301] "NO" "YES" "NO" "YES"
## [305] "YES" "YES" "NO" "Sin Registro"
## [309] "YES" "YES" "NO" "Sin Registro"
## [313] "YES" "Sin Registro" "YES" "NO"
## [317] "YES" "NO" "NO" "NO"
## [321] "Sin Registro" "NO" "NO" "NO"
## [325] "NO" "Sin Registro" "YES" "Sin Registro"
## [329] "YES" "NO" "NO" "YES"
## [333] "Sin Registro" "YES" "YES" "NO"
## [337] "NO" "Sin Registro" "NO" "YES"
## [341] "YES" "Sin Registro" "YES" "YES"
## [345] "Sin Registro" "Sin Registro" "NO" "NO"
## [349] "YES" "YES" "Sin Registro" "Sin Registro"
## [353] "YES" "YES" "NO" "NO"
## [357] "NO" "YES" "YES" "NO"
## [361] "NO" "Sin Registro" "NO" "NO"
## [365] "Sin Registro" "Sin Registro" "NO" "NO"
## [369] "Sin Registro" "Sin Registro" "Sin Registro" "NO"
## [373] "YES" "YES" "YES" "Sin Registro"
## [377] "Sin Registro" "NO" "YES" "Sin Registro"
## [381] "Sin Registro" "Sin Registro" "YES" "Sin Registro"
## [385] "Sin Registro" "Sin Registro" "YES" "NO"
## [389] "YES" "NO" "NO" "YES"
## [393] "YES" "YES" "NO" "NO"
## [397] "Sin Registro" "Sin Registro" "Sin Registro" "NO"
## [401] "Sin Registro" "YES" "Sin Registro" "YES"
## [405] "Sin Registro" "YES" "YES" "Sin Registro"
## [409] "YES" "Sin Registro" "YES" "YES"
## [413] "NO" "Sin Registro" "NO" "YES"
## [417] "NO" "NO" "YES" "Sin Registro"
## [421] "NO" "Sin Registro" "Sin Registro" "NO"
## [425] "Sin Registro" "YES" "NO" "NO"
## [429] "NO" "NO" "NO" "NO"
## [433] "Sin Registro" "NO" "YES" "NO"
## [437] "YES" "YES" "Sin Registro" "Sin Registro"
## [441] "Sin Registro" "NO" "NO" "Sin Registro"
## [445] "Sin Registro" "Sin Registro" "YES" "NO"
## [449] "Sin Registro" "YES" "Sin Registro" "NO"
## [453] "Sin Registro" "YES" "YES" "Sin Registro"
## [457] "NO" "YES" "Sin Registro" "Sin Registro"
## [461] "Sin Registro" "Sin Registro" "Sin Registro" "YES"
## [465] "YES" "YES" "NO" "Sin Registro"
## [469] "NO" "NO" "YES" "YES"
## [473] "NO" "YES" "YES" "YES"
## [477] "NO" "NO" "YES" "NO"
## [481] "NO" "Sin Registro" "Sin Registro" "Sin Registro"
## [485] "Sin Registro" "NO" "Sin Registro" "NO"
## [489] "Sin Registro" "Sin Registro" "NO" "NO"
## [493] "Sin Registro" "Sin Registro" "Sin Registro" "Sin Registro"
## [497] "Sin Registro" "NO" "Sin Registro" "YES"
## [501] "Sin Registro" "Sin Registro" "Sin Registro" "Sin Registro"
## [505] "Sin Registro" "Sin Registro" "NO" "Sin Registro"
## [509] "Sin Registro" "Sin Registro" "NO" "Sin Registro"
## [513] "Sin Registro" "Sin Registro" "Sin Registro" "Sin Registro"
## [517] "Sin Registro" "YES" "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] "NO" "YES" "NO" "NO"
## [537] "Sin Registro" "Sin Registro" "YES" "Sin Registro"
## [541] "Sin Registro" "YES" "NO" "NO"
## [545] "NO" "NO" "NO" "NO"
## [549] "NO" "NO" "NO" "NO"
## [553] "NO" "YES" "NO" "NO"
## [557] "NO" "NO" "NO" "NO"
## [561] "NO" "NO" "Sin Registro" "NO"
## [565] "NO" "NO" "Sin Registro" "YES"
## [569] "Sin Registro" "Sin Registro" "Sin Registro" "YES"
## [573] "NO" "NO" "Sin Registro" "YES"
## [577] "NO" "NO" "YES" "NO"
## [581] "NO" "Sin Registro" "Sin Registro" "NO"
## [585] "NO" "Sin Registro" "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" "Sin Registro" "Sin Registro"
## [601] "NO" "YES" "Sin Registro" "Sin Registro"
## [605] "Sin Registro" "YES" "YES" "NO"
## [609] "NO" "NO" "NO" "Sin Registro"
## [613] "YES" "Sin Registro" "YES" "Sin Registro"
## [617] "Sin Registro" "YES" "NO" "YES"
## [621] "Sin Registro" "Sin Registro" "Sin Registro" "Sin Registro"
## [625] "NO" "NO" "NO" "YES"
## [629] "NO" "Sin Registro" "NO" "NO"
## [633] "YES" "YES" "YES" "YES"
## [637] "YES" "NO" "NO" "YES"
## [641] "YES" "NO" "Sin Registro" "YES"
## [645] "NO" "YES" "YES" "YES"
## [649] "NO" "YES" "YES" "YES"
## [653] "YES" "YES" "YES" "YES"
## [657] "NO" "YES" "YES" "NO"
## [661] "Sin Registro" "Sin Registro" "YES" "NO"
## [665] "NO" "NO" "YES" "YES"
## [669] "YES" "YES" "YES" "NO"
## [673] "YES" "Sin Registro" "YES" "NO"
## [677] "Sin Registro" "YES" "Sin Registro" "Sin Registro"
## [681] "Sin Registro" "YES" "Sin Registro" "NO"
## [685] "NO" "NO" "NO" "NO"
## [689] "NO" "NO" "YES" "NO"
## [693] "Sin Registro" "NO" "NO" "NO"
## [697] "NO" "NO" "NO" "NO"
## [701] "Sin Registro" "NO" "Sin Registro" "Sin Registro"
## [705] "Sin Registro" "NO" "Sin Registro" "NO"
## [709] "YES" "NO" "NO" "NO"
## [713] "NO" "YES" "NO" "NO"
## [717] "YES" "YES" "YES" "Sin Registro"
## [721] "Sin Registro" "NO" "NO" "NO"
## [725] "YES" "YES" "NO" "NO"
## [729] "NO" "NO" "Sin Registro" "Sin Registro"
## [733] "YES" "YES" "YES" "YES"
## [737] "NO" "YES" "NO" "NO"
## [741] "Sin Registro" "Sin Registro" "NO" "Sin Registro"
## [745] "NO" "NO" "NO" "Sin Registro"
## [749] "YES" "YES" "NO" "YES"
## [753] "NO" "NO" "Sin Registro" "YES"
## [757] "YES" "YES" "YES" "NO"
## [761] "YES" "NO" "YES" "YES"
## [765] "YES" "YES" "YES" "NO"
## [769] "YES" "Sin Registro" "Sin Registro" "Sin Registro"
## [773] "YES" "Sin Registro" "YES" "NO"
## [777] "Sin Registro" "YES" "Sin Registro" "Sin Registro"
## [781] "Sin Registro" "Sin Registro" "YES" "YES"
## [785] "YES" "YES" "YES" "YES"
## [789] "YES" "YES" "NO" "NO"
## [793] "NO" "NO" "NO" "Sin Registro"
## [797] "NO" "YES" "YES" "YES"
## [801] "YES" "YES" "YES" "Sin Registro"
## [805] "Sin Registro" "Sin Registro" "Sin Registro" "Sin Registro"
## [809] "Sin Registro" "Sin Registro" "YES" "Sin Registro"
## [813] "NO" "NO" "Sin Registro" "Sin Registro"
## [817] "Sin Registro" "Sin Registro" "YES" "Sin Registro"
## [821] "Sin Registro" "Sin Registro" "Sin Registro" "Sin Registro"
## [825] "YES" "YES" "Sin Registro" "YES"
## [829] "Sin Registro" "Sin Registro" "YES" "YES"
## [833] "Sin Registro" "NO" "Sin Registro" "Sin Registro"
## [837] "Sin Registro" "NO" "YES" "Sin Registro"
## [841] "Sin Registro" "Sin Registro" "Sin Registro" "YES"
## [845] "Sin Registro" "NO" "YES" "NO"
## [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" "NO" "NO" "NO"
## [865] "Sin Registro" "NO" "Sin Registro" "Sin Registro"
## [869] "NO" "NO" "Sin Registro" "YES"
## [873] "Sin Registro" "NO" "NO" "NO"
## [877] "NO" "NO" "NO" "YES"
## [881] "YES" "Sin Registro" "Sin Registro" "NO"
## [885] "NO" "Sin Registro" "YES" "NO"
## [889] "NO" "YES" "YES" "YES"
## [893] "YES" "YES" "YES" "YES"
## [897] "YES" "YES" "YES" "YES"
## [901] "YES" "YES" "YES" "Sin Registro"
## [905] "YES" "YES" "YES" "YES"
## [909] "YES" "YES" "Sin Registro" "YES"
## [913] "YES" "YES" "YES" "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" "Sin Registro" "YES" "YES"
## [941] "YES" "YES" "YES" "Sin Registro"
## [945] "YES" "YES" "YES" "YES"
## [949] "YES" "YES" "YES" "YES"
## [953] "YES" "YES" "YES" "YES"
## [957] "YES" "YES" "YES" "YES"
## [961] "YES" "Sin Registro" "YES" "YES"
## [965] "YES" "YES" "YES" "YES"
## [969] "YES" "YES" "YES" "YES"
## [973] "YES" "YES" "YES" "Sin Registro"
## [977] "Sin Registro" "YES" "YES" "YES"
## [981] "YES" "YES" "YES" "YES"
## [985] "Sin Registro" "YES" "YES" "YES"
## [989] "YES" "YES" "YES" "YES"
## [993] "Sin Registro" "YES" "YES" "YES"
## [997] "YES" "YES" "Sin Registro" "YES"
## [1001] "YES" "YES" "Sin Registro" "Sin Registro"
## [1005] "Sin Registro" "YES" "YES" "YES"
## [1009] "YES" "YES" "Sin Registro" "YES"
## [1013] "YES" "YES" "YES" "YES"
## [1017] "YES" "YES" "YES" "YES"
## [1021] "YES" "YES" "YES" "YES"
## [1025] "Sin Registro" "Sin Registro" "YES" "YES"
## [1029] "Sin Registro" "YES" "YES" "YES"
## [1033] "YES" "Sin Registro" "Sin Registro" "YES"
## [1037] "YES" "YES" "YES" "YES"
## [1041] "YES" "YES" "Sin Registro" "Sin Registro"
## [1045] "Sin Registro" "YES" "YES" "Sin Registro"
## [1049] "YES" "YES" "Sin Registro" "Sin Registro"
## [1053] "Sin Registro" "Sin Registro" "Sin Registro" "Sin Registro"
## [1057] "YES" "Sin Registro" "Sin Registro" "Sin Registro"
## [1061] "Sin Registro" "Sin Registro" "YES" "Sin Registro"
## [1065] "YES" "Sin Registro" "Sin Registro" "Sin Registro"
## [1069] "Sin Registro" "Sin Registro" "Sin Registro" "Sin Registro"
## [1073] "Sin Registro" "Sin Registro" "NO" "YES"
## [1077] "YES" "YES" "YES" "NO"
## [1081] "YES" "NO" "NO" "Sin Registro"
## [1085] "Sin Registro" "NO" "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
TDFIntrusion <- table(Intrusion)
TDFIntrusion <- as.data.frame(TDFIntrusion)
TDFIntrusion## Intrusion Freq
## 1 NO 306
## 2 Sin Registro 365
## 3 YES 419#calcular frecuencia absolutas y simples
TDFIntrusionFinal <- TDFIntrusion %>%
group_by(Intrusion) %>%
summarise(
ni = sum(Freq),
hi = round((sum(ni) / sum(TDFIntrusion$Freq)) * 100, 2)
)
TDFIntrusionFinal <- data.frame(TDFIntrusionFinal)
TDFIntrusionFinal## Intrusion ni hi
## 1 NO 306 28.07
## 2 Sin Registro 365 33.49
## 3 YES 419 38.44#Comprobación del tamaño
sum(TDFIntrusionFinal$ni)## [1] 1090sum(TDFIntrusionFinal$hi)## [1] 100#Agregar Total
Total_ni <- sum(TDFIntrusionFinal$ni)
Total_hi <- sum(TDFIntrusionFinal$hi)
TDFIntrusionFinalCompleto <- rbind(TDFIntrusionFinal,
data.frame(Intrusion="Total", ni = Total_ni, hi = Total_hi))
print(TDFIntrusionFinalCompleto)## Intrusion ni hi
## 1 NO 306 28.07
## 2 Sin Registro 365 33.49
## 3 YES 419 38.44
## 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
TablaIntrusion <- TDFIntrusionFinalCompleto %>%
gt(rowname_col = NULL) %>%
tab_header(
title = md("**Tabla Nº1**"),
subtitle = md("**Distribucion de Intrusiones de 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 = TDFIntrusionFinalCompleto$Intrusion == "Total"
)
)
TablaIntrusion| Tabla Nº1 | ||
| Distribucion de Intrusiones de Mineralización | ||
| Intrusion | ni | hi |
|---|---|---|
| NO | 306 | 28.07 |
| Sin Registro | 365 | 33.49 |
| YES | 419 | 38.44 |
| 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(TDFIntrusionFinalCompleto$ni[1:(nrow(TDFIntrusionFinalCompleto)-1)],
main = "Gráfica Nº1: Distribucion de Intrusiones de Mineralización en Depósito masivos de sulfuros volcanicos (Local)",
cex.main=0.7,
col = "gray",
xlab = "Presencia de Intrusiones Mineralización",
ylab = "Cantidad (ni)",
names.arg = TDFIntrusionFinalCompleto$Intrusion[1:(nrow(TDFIntrusionFinalCompleto)-1)])
#Diagrama de barras ni (global)
barplot(
TDFIntrusionFinalCompleto$ni[1:(nrow(TDFIntrusionFinalCompleto)-1)],
main = "Gráfica Nº2: Distribucion de Intrusiones de Mineralización en Depósito masivos de sulfuros volcanicos (Global)",
cex.main = 0.7,
xlab = "Presencia Intrusiones de Mineralización",
ylab = "Cantidad (ni)",
col = "gray",
names.arg = TDFIntrusionFinalCompleto$Intrusion[1:(nrow(TDFIntrusionFinalCompleto)-1)],
ylim = c(0, 1090)
)
3.2. DIAGRAMA DE BARRAS hi (LOCAL/GLOBAL)
#Diagrama de barras hi (local)
hi_local <- as.numeric(TDFIntrusionFinalCompleto$hi[1:(nrow(TDFIntrusionFinalCompleto)-1)])
barplot(
hi_local,
main = "Gráfica Nº3: Distribucion de Intrusiones de Mineralización en Depósito masivos de sulfuros volcanicos (Local)",
cex.main = 0.7,
xlab = "Presencia de Intrusiones de Mineralización",
ylab = "Porcentaje (%)",
col = "gray",
names.arg = TDFIntrusionFinalCompleto$Intrusion[1:(nrow(TDFIntrusionFinalCompleto)-1)] ,
cex.names = 1,
ylim = c(0, 40)
)
#Diagrama de barras hi (global)
hi_local <- as.numeric(TDFIntrusionFinalCompleto$hi[1:(nrow(TDFIntrusionFinalCompleto)-1)])
barplot(
hi_local,
main = "Gráfica Nº3: Distribucion de Intrusiones de Mineralización en Depósito masivos de sulfuros volcanicos (Local)",
cex.main = 0.7,
xlab = "Presencia de Intrusiones de Mineralización",
ylab = "Porcentaje (%)",
col = "gray",
names.arg = TDFIntrusionFinalCompleto$Intrusion[1:(nrow(TDFIntrusionFinalCompleto)-1)] ,
cex.names = 1,
ylim = c(0, 100)
)
Diagrama circular
4. DIAGRAMA CIRCULAR
#Diagrama circular
hi_intrusion <- as.numeric(TDFIntrusionFinalCompleto$hi[1:(nrow(TDFIntrusionFinalCompleto)-1)])
deformacion <- TDFIntrusionFinalCompleto$Intrusion[1:(nrow(TDFIntrusionFinalCompleto)-1)]
Colores <- colorRampPalette(c("lightskyblue", "darkblue"))(length(hi_intrusion))
etiquetas <- paste0(hi_intrusion, "%")
par(mfrow = c(1,2))
par(mar = c(2,2,4,2))
pie(
hi_intrusion,
radius = 0.7,
col = Colores,
labels = etiquetas,
main = "Gráfica Nº5: Distribucion de Intrusiones
de Mineralización en Depósito masivos
de sulfuros volcanicos",
cex.main = 0.9
)
plot.new()
legend(
"center",
title = "Intrusiones de Mineralización",
legend = deformacion,
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
INTM_limpia <- as.character(Intrusion)
INTM_limpia <- INTM_limpia [!is.na(INTM_limpia)]
# Tabla de frecuencias
tabla_INTM <- table(INTM_limpia)
# Moda
moda_intm <- names(tabla_INTM)[which.max(as.numeric(tabla_INTM))]
moda_intm## [1] "YES"5.1. Tabla de Indicadores Estadísticos
#MODA
Variable<-c("Intrusión Mineralización")
TablaIndicadores<-data.frame(Variable,moda_intm)
colnames(TablaIndicadores)<-c("Variable","Moda")
kable(TablaIndicadores, format = "markdown", caption = "Tabla N°2. Indicadores Estadíticos de la variable Intrusión Mineralización en depósitos masivos de sulfuros volcanicos")| Variable | Moda |
|---|---|
| Intrusión Mineralización | YES |
Conclusiones
6. Conclusión
La variable Intrusion Mineralización indica que la moda es “YES”, lo que significa que la presencia de intrusión de 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.