Variable_Intrusión_Mineralizacion.R

#---------------------CARGA DE DATOS---------------------#

# 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, union

library(ggplot2)
library(gt)

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

#mostrar 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

#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] 1090

sum(TDFIntrusionFinal$hi)

## [1] 100

#Agregar Total
Total_ni <- sum(TDFIntrusionFinal$ni)
Total_hi <- 100

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.00

#Crear Tabla
TablaIntrusion <- TDFIntrusionFinalCompleto %>%
  gt(rowname_col = NULL) %>%
  tab_header(
    title = md("**Tabla N°**"),
    subtitle = md("**Tabla de Distribucion de Frecuencias Absolutas y Relativas Simples
                  de las 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°
Tabla de Distribucion de Frecuencias Absolutas y Relativas Simples de las 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