Análisis de Depósitos Masivos de Sulfuro Volcánicos (Variable Intrusión Mineralizacion)
Grupo 2
2025-12-09
Carga de Datos
1. CARGA DE LIBRERIAS
# cargar librerías
library(readxl)
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)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 Post 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
)