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_map_symbol <- datos_originales %>%
  select(`Map Symbol`) %>%
  filter(!is.na(`Map Symbol`)) %>%
  mutate(Simbolo = trimws(as.character(`Map Symbol`))) %>%
  group_by(Simbolo) %>%
  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: MAP_SYMBOL (Símbolo del Mapa).
  • Tipo: Cualitativa Nominal.
  • Descripción: Representación simbólica utilizada en la cartografía de pozos.

4. Tabla de Distribución de Frecuencias

TABLA 1. Distribución de Frecuencias de Pozos por Símbolo del Mapa
Símbolo Frec. Absoluta (Fi) Frec. Relativa (hi) Porcentaje (%) Frec. Abs. Acumulada (Fi_ac) Frec. Rel. Acumulada (hi_ac)
OWP 10058 0.2122478 21.2247826 10058 0.2122478
GW 8737 0.1843716 18.4371571 18795 0.3966194
O 8156 0.1721111 17.2111083 26951 0.5687305
OW 7975 0.1682916 16.8291551 34926 0.7370220
OP 5561 0.1173504 11.7350384 40487 0.8543724
DP 2238 0.0472271 4.7227146 42725 0.9015996
GWP 2156 0.0454968 4.5496750 44881 0.9470963
S 961 0.0202794 2.0279396 45842 0.9673757
SMP 597 0.0125981 1.2598126 46439 0.9799738
DH 593 0.0125137 1.2513717 47032 0.9924875
SM 172 0.0036296 0.3629611 47204 0.9961172
SP 170 0.0035874 0.3587406 47374 0.9997046
CON 14 0.0002954 0.0295433 47388 1.0000000
Fuente: Oil & Gas & Other Regulated Wells - Beginning 1860

5. Representación Gráfica

5.1. Gráfica N°1: Frecuencia Absoluta

ggplot(tdf_map_symbol, aes(x = reorder(Simbolo, -Fi), y = Fi, fill = Simbolo)) +
  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 = "Símbolo", 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))

5.2. Gráfica N°2: Distribución Porcentual

ggplot(tdf_map_symbol, aes(x = reorder(Simbolo, -Pi), y = Pi, fill = Simbolo)) +
  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 = "Símbolo", 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))

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

plot_data <- tdf_map_symbol %>% mutate(label_leyenda = paste0(Simbolo, " (", 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 = "Símbolo del Mapa"))

6. Tabla de Indicadores

TABLA 2. Indicadores Estadísticos
Indicador Valor
Total de Pozos (N) 47,388
Símbolo Modal OWP
Porcentaje de la Moda 21.22%
Autor: Jennifer Cordones

7. Conclusión

  • El símbolo cartográfico OWP es el más frecuente, representando el 21.2% del conjunto de datos.
  • Esta uniformidad simbólica permite una identificación visual eficiente dentro de los registros geográficos de la base de datos.