Transporte de petróleo mediante oleoductos en Ecuador
Variable: Horas de interrupción (h) (cuantitativa continua)
*
2026-11-14
1 Carga de librerias
library(readxl)
library(dplyr)
library(gt)
library(e1071)2 Carga de datos
setwd("C:/Users/HP/Desktop/tabla_petro")
archivo <- list.files(pattern = "^tabla_transporte_petroleo.*\\.xlsx$")[1]
if (is.na(archivo)) stop("No se encontró el archivo .xlsx dentro de la carpeta tabla_petro")
datos <- as.data.frame(read_excel(archivo, sheet = "Datos_10000"))
dim(datos)## [1] 10000 203 Selección de la variable
Variable <- as.numeric(na.omit(datos$Horas_interrupcion_dia))
if (length(Variable) == 0) {
stop("ERROR: No hay datos válidos para la variable seleccionada.")
}4 Frecuencia
Se agrupan los datos en K clases con la regla de Sturges.
N <- length(Variable)
K <- floor(1 + 3.322 * log10(N))
breaks_table <- seq(min(Variable), max(Variable), length.out = K + 1)
ni <- as.vector(table(cut(Variable, breaks = breaks_table, include.lowest = TRUE, right = FALSE)))
hi <- (ni / sum(ni)) * 100
Ni_asc <- cumsum(ni)
Ni_desc <- rev(cumsum(rev(ni)))
Hi_asc <- cumsum(hi)
Hi_desc <- rev(cumsum(rev(hi)))5 Tabla de Distribución de Frecuencia
A continuación se presenta la tabla de distribución de frecuencias obtenida.
5.1 Tabla General
TDF_General <- data.frame(
Li = round(breaks_table[1:K], 2),
Ls = round(breaks_table[2:(K + 1)], 2),
MC = round((breaks_table[1:K] + breaks_table[2:(K + 1)]) / 2, 2),
ni = ni,
hi = hi,
Ni_asc = Ni_asc,
Ni_desc = Ni_desc,
Hi_asc = Hi_asc,
Hi_desc = Hi_desc
)
TDF_General %>%
gt(rowname_col = "Li") %>%
tab_header(
title = md("**DISTRIBUCIÓN DE FRECUENCIAS: Horas de interrupción (h)**"),
subtitle = md("Variable: **Horas de interrupción**")
) %>%
tab_source_note(source_note = "Autor: *") %>%
grand_summary_rows(
columns = c(ni, hi),
fns = list("TOTAL" = ~sum(., na.rm = TRUE))
) %>%
fmt_number(
columns = c(ni, Ni_asc, Ni_desc),
decimals = 0,
use_seps = TRUE
) %>%
fmt_number(
columns = c(hi, Hi_asc, Hi_desc),
decimals = 2
) %>%
cols_label(
Ls = "Lím. Sup", MC = "Marca Clase (Xi)",
ni = "ni", hi = "hi (%)",
Ni_asc = "Ni (Asc)", Ni_desc = "Ni (Desc)",
Hi_asc = "Hi (Asc)", Hi_desc = "Hi (Desc)"
) %>%
tab_stubhead(label = "Lím. Inf") %>%
cols_align(align = "center", columns = everything()) %>%
tab_style(
style = cell_text(align = "center"),
locations = cells_stub()
) %>%
tab_style(
style = list(cell_fill(color = "#235347"), cell_text(color = "white", weight = "bold")),
locations = list(cells_title(), cells_column_labels(), cells_stubhead())
) %>%
tab_options(
table.border.top.style = "none",
table.border.bottom.color = "#235347",
column_labels.border.bottom.color = "#235347",
data_row.padding = px(6)
)| DISTRIBUCIÓN DE FRECUENCIAS: Horas de interrupción (h) | ||||||||
| Variable: Horas de interrupción | ||||||||
| Lím. Inf | Lím. Sup | Marca Clase (Xi) | ni | hi (%) | Ni (Asc) | Ni (Desc) | Hi (Asc) | Hi (Desc) |
|---|---|---|---|---|---|---|---|---|
| 0.00 | 0.53 | 0.26 | 4,337 | 43.37 | 4,337 | 10,000 | 43.37 | 100.00 |
| 0.53 | 1.06 | 0.79 | 1,219 | 12.19 | 5,556 | 5,663 | 55.56 | 56.63 |
| 1.06 | 1.58 | 1.32 | 1,104 | 11.04 | 6,660 | 4,444 | 66.60 | 44.44 |
| 1.58 | 2.11 | 1.85 | 969 | 9.69 | 7,629 | 3,340 | 76.29 | 33.40 |
| 2.11 | 2.64 | 2.38 | 844 | 8.44 | 8,473 | 2,371 | 84.73 | 23.71 |
| 2.64 | 3.17 | 2.90 | 545 | 5.45 | 9,018 | 1,527 | 90.18 | 15.27 |
| 3.17 | 3.69 | 3.43 | 422 | 4.22 | 9,440 | 982 | 94.40 | 9.82 |
| 3.69 | 4.22 | 3.96 | 268 | 2.68 | 9,708 | 560 | 97.08 | 5.60 |
| 4.22 | 4.75 | 4.49 | 143 | 1.43 | 9,851 | 292 | 98.51 | 2.92 |
| 4.75 | 5.28 | 5.01 | 95 | 0.95 | 9,946 | 149 | 99.46 | 1.49 |
| 5.28 | 5.81 | 5.54 | 30 | 0.30 | 9,976 | 54 | 99.76 | 0.54 |
| 5.81 | 6.33 | 6.07 | 17 | 0.17 | 9,993 | 24 | 99.93 | 0.24 |
| 6.33 | 6.86 | 6.60 | 6 | 0.06 | 9,999 | 7 | 99.99 | 0.07 |
| 6.86 | 7.39 | 7.13 | 1 | 0.01 | 10,000 | 1 | 100.00 | 0.01 |
| TOTAL | — | — | 10000 | 100 | — | — | — | — |
| Autor: * | ||||||||
5.2 Tabla Simplificada
Se redefinen las clases con límites redondeados y una amplitud constante.
breaks_table <- pretty(Variable, n = K)
amplitud <- breaks_table[2] - breaks_table[1]
K <- length(breaks_table) - 1
ni <- as.vector(table(cut(Variable, breaks = breaks_table, include.lowest = TRUE, right = FALSE)))
hi <- (ni / sum(ni)) * 100
Ni_asc <- cumsum(ni)
Ni_desc <- rev(cumsum(rev(ni)))
Hi_asc <- cumsum(hi)
Hi_desc <- rev(cumsum(rev(hi)))
TDF_Simple <- data.frame(
Li = round(breaks_table[1:K], 2),
Ls = round(breaks_table[2:(K + 1)], 2),
MC = round((breaks_table[1:K] + breaks_table[2:(K + 1)]) / 2, 2),
ni = ni,
hi = hi,
Ni_asc = Ni_asc,
Ni_desc = Ni_desc,
Hi_asc = Hi_asc,
Hi_desc = Hi_desc
)
TDF_Simple %>%
gt(rowname_col = "Li") %>%
tab_header(
title = md("**DISTRIBUCIÓN DE FRECUENCIAS SIMPLIFICADA: Horas de interrupción (h)**"),
subtitle = md(paste0("Variable: **Horas de interrupción** (Amplitud = ", round(amplitud, 2), ")"))
) %>%
tab_source_note(source_note = "Autor: *") %>%
grand_summary_rows(
columns = c(ni, hi),
fns = list("TOTAL" = ~sum(., na.rm = TRUE))
) %>%
fmt_number(
columns = c(ni, Ni_asc, Ni_desc),
decimals = 0,
use_seps = TRUE
) %>%
fmt_number(
columns = c(hi, Hi_asc, Hi_desc),
decimals = 2
) %>%
cols_label(
Ls = "Lím. Sup", MC = "Marca Clase (Xi)",
ni = "ni", hi = "hi (%)",
Ni_asc = "Ni (Asc)", Ni_desc = "Ni (Desc)",
Hi_asc = "Hi (Asc)", Hi_desc = "Hi (Desc)"
) %>%
tab_stubhead(label = "Lím. Inf") %>%
cols_align(align = "center", columns = everything()) %>%
tab_style(
style = cell_text(align = "center"),
locations = cells_stub()
) %>%
tab_style(
style = list(cell_fill(color = "#235347"), cell_text(color = "white", weight = "bold")),
locations = list(cells_title(), cells_column_labels(), cells_stubhead())
) %>%
tab_options(
table.border.top.style = "none",
table.border.bottom.color = "#235347",
column_labels.border.bottom.color = "#235347",
data_row.padding = px(6)
)| DISTRIBUCIÓN DE FRECUENCIAS SIMPLIFICADA: Horas de interrupción (h) | ||||||||
| Variable: Horas de interrupción (Amplitud = 0.5) | ||||||||
| Lím. Inf | Lím. Sup | Marca Clase (Xi) | ni | hi (%) | Ni (Asc) | Ni (Desc) | Hi (Asc) | Hi (Desc) |
|---|---|---|---|---|---|---|---|---|
| 0.0 | 0.5 | 0.25 | 4,275 | 42.75 | 4,275 | 10,000 | 42.75 | 100.00 |
| 0.5 | 1.0 | 0.75 | 1,145 | 11.45 | 5,420 | 5,725 | 54.20 | 57.25 |
| 1.0 | 1.5 | 1.25 | 1,053 | 10.53 | 6,473 | 4,580 | 64.73 | 45.80 |
| 1.5 | 2.0 | 1.75 | 966 | 9.66 | 7,439 | 3,527 | 74.39 | 35.27 |
| 2.0 | 2.5 | 2.25 | 822 | 8.22 | 8,261 | 2,561 | 82.61 | 25.61 |
| 2.5 | 3.0 | 2.75 | 619 | 6.19 | 8,880 | 1,739 | 88.80 | 17.39 |
| 3.0 | 3.5 | 3.25 | 422 | 4.22 | 9,302 | 1,120 | 93.02 | 11.20 |
| 3.5 | 4.0 | 3.75 | 306 | 3.06 | 9,608 | 698 | 96.08 | 6.98 |
| 4.0 | 4.5 | 4.25 | 173 | 1.73 | 9,781 | 392 | 97.81 | 3.92 |
| 4.5 | 5.0 | 4.75 | 123 | 1.23 | 9,904 | 219 | 99.04 | 2.19 |
| 5.0 | 5.5 | 5.25 | 54 | 0.54 | 9,958 | 96 | 99.58 | 0.96 |
| 5.5 | 6.0 | 5.75 | 24 | 0.24 | 9,982 | 42 | 99.82 | 0.42 |
| 6.0 | 6.5 | 6.25 | 14 | 0.14 | 9,996 | 18 | 99.96 | 0.18 |
| 6.5 | 7.0 | 6.75 | 3 | 0.03 | 9,999 | 4 | 99.99 | 0.04 |
| 7.0 | 7.5 | 7.25 | 1 | 0.01 | 10,000 | 1 | 100.00 | 0.01 |
| TOTAL | — | — | 10000 | 100 | — | — | — | — |
| Autor: * | ||||||||
6 Gráficas De Distribución De Frecuencias
Esta sección presenta la visualización de la distribución de los datos.
6.1 Histogramas de Frecuencia
col_barras <- "#235347"
col_ejes <- "#163832"
col_claro <- "#8EB69B"
h_base <- hist(Variable, breaks = breaks_table, right = FALSE, include.lowest = TRUE, plot = FALSE)
limite_x <- range(breaks_table)
etiquetas_x <- format(breaks_table, scientific = FALSE, trim = TRUE)6.2 GRÁFICO 1: Histograma Absoluto (Local)
par(mar = c(8, 5, 4, 2))
plot(h_base,
main = "Gráfica N°1: Distribución de Horas de interrupción",
xlab = "Horas de interrupción (h)", ylab = "Frecuencia absoluta",
col = col_barras, border = "white", axes = FALSE,
ylim = c(0, max(h_base$counts) * 1.1),
xlim = limite_x, cex.main = 1)
axis(1, at = breaks_table, labels = etiquetas_x, las = 2, cex.axis = 0.7)
axis(2)
grid(nx = NA, ny = NULL, col = "#D7DBDD", lty = "dotted")
6.3 GRÁFICO 2: Histograma Absoluto (Global)
par(mar = c(8, 5, 4, 2))
plot(h_base,
main = "Gráfica N°2: Distribución de Horas de interrupción",
xlab = "Horas de interrupción (h)", ylab = "Total registros",
col = col_barras, border = "white", axes = FALSE,
ylim = c(0, sum(h_base$counts)),
xlim = limite_x, cex.main = 1)
axis(1, at = breaks_table, labels = etiquetas_x, las = 2, cex.axis = 0.7)
axis(2)
grid(nx = NA, ny = NULL, col = "#D7DBDD", lty = "dotted")
6.4 Gráficos Porcentuales
h_porc <- h_base
h_porc$counts <- (h_porc$counts / sum(h_porc$counts)) * 1006.5 GRÁFICO 3: Porcentajes (Local)
par(mar = c(8, 5, 4, 2))
plot(h_porc,
main = "Gráfica N°3: Distribución porcentual de Horas de interrupción",
xlab = "Horas de interrupción (h)", ylab = "Porcentaje (%)",
col = col_barras, border = "white", axes = FALSE, freq = TRUE,
ylim = c(0, max(h_porc$counts) * 1.2),
xlim = limite_x, cex.main = 1)
axis(1, at = breaks_table, labels = etiquetas_x, las = 2, cex.axis = 0.7)
axis(2)
text(x = h_base$mids, y = h_porc$counts,
labels = paste0(round(h_porc$counts, 1), "%"),
pos = 3, cex = 0.6, col = col_ejes)
6.6 GRÁFICO 4: Porcentajes (Global)
par(mar = c(8, 5, 4, 2))
plot(h_porc,
main = "Gráfica N°4: Distribución porcentual de Horas de interrupción",
xlab = "Horas de interrupción (h)", ylab = "% del total",
col = col_barras, border = "white", axes = FALSE, freq = TRUE,
ylim = c(0, 100),
xlim = limite_x, cex.main = 1)
axis(1, at = breaks_table, labels = etiquetas_x, las = 2, cex.axis = 0.7)
axis(2)
text(x = h_base$mids, y = h_porc$counts,
labels = paste0(round(h_porc$counts, 1), "%"),
pos = 3, cex = 0.6, col = col_ejes)
6.7 GRÁFICO 5: Boxplot
par(mar = c(8, 5, 4, 2))
boxplot(Variable, horizontal = TRUE, col = col_barras,
main = "Gráfica N°5: Diagrama de caja de Horas de interrupción",
xlab = "Horas de interrupción (h)", outline = TRUE, outpch = 19,
outcol = col_claro, axes = FALSE, xlim = c(0.7, 1.3),
ylim = limite_x, cex.main = 1)
axis(1, at = breaks_table, labels = etiquetas_x, las = 2, cex.axis = 0.7)
box()
6.8 GRÁFICO 6: Ojivas
par(mar = c(8, 5, 4, 8), xpd = TRUE)
plot(breaks_table, c(0, Ni_asc), type = "o", col = col_barras,
lwd = 2, pch = 19, axes = FALSE,
main = "Gráfica N°6: Ojivas ascendente y descendente de Horas de interrupción",
xlab = "Horas de interrupción (h)", ylab = "Frecuencia acumulada", cex.main = 1)
lines(breaks_table, c(Ni_desc, 0), type = "o", col = col_claro,
lwd = 2, pch = 19)
axis(1, at = breaks_table, labels = etiquetas_x, las = 2, cex.axis = 0.6)
axis(2)
legend("right", legend = c("Ascendente", "Descendente"),
col = c(col_barras, col_claro),
lty = 1, pch = 19, cex = 0.7, lwd = 2,
inset = c(-0.2, 0), bty = "n")
par(xpd = FALSE)7 Indicadores Estadísticos
media_val <- mean(Variable)
mediana_val <- median(Variable)
sd_val <- sd(Variable)
cv_val <- (sd_val / abs(media_val)) * 100
asimetria_val <- skewness(Variable, type = 2)
curtosis_val <- kurtosis(Variable, type = 2)
atipicos <- boxplot.stats(Variable)$out
status_atipicos <- if (length(atipicos) > 0) {
paste0(length(atipicos), " [ ", round(min(atipicos), 2), " ; ", round(max(atipicos), 2), " ]")
} else {
"0 (Sin atípicos)"
}
df_resumen <- data.frame(
Variable = "Horas de interrupción",
Rango = paste0("[", round(min(Variable), 2), " ; ", round(max(Variable), 2), "]"),
X = media_val,
Me = mediana_val,
Mo = paste(round(TDF_Simple$MC[TDF_Simple$hi == max(TDF_Simple$hi)], 2), collapse = ", "),
Varianza = var(Variable),
sd = sd_val,
CV = cv_val,
As = asimetria_val,
K = curtosis_val,
Atipicos = status_atipicos
)
df_resumen %>%
gt() %>%
tab_header(title = md("**CONCLUSIONES Y ESTADÍSTICOS**"), subtitle = "Variable: Horas de interrupción") %>%
tab_source_note(source_note = "Autor: *") %>%
cols_label(
X = "X",
Me = "Me",
Mo = "Mo",
sd = "sd",
CV = "CV",
As = "As",
K = "K",
Atipicos = "Valores atípicos"
) %>%
fmt_number(columns = c(X, Me, sd), decimals = 2) %>%
fmt_number(columns = Varianza, decimals = 2) %>%
fmt_number(columns = c(CV, K), decimals = 2) %>%
fmt_number(columns = As, decimals = 4) %>%
cols_width(
Variable ~ px(140),
Rango ~ px(150),
Mo ~ px(100),
Atipicos ~ px(220),
everything() ~ px(85)
) %>%
tab_options(
column_labels.background.color = "#235347",
table.border.top.style = "solid",
table.border.bottom.style = "solid",
heading.border.bottom.style = "solid",
column_labels.border.top.style = "solid",
column_labels.border.bottom.style = "solid",
data_row.padding = px(8)
) %>%
tab_style(
style = list(
cell_text(weight = "bold", color = "white"),
cell_borders(sides = c("left", "right"), color = "#D3D3D3", weight = px(1))
),
locations = cells_column_labels()
) %>%
tab_style(
style = cell_borders(sides = c("left", "right"), color = "#D3D3D3", weight = px(1)),
locations = cells_body()
)| CONCLUSIONES Y ESTADÍSTICOS | ||||||||||
| Variable: Horas de interrupción | ||||||||||
| Variable | Rango | X | Me | Mo | Varianza | sd | CV | As | K | Valores atípicos |
|---|---|---|---|---|---|---|---|---|---|---|
| Horas de interrupción | [0 ; 7.39] | 1.20 | 0.80 | 0.25 | 1.72 | 1.31 | 109.73 | 1.0508 | 0.48 | 76 [ 5.12 ; 7.39 ] |
| Autor: * | ||||||||||
txt_cv <- if (cv_val < 15) "homogéneo" else if (cv_val <= 30) "moderadamente heterogéneo" else "heterogéneo"
txt_ubic <- if (asimetria_val > 0.5) "se agrupan en la parte baja de la variable" else if (asimetria_val < -0.5) "se agrupan en la parte alta de la variable" else "se reparten de forma equilibrada alrededor de la media"
txt_asim <- if (abs(asimetria_val) < 0.5) "aproximadamente simétrica" else if (asimetria_val > 0) "asimétrica positiva (sesgo a la derecha)" else "asimétrica negativa (sesgo a la izquierda)"
txt_curt <- if (abs(curtosis_val) < 0.5) "mesocúrtica (similar a la normal)" else if (curtosis_val > 0) "leptocúrtica (más concentrada y con colas más pesadas)" else "platicúrtica (más aplanada)"
txt_atip <- if (length(atipicos) > 0) {
paste0("Se identificaron ", length(atipicos), " valores atípicos, en el rango de ", round(min(atipicos), 2), " a ", round(max(atipicos), 2), ".")
} else {
"No se identificaron valores atípicos."
}8 Conclusiones
Los valores de Horas de interrupción fluctúan entre 0 y 7.39 y giran en torno a la media de 1.2 (mediana de 0.8), con una desviación estándar de 1.31. Con un coeficiente de variación de 109.73 %, el conjunto de datos es heterogéneo y sus valores se agrupan en la parte baja de la variable. La distribución es asimétrica positiva (sesgo a la derecha) (As = 1.0508) y mesocúrtica (similar a la normal) (K = 0.48). Se identificaron 76 valores atípicos, en el rango de 5.12 a 7.39.