1. Configuración y Carga de Datos

datos_originales <- readr::read_csv2("C:/Users/cordo/OneDrive/Desktop/ESTADISITCA/Oil__Gas____Other_Regulated_Wells__Beginning_1860.csv")

2. Extracción y Limpieza de la Variable

tdf_espaciamiento <- datos_originales %>%
  select(Spacing) %>%
  filter(!is.na(Spacing)) %>%
  mutate(Espaciamiento = trimws(as.character(Spacing))) %>%
  group_by(Espaciamiento) %>%
  summarise(Fi = n()) %>%
  arrange(desc(Fi)) %>%
  mutate(hi = Fi / sum(Fi), Pi = hi * 100, Fi_ac = cumsum(Fi), hi_ac = cumsum(hi))

3. Identificación de la Variable

  • Variable: SPACING (Espaciamiento).
  • Tipo: Cualitativa / Cuantitativa discreta (según registro).
  • Descripción: Distancia de espaciamiento establecida para la operación del pozo.

4. Tabla de Distribución de Frecuencias

TABLA 1. Distribución de Frecuencias de Pozos por Espaciamiento
Espaciamiento Frec. Absoluta (Fi) Frec. Relativa (hi) Porcentaje (%) Frec. Abs. Acumulada (Fi_ac) Frec. Rel. Acumulada (hi_ac)
Exempt from Title 5 4138 0.7289061 72.8906112 4138 0.7289061
Conforms to statewide spacing under Title 5 780 0.1373965 13.7396512 4918 0.8663026
Exempt - not an oil or gas well 707 0.1245376 12.4537608 5625 0.9908402
Non-statutory unit under Title 5 36 0.0063414 0.6341377 5661 0.9971816
Established unit, infill well 10 0.0017615 0.1761494 5671 0.9989431
Unit established by order prior to August 2, 2005 6 0.0010569 0.1056896 5677 1.0000000
Fuente: Oil & Gas & Other Regulated Wells - Beginning 1860

5. Representación Gráfica

Gráfica N°1: Frecuencia Absoluta

ggplot(tdf_espaciamiento, aes(x = reorder(Espaciamiento, -Fi), y = Fi, fill = Espaciamiento)) +
  geom_bar(stat = "identity", show.legend = FALSE) +
  geom_text(aes(label = Fi), vjust = -0.5, size = 5, family = "Lora") +
  scale_fill_manual(values = paleta_azul) +
  theme_minimal(base_family = "Lora") +
  labs(x = "Espaciamiento", y = "Frecuencia Absoluta (Fi)") +
  theme(plot.title = element_blank(), axis.title = element_text(size = 16), 
        axis.text = element_text(size = 12), axis.text.x = element_text(angle = 45, hjust = 1))

Gráfica N°2: Distribución Porcentual

ggplot(tdf_espaciamiento, aes(x = reorder(Espaciamiento, -Pi), y = Pi, fill = Espaciamiento)) +
  geom_bar(stat = "identity", show.legend = FALSE) +
  geom_text(aes(label = paste0(round(Pi, 1), "%")), vjust = -0.5, size = 5, family = "Lora") +
  scale_fill_manual(values = paleta_azul) +
  theme_minimal(base_family = "Lora") +
  labs(x = "Espaciamiento", y = "Porcentaje (%)") +
  theme(plot.title = element_blank(), axis.title = element_text(size = 16), 
        axis.text = element_text(size = 12), axis.text.x = element_text(angle = 45, hjust = 1))

Gráfica N°3: Distribución Porcentual (Circular)

plot_data <- tdf_espaciamiento %>% mutate(label_leyenda = paste0(Espaciamiento, " (", round(Pi, 1), "%)"))
ggplot(plot_data, aes(x = "", y = Pi, fill = label_leyenda)) +
  geom_bar(stat = "identity", width = 1) +
  coord_polar("y", start = 0) +
  scale_fill_manual(values = paleta_azul) +
  theme_void(base_family = "Lora") +
  theme(legend.position = "right", legend.text = element_text(size = 12)) +
  guides(fill = guide_legend(title = "Espaciamiento"))

6. Tabla de Indicadores

TABLA 2. Indicadores Estadísticos
Indicador Valor
Total de Pozos (N) 5,677
Espaciamiento Modal Exempt from Title 5
Porcentaje de la Moda 72.89%
Autor: Jennifer Cordones

7. Conclusión

  • El espaciamiento Exempt from Title 5 es el valor predominante, cubriendo el 72.9% de los pozos.
  • Esta configuración de espaciamiento es clave para la gestión técnica del yacimiento y el cumplimiento normativo.