VETAS.R

setwd("/cloud/project")

# Cargar datos 
datos <- read.csv("Depositos_Sulfuro.csv", header = TRUE, sep = ";", dec = ".")

# Extraer variable
Vetas_Secundarias <- datos$stringer

# Reemplazar NA, vacíos, espacios, guiones, etc.
Vetas_Secundarias[Vetas_Secundarias == "" |
                    Vetas_Secundarias == " " |
                    Vetas_Secundarias == "-" |
                    is.na(Vetas_Secundarias)] <- "Sin registro"

# Frecuencia absoluta
ni <- table(Vetas_Secundarias)

# Frecuencia relativa %
hi <- prop.table(ni) * 100

# Crear tabla base
tabla_final <- data.frame(
  Vetas_Secundarias = names(ni),
  ni = as.numeric(ni),
  hi = as.numeric(hi)
)

# Crear fila total
fila_total <- data.frame(
  Vetas_Secundarias = "TOTAL",
  ni = sum(tabla_final$ni),
  hi = sum(tabla_final$hi)
)

# Unir tabla
tabla_final <- rbind(tabla_final, fila_total)

# Mostrar
tabla_final

##   Vetas_Secundarias   ni        hi
## 1                no  431  39.54128
## 2      Sin registro  275  25.22936
## 3               yes  384  35.22936
## 4             TOTAL 1090 100.00000