Análisis de Depósitos Masivos de Sulfuro Volcánicos (Variable Mineral)
Grupo 2
2025-12-15
ANÁLISIS ESTADÍSTICO
CARGA DE DATOS Y LIBRERÍAS
CARGA DE DATOS
#Carga de datos
setwd("~/UNI/ESTADISTICA")
datos<- read.csv("mineral_clasificado.csv", header = TRUE, sep = ";", dec = ".")
datos <- read.csv("mineral_clasificado.csv",header = TRUE,sep = ";",dec = ".",fileEncoding = "UTF-8")CARGA DE LIBRERIAS
#Carga de librerias
library(gt)
library(dplyr)
library(knitr)TABLA DE DISTRIBUCIÓN DE FRECUENCIA
TABLA DE DISTRIBUCION DE FRECUENCIA POR NOMBRE DE MINERAL
# Variable
mineral <- as.character(datos$mineral)
mineral <- iconv(mineral, from = "", to = "UTF-8", sub = "")
# Frecuencias
ni <- table(mineral)
hi <- round(prop.table(ni) * 100, 2)
# Tabla base
tabla_final <- data.frame(
mineral = names(ni),
ni = as.numeric(ni),
hi = as.numeric(hi),
stringsAsFactors = FALSE
)TABLA DE DISTRIBUCION DE FRECUENCIA POR NOMBRE DEL MINERAL
tabla_mineralp_gt <- gt(tabla_final)
tabla_mineralp_gt <- tab_header(
tabla_mineralp_gt,
title = "Tabla N° 1",
subtitle = "Distribucion de frecuencia por el nombre del mineral en Depositos Masivos de Sulfuro Volcanicos"
)
tabla_mineralp_gt <- tab_source_note(
tabla_mineralp_gt,
source_note = "Autor: Grupo 2"
)
tabla_mineralp_gt <- tab_options(
tabla_mineralp_gt,
table.border.top.color = "black",
table.border.bottom.color = "black"
)
tabla_mineralp_gt| Tabla N° 1 | ||
| Distribucion de frecuencia por el nombre del mineral en Depositos Masivos de Sulfuro Volcanicos | ||
| mineral | ni | hi |
|---|---|---|
| acanthite | 23 | 0.18 |
| actinolite | 76 | 0.58 |
| adularia | 7 | 0.05 |
| Ag-pyrite | 1 | 0.01 |
| Ag-sulphosalts | 1 | 0.01 |
| Ag-tellurides | 1 | 0.01 |
| aikinite | 20 | 0.15 |
| alabandite | 1 | 0.01 |
| alaite | 2 | 0.02 |
| alaskaite | 1 | 0.01 |
| albite | 116 | 0.89 |
| aleksite | 2 | 0.02 |
| alkali-amphibole | 1 | 0.01 |
| alloclasite | 9 | 0.07 |
| allophane | 1 | 0.01 |
| almandine | 7 | 0.05 |
| altaite | 38 | 0.29 |
| alunite | 12 | 0.09 |
| amalgam | 2 | 0.02 |
| amarantite | 1 | 0.01 |
| amphibole | 9 | 0.07 |
| anatase | 8 | 0.06 |
| andalusite | 23 | 0.18 |
| andesine | 1 | 0.01 |
| andorite | 3 | 0.02 |
| andradite | 2 | 0.02 |
| anglesite | 20 | 0.15 |
| anhydrite | 44 | 0.34 |
| anilite | 2 | 0.02 |
| ankerite | 45 | 0.34 |
| anthophyllite | 30 | 0.23 |
| antigorite | 1 | 0.01 |
| antimony | 11 | 0.08 |
| antlerite | 1 | 0.01 |
| apatite | 46 | 0.35 |
| aragonite | 1 | 0.01 |
| argentian-freibergite | 1 | 0.01 |
| argentian pentlandite | 2 | 0.02 |
| argentite | 59 | 0.45 |
| argentojarosite | 2 | 0.02 |
| argyrodite | 4 | 0.03 |
| arsenic | 6 | 0.05 |
| arsenides | 1 | 0.01 |
| arsenopyrite | 287 | 2.20 |
| atacamite | 1 | 0.01 |
| Au-Ag-Hg alloy | 1 | 0.01 |
| Au-Ag amalgam | 1 | 0.01 |
| aurichalcite | 1 | 0.01 |
| axinite | 4 | 0.03 |
| azurite | 77 | 0.59 |
| Ba-adularia | 1 | 0.01 |
| Ba-feldspar | 1 | 0.01 |
| Ba-muscovite | 2 | 0.02 |
| balkanite | 1 | 0.01 |
| barite | 292 | 2.24 |
| barium-bearing feldspar | 1 | 0.01 |
| barium feldspar | 1 | 0.01 |
| benleonardite [Ag8(Sb,As)Te2S3] | 1 | 0.01 |
| berndtite | 1 | 0.01 |
| berthierite | 10 | 0.08 |
| berzelianite(?) | 1 | 0.01 |
| betekhtinite | 11 | 0.08 |
| beudantite | 4 | 0.03 |
| Bi | 1 | 0.01 |
| Bi-boulangerite | 1 | 0.01 |
| Bi-jamesonite | 2 | 0.02 |
| Bi-meneghinite | 1 | 0.01 |
| Bi-Pb-Te sulphosalt | 1 | 0.01 |
| bianchite | 1 | 0.01 |
| bieberite | 2 | 0.02 |
| bindheimite | 1 | 0.01 |
| biotite | 113 | 0.87 |
| bismuth | 59 | 0.45 |
| bismuth minerals | 1 | 0.01 |
| bismuth sulfosalts | 2 | 0.02 |
| bismuth telluride (wehrlite, hedleyite, or tellurobismuthinite) | 1 | 0.01 |
| bismuthinite | 60 | 0.46 |
| bismutite | 2 | 0.02 |
| bitumen | 1 | 0.01 |
| bohdanowiczite | 1 | 0.01 |
| bornite | 246 | 1.89 |
| botryogen | 1 | 0.01 |
| boulangerite | 50 | 0.38 |
| bournonite | 71 | 0.54 |
| brannerite | 4 | 0.03 |
| braunite | 1 | 0.01 |
| bravoite | 3 | 0.02 |
| breithauptite | 5 | 0.04 |
| breunnerite | 3 | 0.02 |
| brochantite | 6 | 0.05 |
| brookite | 1 | 0.01 |
| bursaite | 1 | 0.01 |
| bustamite | 1 | 0.01 |
| butlerite | 1 | 0.01 |
| Ca-silicates | 1 | 0.01 |
| cadmoselite | 1 | 0.01 |
| calaverite | 18 | 0.14 |
| calingastite | 1 | 0.01 |
| canfieldite | 2 | 0.02 |
| cannizzarite | 1 | 0.01 |
| cannizzarite [Pb4Bi6S13] | 1 | 0.01 |
| carbonaceous materials | 1 | 0.01 |
| carbonate | 144 | 1.10 |
| carrollite | 8 | 0.06 |
| caryopilite | 1 | 0.01 |
| cassiterite | 52 | 0.40 |
| cattierite | 1 | 0.01 |
| celsian | 10 | 0.08 |
| cerussite | 20 | 0.15 |
| cervelleite | 1 | 0.01 |
| cervelleite [Ag4TeS] | 3 | 0.02 |
| chalcanthite | 13 | 0.10 |
| chalcedony | 8 | 0.06 |
| chalcocite | 200 | 1.53 |
| chalcopyrite | 1017 | 7.80 |
| chalcostibite | 1 | 0.01 |
| chalcotrichite | 1 | 0.01 |
| chalmersite | 2 | 0.02 |
| chamosite | 1 | 0.01 |
| chert | 17 | 0.13 |
| chessylite | 1 | 0.01 |
| chilenite [AgBi] | 1 | 0.01 |
| chlorite | 547 | 4.19 |
| chlorite (thuringite to ripidolite) | 1 | 0.01 |
| chloritoid | 13 | 0.10 |
| chromite | 4 | 0.03 |
| chrysocolla | 23 | 0.18 |
| cinnabar | 7 | 0.05 |
| clausthalite | 9 | 0.07 |
| clausthalite [PbSe] | 1 | 0.01 |
| clay | 8 | 0.06 |
| clays | 1 | 0.01 |
| clinopyroxene | 2 | 0.02 |
| clinozoisite | 6 | 0.05 |
| Co-pyrite | 1 | 0.01 |
| Co-sulfarsenate | 1 | 0.01 |
| cobalt mackinawite | 1 | 0.01 |
| cobalt minerals | 1 | 0.01 |
| cobaltiferous pentlandite | 5 | 0.04 |
| cobaltite | 45 | 0.34 |
| coloradoite | 7 | 0.05 |
| colusite | 3 | 0.02 |
| complex sulfide [(Fe,Co,Cu)S2] | 1 | 0.01 |
| copiapite | 4 | 0.03 |
| copper | 56 | 0.43 |
| copper oxides | 2 | 0.02 |
| coquimbite | 3 | 0.02 |
| cordierite | 30 | 0.23 |
| cosalite | 14 | 0.11 |
| costibite | 2 | 0.02 |
| covellite | 175 | 1.34 |
| covellite copper | 1 | 0.01 |
| Cu-argentite | 1 | 0.01 |
| cubanite | 101 | 0.77 |
| cubanite(?) | 1 | 0.01 |
| cummingtonite | 7 | 0.05 |
| cuprargyrite | 1 | 0.01 |
| cuprite | 46 | 0.35 |
| dannemorite | 1 | 0.01 |
| delessite | 1 | 0.01 |
| diaphorite | 1 | 0.01 |
| diaspore | 7 | 0.05 |
| dickite | 3 | 0.02 |
| digenite | 47 | 0.36 |
| diopside | 14 | 0.11 |
| djurleite | 4 | 0.03 |
| dolomite | 71 | 0.54 |
| domeykite | 1 | 0.01 |
| donbassite | 1 | 0.01 |
| duftite | 1 | 0.01 |
| dyscrasite | 13 | 0.10 |
| dzharkenite [FeSe2] | 1 | 0.01 |
| electrum | 106 | 0.81 |
| electrum native | 1 | 0.01 |
| emplectite | 12 | 0.09 |
| empressite | 2 | 0.02 |
| empressite [AgTe] | 1 | 0.01 |
| enargite | 67 | 0.51 |
| enargite(?) | 1 | 0.01 |
| epidote | 154 | 1.18 |
| epsomite | 1 | 0.01 |
| erythrite | 1 | 0.01 |
| eskolaite | 1 | 0.01 |
| eucairite | 1 | 0.01 |
| famatinite | 6 | 0.05 |
| Fe-Al sulfate | 4 | 0.03 |
| Fe oxyhydroxide | 4 | 0.03 |
| Fe sulfate | 4 | 0.03 |
| feldspar | 21 | 0.16 |
| ferroactinolite | 1 | 0.01 |
| ferroan carbonate | 1 | 0.01 |
| ferroan dolomite | 2 | 0.02 |
| ferropalidite | 1 | 0.01 |
| ferropyrosmalite chlorite | 1 | 0.01 |
| ferrostilpnomelane | 1 | 0.01 |
| fibroferrite | 3 | 0.02 |
| fizelyite | 1 | 0.01 |
| florencite | 1 | 0.01 |
| fluorite | 61 | 0.47 |
| fornacite | 1 | 0.01 |
| franklinite | 1 | 0.01 |
| freibergite | 35 | 0.27 |
| freieslebenite | 4 | 0.03 |
| friedelite | 1 | 0.01 |
| frohbergite | 2 | 0.02 |
| frohbergite [FeTe2] | 1 | 0.01 |
| fuchite | 1 | 0.01 |
| fulopite | 1 | 0.01 |
| gahnite | 28 | 0.21 |
| galena | 657 | 5.04 |
| galenobismutite | 17 | 0.13 |
| garnet | 66 | 0.51 |
| Ge-colusite | 1 | 0.01 |
| gedrite | 5 | 0.04 |
| geocronite | 6 | 0.05 |
| germanite | 18 | 0.14 |
| gersdorffite | 4 | 0.03 |
| giessenite [Pb9CuBi6Sb1.5S30] | 1 | 0.01 |
| gladite | 2 | 0.02 |
| glaucodot | 11 | 0.08 |
| glaucophane | 3 | 0.02 |
| goethite | 40 | 0.31 |
| gold | 176 | 1.35 |
| gold magnetite | 1 | 0.01 |
| goldfieldite | 2 | 0.02 |
| goongarrite [Pb4Bi2S7] | 2 | 0.02 |
| gorceixite | 1 | 0.01 |
| goslarite | 3 | 0.02 |
| grammatite | 1 | 0.01 |
| graphite | 30 | 0.23 |
| greenalite | 2 | 0.02 |
| greenockite | 7 | 0.05 |
| grossularite | 2 | 0.02 |
| gruenlingite | 1 | 0.01 |
| grunerite | 2 | 0.02 |
| gudmundite | 26 | 0.20 |
| gustavite | 4 | 0.03 |
| gypsum | 80 | 0.61 |
| halloysite | 1 | 0.01 |
| halotrichite | 1 | 0.01 |
| hammarite | 3 | 0.02 |
| hastingsite | 1 | 0.01 |
| hauchecornite [Ni9Bi(Sb,Bi)S8] | 1 | 0.01 |
| hausmannite | 1 | 0.01 |
| hedenbergite | 2 | 0.02 |
| hedleyite | 6 | 0.05 |
| hematite | 185 | 1.42 |
| hematite chlorite | 3 | 0.02 |
| hematite malachite | 1 | 0.01 |
| hessite | 73 | 0.56 |
| heteromorphite | 1 | 0.01 |
| hexahydrite | 1 | 0.01 |
| heyrovskyite | 2 | 0.02 |
| hisingerite | 1 | 0.01 |
| hornblende | 37 | 0.28 |
| horobetsuite | 1 | 0.01 |
| hyalophane | 9 | 0.07 |
| hydromica | 1 | 0.01 |
| hydronium-jarosite | 1 | 0.01 |
| idaite | 15 | 0.11 |
| iddingsite | 4 | 0.03 |
| illite | 6 | 0.05 |
| ilmenite | 84 | 0.64 |
| ilvaite | 3 | 0.02 |
| iodargyrite | 1 | 0.01 |
| isocubanite | 1 | 0.01 |
| jalpaite | 9 | 0.07 |
| jamesonite | 16 | 0.12 |
| japailite | 2 | 0.02 |
| jarosite | 39 | 0.30 |
| jaskolskiite | 3 | 0.02 |
| jasper | 16 | 0.12 |
| jordanite | 2 | 0.02 |
| joseite | 3 | 0.02 |
| joseite-A | 1 | 0.01 |
| joseite-B | 1 | 0.01 |
| junoite | 1 | 0.01 |
| K-feldspar | 15 | 0.11 |
| küstelite | 2 | 0.02 |
| kaolinite | 41 | 0.31 |
| kesterite | 10 | 0.08 |
| kieserite | 1 | 0.01 |
| kirovite | 1 | 0.01 |
| klausthalite | 1 | 0.01 |
| klausthalite [PbSe] | 1 | 0.01 |
| klockmannite | 2 | 0.02 |
| klockmannite [CuSe] | 1 | 0.01 |
| kobellite | 14 | 0.11 |
| kongsbergite | 1 | 0.01 |
| krennerite | 9 | 0.07 |
| krennerite [(Au,Ag)Te2] | 1 | 0.01 |
| krupkaite | 2 | 0.02 |
| krupkaite [PbCuBi3S6] | 1 | 0.01 |
| kutnohorite | 2 | 0.02 |
| kyanite | 12 | 0.09 |
| löllingite | 4 | 0.03 |
| laitakarite | 4 | 0.03 |
| laitakarite [Bi4(Se,S)3] | 1 | 0.01 |
| lautite | 1 | 0.01 |
| lautite [CuAsS] | 1 | 0.01 |
| lengenbachite | 1 | 0.01 |
| lepidocrocite | 4 | 0.03 |
| leucoxene | 7 | 0.05 |
| lillianite | 4 | 0.03 |
| limonite | 59 | 0.45 |
| limonite jarosite | 1 | 0.01 |
| lindströmite | 4 | 0.03 |
| lindströmite [Pb3Cu3Bi7S13] | 1 | 0.01 |
| lindströmite [Pb3Cu3Bi7S15] | 1 | 0.01 |
| linnaeite | 12 | 0.09 |
| lollingite | 3 | 0.02 |
| lorandite [TlAsS2] | 1 | 0.01 |
| luzonite | 10 | 0.08 |
| mackinawite | 54 | 0.41 |
| maghemite | 3 | 0.02 |
| magnesite | 1 | 0.01 |
| magnetite | 379 | 2.91 |
| malachite | 102 | 0.78 |
| manganoan siderite | 1 | 0.01 |
| marcasite | 183 | 1.40 |
| mariposite | 1 | 0.01 |
| massicot | 1 | 0.01 |
| matildite | 5 | 0.04 |
| mawsonite | 10 | 0.08 |
| mckinstryite | 5 | 0.04 |
| melanterite | 5 | 0.04 |
| melnikovite | 10 | 0.08 |
| melonite | 4 | 0.03 |
| meneghinite | 22 | 0.17 |
| metacinnabar [HgS] | 1 | 0.01 |
| Mg-Mn carbonate | 3 | 0.02 |
| Mg-silicates | 1 | 0.01 |
| miargyrite | 5 | 0.04 |
| mica | 4 | 0.03 |
| micas | 1 | 0.01 |
| microcline | 4 | 0.03 |
| miharaite | 1 | 0.01 |
| millerite | 5 | 0.04 |
| minnesotaite | 1 | 0.01 |
| Mn-axinite | 1 | 0.01 |
| Mn-garnet | 1 | 0.01 |
| Mn-siderite | 1 | 0.01 |
| molybdenite | 87 | 0.67 |
| molybdenite pentlandite | 1 | 0.01 |
| molybdenum mineral | 1 | 0.01 |
| monazite | 4 | 0.03 |
| monazite-(Ce) | 5 | 0.04 |
| montbrayite [(Au,Sb)Te] | 1 | 0.01 |
| montmorillonite | 14 | 0.11 |
| morenosite | 1 | 0.01 |
| mottramite | 1 | 0.01 |
| muscovite | 98 | 0.75 |
| muthmannite [(Ag,Au)Te] | 1 | 0.01 |
| natroalunite | 1 | 0.01 |
| naumannite | 5 | 0.04 |
| naumannite [Ag2Se] | 1 | 0.01 |
| nekrasovite | 1 | 0.01 |
| neodigenite | 4 | 0.03 |
| Ni-cobaltite | 1 | 0.01 |
| nickeline | 2 | 0.02 |
| nisbite | 2 | 0.02 |
| nisbite [NiSb2] | 1 | 0.01 |
| nontronite | 1 | 0.01 |
| nuffieldite | 3 | 0.02 |
| oligoclase | 2 | 0.02 |
| opal | 4 | 0.03 |
| orpiment | 3 | 0.02 |
| orthite | 1 | 0.01 |
| orthoclase | 3 | 0.02 |
| osarizawaite | 1 | 0.01 |
| owyheeite | 1 | 0.01 |
| parabutlerite | 1 | 0.01 |
| paragonite | 4 | 0.03 |
| paraguanajuatite | 1 | 0.01 |
| patrinite | 1 | 0.01 |
| pavonite | 1 | 0.01 |
| Pb-Ag sulpharsenite | 1 | 0.01 |
| pearceite | 11 | 0.08 |
| pekoite | 2 | 0.02 |
| pentlandite | 17 | 0.13 |
| petzite | 9 | 0.07 |
| phlogopite | 15 | 0.11 |
| phosphates | 1 | 0.01 |
| picotite | 1 | 0.01 |
| pilsenite | 2 | 0.02 |
| pisanite | 1 | 0.01 |
| pitchblende(?) | 1 | 0.01 |
| plagioclase | 23 | 0.18 |
| plagioclase (oligoclase) | 2 | 0.02 |
| plagionite | 5 | 0.04 |
| plumbogummite | 1 | 0.01 |
| plumbojarosite | 3 | 0.02 |
| polyargyrite | 2 | 0.02 |
| polybasite | 16 | 0.12 |
| polydymite | 1 | 0.01 |
| prehnite | 2 | 0.02 |
| proustite | 14 | 0.11 |
| pseudomalachite | 1 | 0.01 |
| pumpellyite | 5 | 0.04 |
| pyrargyrite | 33 | 0.25 |
| pyrite | 1011 | 7.75 |
| pyrolusite | 1 | 0.01 |
| pyromorphite | 2 | 0.02 |
| pyrophyllite | 11 | 0.08 |
| pyroxene | 5 | 0.04 |
| pyrrhotite | 553 | 4.24 |
| ramdohrite | 1 | 0.01 |
| realgar | 5 | 0.04 |
| REE-gorceixite | 1 | 0.01 |
| renierite | 7 | 0.05 |
| rezbanyite | 4 | 0.03 |
| rezbanyite [Pb3Cu2Bi10S19] | 1 | 0.01 |
| rhodochrosite | 11 | 0.08 |
| rhodonite | 4 | 0.03 |
| robinsonite | 1 | 0.01 |
| roemerite | 1 | 0.01 |
| roquesite | 2 | 0.02 |
| rozenite | 2 | 0.02 |
| rucklidgeite | 1 | 0.01 |
| rutile | 99 | 0.76 |
| safflorite | 4 | 0.03 |
| saponite | 2 | 0.02 |
| sarmientite | 1 | 0.01 |
| saussurite | 1 | 0.01 |
| Sb-pearceite | 1 | 0.01 |
| scapolite | 7 | 0.05 |
| scheelite | 8 | 0.06 |
| scorodite | 2 | 0.02 |
| seleniferous bismuthinite | 1 | 0.01 |
| seligmantie | 1 | 0.01 |
| semseyite | 3 | 0.02 |
| sericite | 441 | 3.38 |
| serpentine | 3 | 0.02 |
| siderite | 64 | 0.49 |
| siegenite | 6 | 0.05 |
| siliceous manganese oxide | 1 | 0.01 |
| sillimanite | 6 | 0.05 |
| silver | 118 | 0.90 |
| silver sphalerite | 1 | 0.01 |
| silver sulfosalts | 1 | 0.01 |
| skutterudite | 1 | 0.01 |
| slavikite | 1 | 0.01 |
| smaltite [(Co,Ni)As3-x] | 1 | 0.01 |
| smectite | 2 | 0.02 |
| smithsonite | 11 | 0.08 |
| specularite | 6 | 0.05 |
| spessartine | 2 | 0.02 |
| sphalerite | 898 | 6.88 |
| sphene | 29 | 0.22 |
| spinel | 1 | 0.01 |
| spionkopite | 1 | 0.01 |
| stützite | 1 | 0.01 |
| stützite [Ag5-xTe3] | 1 | 0.01 |
| stannite | 53 | 0.41 |
| stannoidite | 7 | 0.05 |
| staurolite | 14 | 0.11 |
| stephanite | 18 | 0.14 |
| sternbergite | 4 | 0.03 |
| stibiopearceite | 1 | 0.01 |
| stibnite | 16 | 0.12 |
| stilpnomelane | 13 | 0.10 |
| stromeyerite | 33 | 0.25 |
| sulfosalts | 2 | 0.02 |
| sulfur | 10 | 0.08 |
| sulvanite | 4 | 0.03 |
| sylvanite | 12 | 0.09 |
| szomolnokite | 1 | 0.01 |
| talc | 72 | 0.55 |
| talnakhite | 1 | 0.01 |
| talnakhite tennantite | 1 | 0.01 |
| tellurides | 18 | 0.14 |
| tellurite | 2 | 0.02 |
| tellurium | 6 | 0.05 |
| tellurobismuthite | 27 | 0.21 |
| tennantite | 232 | 1.78 |
| tennantite tourmaline | 1 | 0.01 |
| tenorite | 8 | 0.06 |
| tephroite | 2 | 0.02 |
| tetradymite | 33 | 0.25 |
| tetrahedrite | 309 | 2.37 |
| tetrahedrite(?) | 1 | 0.01 |
| tetrahymite | 1 | 0.01 |
| tiemmanite [HgSe] | 1 | 0.01 |
| tintianaite | 1 | 0.01 |
| tirodite | 1 | 0.01 |
| titanite | 4 | 0.03 |
| titanomagnetite | 3 | 0.02 |
| topaz | 1 | 0.01 |
| tourmaline | 38 | 0.29 |
| tourmaline (Mg-schorl) | 1 | 0.01 |
| tremolite | 45 | 0.34 |
| troilite | 1 | 0.01 |
| tucekite | 1 | 0.01 |
| tungstenite | 1 | 0.01 |
| twinnite | 5 | 0.04 |
| ullmannite | 4 | 0.03 |
| unidentified Bi2Te | 1 | 0.01 |
| unidentified Bi3Te2 | 1 | 0.01 |
| uraniferous carbon | 1 | 0.01 |
| uraninite | 3 | 0.02 |
| valleriite | 54 | 0.41 |
| vermiculite | 1 | 0.01 |
| vesuvianite | 1 | 0.01 |
| vinciennite | 1 | 0.01 |
| violarite | 3 | 0.02 |
| volynskite | 2 | 0.02 |
| volynskite [AgBiTe2] | 1 | 0.01 |
| wehrlite | 3 | 0.02 |
| wehrlite [BiTe] | 1 | 0.01 |
| weissite [Cu5Te3] | 1 | 0.01 |
| witherite | 2 | 0.02 |
| wittichenite | 19 | 0.15 |
| wittichinite | 1 | 0.01 |
| wittite [Pb9Bi12(S,Se)27] | 1 | 0.01 |
| wolframite | 1 | 0.01 |
| wollastonite | 3 | 0.02 |
| wulfenite | 2 | 0.02 |
| wurtzite | 10 | 0.08 |
| xanthoconite | 1 | 0.01 |
| xenotime | 2 | 0.02 |
| zeolite | 16 | 0.12 |
| zincian chromite | 1 | 0.01 |
| zincite | 1 | 0.01 |
| zinkenite | 2 | 0.02 |
| zircon | 9 | 0.07 |
| zoisite | 4 | 0.03 |
| zunyite | 1 | 0.01 |
| Autor: Grupo 2 | ||
TABLA DE DISTRIBUCIÓN DE FRECUENCIA AGRUPADA
Se agrupo por el tipo de mineral metalico o no metalico debido ya que se registraron 528 minerales, y la tabla de distribucion de frecuencia va hacer muy extensa
TABLA DE DISTRIBUCION DE FRECUENCIA POR TIPO DE MINERAL
# Extraer la variable
Tipo_mineral<-datos$tipo
# crear y visualizar la tabla de frecuencia
TDF_tipomineral<-table(Tipo_mineral)
TDF_tipomineral## Tipo_mineral
## Metálico No metálico
## 7471 5574# Frecuencia absoluta
ni <- table(Tipo_mineral)
# Frecuencia relativa %
hi <- round(prop.table(ni) * 100,2)
# Crear tabla base
tabla_final_tipo_mineral <- data.frame(
Tipo_mineral = names(ni),
ni = as.numeric(ni),
hi = as.numeric(hi)
)Fila total de las sumas de ni y hi
# Crear fila total
fila_total <- data.frame(
Tipo_mineral = "TOTAL",
ni = sum(tabla_final_tipo_mineral$ni),
hi = sum(tabla_final_tipo_mineral$hi)
)
# Unir tabla
tabla_final_tipo_mineral<- rbind(tabla_final_tipo_mineral, fila_total)
# Mostrar tabla
tabla_final_tipo_mineral## Tipo_mineral ni hi
## 1 Metálico 7471 57.27
## 2 No metálico 5574 42.73
## 3 TOTAL 13045 100.00TABLA DE DISTRIBUCION DE FRECUENCIA POR TIPO DE MINERAL
tabla_mineral_gt <- tabla_final_tipo_mineral %>%
gt() %>%
tab_header(
title = md("**Tabla N° 2**"),
subtitle = md("Distribución por tipo de mineral metalico o no metalico en Depósitos <br>
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 = Tipo_mineral == "Total")
)
tabla_mineral_gt| Tabla N° 2 | ||
| Distribución por tipo de mineral metalico o no metalico en Depósitos Masivos de Sulfuro Volcánicos |
||
| Tipo_mineral | ni | hi |
|---|---|---|
| Metálico | 7471 | 57.27 |
| No metálico | 5574 | 42.73 |
| TOTAL | 13045 | 100.00 |
| Autor: Grupo 2 | ||
GRÁFICAS DE DISTRIBUCIÓN DE FRECUENCIA
Diagrama de barras de frecuencia absoluta local
barplot(tabla_final_tipo_mineral$ni[1:(nrow(tabla_final_tipo_mineral)-1)],
main = "Gráfica Nº1: Distribución de frecuencia absoluta local por
tipo de mineral en Depósito masivos de sulfuros volcanicos",
cex.main=0.8,
col = "gray",
xlab = "Tipo de mineral",
ylab = "Cantidad (ni)",
names.arg = tabla_final_tipo_mineral$Tipo_mineral[1:(nrow(tabla_final_tipo_mineral)-1)]
)
Diagrama de barras de frecuencia absoluta global
barplot(
tabla_final_tipo_mineral$ni[1:(nrow(tabla_final_tipo_mineral)-1)],
main = "Gráfica Nº2: Distribución de frecuencia absoluta global por
tipo de mineral en Depósito masivos de sulfuros volcanicos)",
cex.main = 0.8,
xlab = "Tipo de mineral",
ylab = "Cantidad (ni)",
col = "gray",
names.arg = tabla_final_tipo_mineral$Tipo_mineral[1:(nrow(tabla_final_tipo_mineral)-1)],
ylim = c(0, 13045)
)
Diagrama de barras de frecuencia relativa local
hi_local <- as.numeric(tabla_final_tipo_mineral$hi[1:(nrow(tabla_final_tipo_mineral)-1)])
barplot(
hi_local,
main = "Gráfica Nº3: Distribución de frecuencia relativa local por
tipo de mineral en Depósito masivos de sulfuros volcanicos",
cex.main = 0.8,
xlab = "Tipo de mineral",
ylab = "Porcentaje (%)",
col = "gray",
names.arg = tabla_final_tipo_mineral$Tipo_mineral[1:(nrow(tabla_final_tipo_mineral)-1)] ,
cex.names = 1
)
Diagrama de barras de frecuencia relativa global
hi_global <- as.numeric(tabla_final_tipo_mineral$hi[1:(nrow(tabla_final_tipo_mineral)-1)])
barplot(
hi_global,
main = "Gráfica Nº4: Distribución de frecuencia relativa global por
tipo de mineral en Depósito masivos de sulfuros volcanicos",
cex.main = 0.8,
xlab = "Tipo de mineral",
ylab = "Porcentaje (%)",
col = "gray",
names.arg = tabla_final_tipo_mineral$Tipo_mineral[1:(nrow(tabla_final_tipo_mineral)-1)],
cex.names = 1,
ylim = c(0, 100)
)
DIAGRAMA CIRCULAR
# Extraer valores
hi_mineral<- as.numeric(tabla_final_tipo_mineral$hi[1:(nrow(tabla_final_tipo_mineral)-1)])
vetas <- tabla_final_tipo_mineral$Tipo_mineral[1:(nrow(tabla_final_tipo_mineral)-1)]
Colores <- colorRampPalette(c("lightskyblue", "darkblue"))(length(hi_mineral))
etiquetas <- paste0(hi_mineral, "%")
par(mfrow = c(1,2))
par(mar = c(2,2,4,2))
pie(
hi_mineral,
radius = 1,
col = Colores,
labels = etiquetas,
main = "Gráfica Nº5: Distribución por tipo de
mineral en Depósito masivos de sulfuros
volcanicos",
cex.main = 0.8
)
plot.new()
legend(
"center",
title = "Tipo de mineral",
legend = vetas,
fill = Colores,
cex = 0.9,
bg = "white",
box.lwd = 0.9
)
INDICADORES ESTADISTICOS
Indicadores Estadisticos
POSICION
MODA
#MODA VARIABLE TIPO DE MINERAL
# Asegurar que ERA sea vector
tipo_limpia <- as.character(Tipo_mineral)
tipo_limpia <- tipo_limpia [!is.na(tipo_limpia )]
# Tabla de frecuencias
tabla_mineralt <- table(tipo_limpia)
# Moda
moda_tmin <- names(tabla_mineralt)[which.max(as.numeric(tabla_mineralt))]
moda_tmin## [1] "Metálico"TABLA DE INDICADORES ESTADISTICOS
#MODA VARIABLE TIPO DE MINERAL
Variable<-c("Tipo de Mineral")
TablaIndicadores<-data.frame(Variable,moda_tmin)
colnames(TablaIndicadores)<-c("Variable","Moda")
kable(TablaIndicadores, format = "markdown", caption = "Tabla N°4. Indicadores estadíticos de la variable mineral de los depositos masivos de sulfuros volcanicos")| Variable | Moda |
|---|---|
| Tipo de Mineral | Metálico |
CONCLUSIÓN
CONCLUSÍON
La variable tipo de mineral tiene como valor mas frecuente minerales metálico Lo resulta positivo desde el punto de vista minero, ya que estos depósitos concentran sulfuros metálicos de alto interés económico, fundamentales para la explotación de metales base y asociados.