#==============================ENCABEZADO=======================================
# TEMA: ED Variables Continuas - ENERGIA DEL GAS
# AUTOR: GRUPO 4
# FECHA: 18-12-2025
#==============================CARGA DE DATOS===================================
library(gt)
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(moments) # Necesaria para skewness y kurtosis
# Funcion para la moda
get_mode <- function(v) {
uniqv <- unique(v)
uniqv[which.max(tabulate(match(v, uniqv)))]
}
setwd("C:/Users/HP/Documents/PROYECTO ESTADISTICA/RStudio")
datos <- read.csv("tablap.csv", header = TRUE, dec = ",", sep = ";")
# ==========================ENERGIA DEL GAS =============================
energia_gas <- as.numeric(gsub(",", ".", as.character(datos$Energy.of.gas)))
energia_gas <- na.omit(energia_gas)
# CALCULOS REGLA DE STURGES
R <- max(energia_gas) - min(energia_gas)
k <- floor(1 + (3.3 * log10(length(energia_gas))))
A <- R / k
liminf <- seq(from = min(energia_gas), by = A, length.out = k)
limsup <- liminf + A
limsup[k] <- max(energia_gas)
MC <- (liminf + limsup) / 2
# Calculo de frecuencias ni
ni <- c()
for (i in 1:k) {
if (i == k)
ni[i] <- length(subset(energia_gas, energia_gas >= liminf[i] & energia_gas <= limsup[i]))
else
ni[i] <- length(subset(energia_gas, energia_gas >= liminf[i] & energia_gas < limsup[i]))
}
hi <- (ni / length(energia_gas)) * 100
Niasc <- cumsum(ni)
Nidsc <- rev(cumsum(rev(ni)))
Hiasc <- cumsum(hi)
Hidsc <- rev(cumsum(rev(hi)))
#--- DATA FRAME PARA LA TABLA ---
TDFcu_energia_gas <- data.frame(
N = 1:k,
liminf = round(liminf, 2),
limsup = round(limsup, 2),
MC = round(MC, 2),
ni = ni,
hi_perc = round(hi, 2),
Niasc = Niasc,
Nidsc = Nidsc,
Hiasc_perc = round(Hiasc, 2),
Hidsc_perc = round(Hidsc, 2)
)
# Fila TOTAL para la tabla GT
fila_total <- data.frame(
N = NA, liminf = NA, limsup = NA, MC = NA, ni = sum(ni), hi_perc = 100,
Niasc = NA, Nidsc = NA, Hiasc_perc = NA, Hidsc_perc = NA
)
TDF_final_gt <- rbind(TDFcu_energia_gas, fila_total)
#============================== TABLA GT (ESTILO GRUPO 4) ==============================
tabla_gt_energia <- gt(TDF_final_gt) %>%
tab_header(
title = "Distribucion de la Energia del Gas",
subtitle = "Metodo de Sturges - A??o 2025"
) %>%
cols_label(
N = "N.o", liminf = "Lim. Inf.", limsup = "Lim. Sup.", MC = "Marca Clase",
ni = "ni", hi_perc = "hi", Niasc = "Ni Asc.", Nidsc = "Ni Desc.",
Hiasc_perc = "Hi Asc.", Hidsc_perc = "Hi Desc."
) %>%
sub_missing(columns = everything(), missing_text = "---") %>%
tab_style(
style = list(cell_fill(color = "gray90"), cell_text(weight = "bold")),
locations = cells_body(rows = is.na(N))
)
print(tabla_gt_energia)
## <div id="wgjhftljmy" style="padding-left:0px;padding-right:0px;padding-top:10px;padding-bottom:10px;overflow-x:auto;overflow-y:auto;width:auto;height:auto;">
## <style>#wgjhftljmy table {
## font-family: system-ui, 'Segoe UI', Roboto, Helvetica, Arial, sans-serif, 'Apple Color Emoji', 'Segoe UI Emoji', 'Segoe UI Symbol', 'Noto Color Emoji';
## -webkit-font-smoothing: antialiased;
## -moz-osx-font-smoothing: grayscale;
## }
##
## #wgjhftljmy thead, #wgjhftljmy tbody, #wgjhftljmy tfoot, #wgjhftljmy tr, #wgjhftljmy td, #wgjhftljmy th {
## border-style: none;
## }
##
## #wgjhftljmy p {
## margin: 0;
## padding: 0;
## }
##
## #wgjhftljmy .gt_table {
## display: table;
## border-collapse: collapse;
## line-height: normal;
## margin-left: auto;
## margin-right: auto;
## color: #333333;
## font-size: 16px;
## font-weight: normal;
## font-style: normal;
## background-color: #FFFFFF;
## width: auto;
## border-top-style: solid;
## border-top-width: 2px;
## border-top-color: #A8A8A8;
## border-right-style: none;
## border-right-width: 2px;
## border-right-color: #D3D3D3;
## border-bottom-style: solid;
## border-bottom-width: 2px;
## border-bottom-color: #A8A8A8;
## border-left-style: none;
## border-left-width: 2px;
## border-left-color: #D3D3D3;
## }
##
## #wgjhftljmy .gt_caption {
## padding-top: 4px;
## padding-bottom: 4px;
## }
##
## #wgjhftljmy .gt_title {
## color: #333333;
## font-size: 125%;
## font-weight: initial;
## padding-top: 4px;
## padding-bottom: 4px;
## padding-left: 5px;
## padding-right: 5px;
## border-bottom-color: #FFFFFF;
## border-bottom-width: 0;
## }
##
## #wgjhftljmy .gt_subtitle {
## color: #333333;
## font-size: 85%;
## font-weight: initial;
## padding-top: 3px;
## padding-bottom: 5px;
## padding-left: 5px;
## padding-right: 5px;
## border-top-color: #FFFFFF;
## border-top-width: 0;
## }
##
## #wgjhftljmy .gt_heading {
## background-color: #FFFFFF;
## text-align: center;
## border-bottom-color: #FFFFFF;
## border-left-style: none;
## border-left-width: 1px;
## border-left-color: #D3D3D3;
## border-right-style: none;
## border-right-width: 1px;
## border-right-color: #D3D3D3;
## }
##
## #wgjhftljmy .gt_bottom_border {
## border-bottom-style: solid;
## border-bottom-width: 2px;
## border-bottom-color: #D3D3D3;
## }
##
## #wgjhftljmy .gt_col_headings {
## border-top-style: solid;
## border-top-width: 2px;
## border-top-color: #D3D3D3;
## border-bottom-style: solid;
## border-bottom-width: 2px;
## border-bottom-color: #D3D3D3;
## border-left-style: none;
## border-left-width: 1px;
## border-left-color: #D3D3D3;
## border-right-style: none;
## border-right-width: 1px;
## border-right-color: #D3D3D3;
## }
##
## #wgjhftljmy .gt_col_heading {
## color: #333333;
## background-color: #FFFFFF;
## font-size: 100%;
## font-weight: normal;
## text-transform: inherit;
## border-left-style: none;
## border-left-width: 1px;
## border-left-color: #D3D3D3;
## border-right-style: none;
## border-right-width: 1px;
## border-right-color: #D3D3D3;
## vertical-align: bottom;
## padding-top: 5px;
## padding-bottom: 6px;
## padding-left: 5px;
## padding-right: 5px;
## overflow-x: hidden;
## }
##
## #wgjhftljmy .gt_column_spanner_outer {
## color: #333333;
## background-color: #FFFFFF;
## font-size: 100%;
## font-weight: normal;
## text-transform: inherit;
## padding-top: 0;
## padding-bottom: 0;
## padding-left: 4px;
## padding-right: 4px;
## }
##
## #wgjhftljmy .gt_column_spanner_outer:first-child {
## padding-left: 0;
## }
##
## #wgjhftljmy .gt_column_spanner_outer:last-child {
## padding-right: 0;
## }
##
## #wgjhftljmy .gt_column_spanner {
## border-bottom-style: solid;
## border-bottom-width: 2px;
## border-bottom-color: #D3D3D3;
## vertical-align: bottom;
## padding-top: 5px;
## padding-bottom: 5px;
## overflow-x: hidden;
## display: inline-block;
## width: 100%;
## }
##
## #wgjhftljmy .gt_spanner_row {
## border-bottom-style: hidden;
## }
##
## #wgjhftljmy .gt_group_heading {
## padding-top: 8px;
## padding-bottom: 8px;
## padding-left: 5px;
## padding-right: 5px;
## color: #333333;
## background-color: #FFFFFF;
## font-size: 100%;
## font-weight: initial;
## text-transform: inherit;
## border-top-style: solid;
## border-top-width: 2px;
## border-top-color: #D3D3D3;
## border-bottom-style: solid;
## border-bottom-width: 2px;
## border-bottom-color: #D3D3D3;
## border-left-style: none;
## border-left-width: 1px;
## border-left-color: #D3D3D3;
## border-right-style: none;
## border-right-width: 1px;
## border-right-color: #D3D3D3;
## vertical-align: middle;
## text-align: left;
## }
##
## #wgjhftljmy .gt_empty_group_heading {
## padding: 0.5px;
## color: #333333;
## background-color: #FFFFFF;
## font-size: 100%;
## font-weight: initial;
## border-top-style: solid;
## border-top-width: 2px;
## border-top-color: #D3D3D3;
## border-bottom-style: solid;
## border-bottom-width: 2px;
## border-bottom-color: #D3D3D3;
## vertical-align: middle;
## }
##
## #wgjhftljmy .gt_from_md > :first-child {
## margin-top: 0;
## }
##
## #wgjhftljmy .gt_from_md > :last-child {
## margin-bottom: 0;
## }
##
## #wgjhftljmy .gt_row {
## padding-top: 8px;
## padding-bottom: 8px;
## padding-left: 5px;
## padding-right: 5px;
## margin: 10px;
## border-top-style: solid;
## border-top-width: 1px;
## border-top-color: #D3D3D3;
## border-left-style: none;
## border-left-width: 1px;
## border-left-color: #D3D3D3;
## border-right-style: none;
## border-right-width: 1px;
## border-right-color: #D3D3D3;
## vertical-align: middle;
## overflow-x: hidden;
## }
##
## #wgjhftljmy .gt_stub {
## color: #333333;
## background-color: #FFFFFF;
## font-size: 100%;
## font-weight: initial;
## text-transform: inherit;
## border-right-style: solid;
## border-right-width: 2px;
## border-right-color: #D3D3D3;
## padding-left: 5px;
## padding-right: 5px;
## }
##
## #wgjhftljmy .gt_stub_row_group {
## color: #333333;
## background-color: #FFFFFF;
## font-size: 100%;
## font-weight: initial;
## text-transform: inherit;
## border-right-style: solid;
## border-right-width: 2px;
## border-right-color: #D3D3D3;
## padding-left: 5px;
## padding-right: 5px;
## vertical-align: top;
## }
##
## #wgjhftljmy .gt_row_group_first td {
## border-top-width: 2px;
## }
##
## #wgjhftljmy .gt_row_group_first th {
## border-top-width: 2px;
## }
##
## #wgjhftljmy .gt_summary_row {
## color: #333333;
## background-color: #FFFFFF;
## text-transform: inherit;
## padding-top: 8px;
## padding-bottom: 8px;
## padding-left: 5px;
## padding-right: 5px;
## }
##
## #wgjhftljmy .gt_first_summary_row {
## border-top-style: solid;
## border-top-color: #D3D3D3;
## }
##
## #wgjhftljmy .gt_first_summary_row.thick {
## border-top-width: 2px;
## }
##
## #wgjhftljmy .gt_last_summary_row {
## padding-top: 8px;
## padding-bottom: 8px;
## padding-left: 5px;
## padding-right: 5px;
## border-bottom-style: solid;
## border-bottom-width: 2px;
## border-bottom-color: #D3D3D3;
## }
##
## #wgjhftljmy .gt_grand_summary_row {
## color: #333333;
## background-color: #FFFFFF;
## text-transform: inherit;
## padding-top: 8px;
## padding-bottom: 8px;
## padding-left: 5px;
## padding-right: 5px;
## }
##
## #wgjhftljmy .gt_first_grand_summary_row {
## padding-top: 8px;
## padding-bottom: 8px;
## padding-left: 5px;
## padding-right: 5px;
## border-top-style: double;
## border-top-width: 6px;
## border-top-color: #D3D3D3;
## }
##
## #wgjhftljmy .gt_last_grand_summary_row_top {
## padding-top: 8px;
## padding-bottom: 8px;
## padding-left: 5px;
## padding-right: 5px;
## border-bottom-style: double;
## border-bottom-width: 6px;
## border-bottom-color: #D3D3D3;
## }
##
## #wgjhftljmy .gt_striped {
## background-color: rgba(128, 128, 128, 0.05);
## }
##
## #wgjhftljmy .gt_table_body {
## border-top-style: solid;
## border-top-width: 2px;
## border-top-color: #D3D3D3;
## border-bottom-style: solid;
## border-bottom-width: 2px;
## border-bottom-color: #D3D3D3;
## }
##
## #wgjhftljmy .gt_footnotes {
## color: #333333;
## background-color: #FFFFFF;
## border-bottom-style: none;
## border-bottom-width: 2px;
## border-bottom-color: #D3D3D3;
## border-left-style: none;
## border-left-width: 2px;
## border-left-color: #D3D3D3;
## border-right-style: none;
## border-right-width: 2px;
## border-right-color: #D3D3D3;
## }
##
## #wgjhftljmy .gt_footnote {
## margin: 0px;
## font-size: 90%;
## padding-top: 4px;
## padding-bottom: 4px;
## padding-left: 5px;
## padding-right: 5px;
## }
##
## #wgjhftljmy .gt_sourcenotes {
## color: #333333;
## background-color: #FFFFFF;
## border-bottom-style: none;
## border-bottom-width: 2px;
## border-bottom-color: #D3D3D3;
## border-left-style: none;
## border-left-width: 2px;
## border-left-color: #D3D3D3;
## border-right-style: none;
## border-right-width: 2px;
## border-right-color: #D3D3D3;
## }
##
## #wgjhftljmy .gt_sourcenote {
## font-size: 90%;
## padding-top: 4px;
## padding-bottom: 4px;
## padding-left: 5px;
## padding-right: 5px;
## }
##
## #wgjhftljmy .gt_left {
## text-align: left;
## }
##
## #wgjhftljmy .gt_center {
## text-align: center;
## }
##
## #wgjhftljmy .gt_right {
## text-align: right;
## font-variant-numeric: tabular-nums;
## }
##
## #wgjhftljmy .gt_font_normal {
## font-weight: normal;
## }
##
## #wgjhftljmy .gt_font_bold {
## font-weight: bold;
## }
##
## #wgjhftljmy .gt_font_italic {
## font-style: italic;
## }
##
## #wgjhftljmy .gt_super {
## font-size: 65%;
## }
##
## #wgjhftljmy .gt_footnote_marks {
## font-size: 75%;
## vertical-align: 0.4em;
## position: initial;
## }
##
## #wgjhftljmy .gt_asterisk {
## font-size: 100%;
## vertical-align: 0;
## }
##
## #wgjhftljmy .gt_indent_1 {
## text-indent: 5px;
## }
##
## #wgjhftljmy .gt_indent_2 {
## text-indent: 10px;
## }
##
## #wgjhftljmy .gt_indent_3 {
## text-indent: 15px;
## }
##
## #wgjhftljmy .gt_indent_4 {
## text-indent: 20px;
## }
##
## #wgjhftljmy .gt_indent_5 {
## text-indent: 25px;
## }
##
## #wgjhftljmy .katex-display {
## display: inline-flex !important;
## margin-bottom: 0.75em !important;
## }
##
## #wgjhftljmy div.Reactable > div.rt-table > div.rt-thead > div.rt-tr.rt-tr-group-header > div.rt-th-group:after {
## height: 0px !important;
## }
## </style>
## <table class="gt_table" data-quarto-disable-processing="false" data-quarto-bootstrap="false">
## <thead>
## <tr class="gt_heading">
## <td colspan="10" class="gt_heading gt_title gt_font_normal" style>Distribucion de la Energia del Gas</td>
## </tr>
## <tr class="gt_heading">
## <td colspan="10" class="gt_heading gt_subtitle gt_font_normal gt_bottom_border" style>Metodo de Sturges - A??o 2025</td>
## </tr>
## <tr class="gt_col_headings">
## <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1" scope="col" id="N">N.o</th>
## <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1" scope="col" id="liminf">Lim. Inf.</th>
## <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1" scope="col" id="limsup">Lim. Sup.</th>
## <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1" scope="col" id="MC">Marca Clase</th>
## <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1" scope="col" id="ni">ni</th>
## <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1" scope="col" id="hi_perc">hi</th>
## <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1" scope="col" id="Niasc">Ni Asc.</th>
## <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1" scope="col" id="Nidsc">Ni Desc.</th>
## <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1" scope="col" id="Hiasc_perc">Hi Asc.</th>
## <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1" scope="col" id="Hidsc_perc">Hi Desc.</th>
## </tr>
## </thead>
## <tbody class="gt_table_body">
## <tr><td headers="N" class="gt_row gt_right">1</td>
## <td headers="liminf" class="gt_row gt_right">28139305</td>
## <td headers="limsup" class="gt_row gt_right">5449555728</td>
## <td headers="MC" class="gt_row gt_right">2738847516</td>
## <td headers="ni" class="gt_row gt_right">11815</td>
## <td headers="hi_perc" class="gt_row gt_right">94.06</td>
## <td headers="Niasc" class="gt_row gt_right">11815</td>
## <td headers="Nidsc" class="gt_row gt_right">12561</td>
## <td headers="Hiasc_perc" class="gt_row gt_right">94.06</td>
## <td headers="Hidsc_perc" class="gt_row gt_right">100.00</td></tr>
## <tr><td headers="N" class="gt_row gt_right">2</td>
## <td headers="liminf" class="gt_row gt_right">5449555728</td>
## <td headers="limsup" class="gt_row gt_right">10870972151</td>
## <td headers="MC" class="gt_row gt_right">8160263939</td>
## <td headers="ni" class="gt_row gt_right">552</td>
## <td headers="hi_perc" class="gt_row gt_right">4.39</td>
## <td headers="Niasc" class="gt_row gt_right">12367</td>
## <td headers="Nidsc" class="gt_row gt_right">746</td>
## <td headers="Hiasc_perc" class="gt_row gt_right">98.46</td>
## <td headers="Hidsc_perc" class="gt_row gt_right">5.94</td></tr>
## <tr><td headers="N" class="gt_row gt_right">3</td>
## <td headers="liminf" class="gt_row gt_right">10870972151</td>
## <td headers="limsup" class="gt_row gt_right">16292388574</td>
## <td headers="MC" class="gt_row gt_right">13581680362</td>
## <td headers="ni" class="gt_row gt_right">107</td>
## <td headers="hi_perc" class="gt_row gt_right">0.85</td>
## <td headers="Niasc" class="gt_row gt_right">12474</td>
## <td headers="Nidsc" class="gt_row gt_right">194</td>
## <td headers="Hiasc_perc" class="gt_row gt_right">99.31</td>
## <td headers="Hidsc_perc" class="gt_row gt_right">1.54</td></tr>
## <tr><td headers="N" class="gt_row gt_right">4</td>
## <td headers="liminf" class="gt_row gt_right">16292388574</td>
## <td headers="limsup" class="gt_row gt_right">21713804997</td>
## <td headers="MC" class="gt_row gt_right">19003096785</td>
## <td headers="ni" class="gt_row gt_right">38</td>
## <td headers="hi_perc" class="gt_row gt_right">0.30</td>
## <td headers="Niasc" class="gt_row gt_right">12512</td>
## <td headers="Nidsc" class="gt_row gt_right">87</td>
## <td headers="Hiasc_perc" class="gt_row gt_right">99.61</td>
## <td headers="Hidsc_perc" class="gt_row gt_right">0.69</td></tr>
## <tr><td headers="N" class="gt_row gt_right">5</td>
## <td headers="liminf" class="gt_row gt_right">21713804997</td>
## <td headers="limsup" class="gt_row gt_right">27135221420</td>
## <td headers="MC" class="gt_row gt_right">24424513209</td>
## <td headers="ni" class="gt_row gt_right">23</td>
## <td headers="hi_perc" class="gt_row gt_right">0.18</td>
## <td headers="Niasc" class="gt_row gt_right">12535</td>
## <td headers="Nidsc" class="gt_row gt_right">49</td>
## <td headers="Hiasc_perc" class="gt_row gt_right">99.79</td>
## <td headers="Hidsc_perc" class="gt_row gt_right">0.39</td></tr>
## <tr><td headers="N" class="gt_row gt_right">6</td>
## <td headers="liminf" class="gt_row gt_right">27135221420</td>
## <td headers="limsup" class="gt_row gt_right">32556637843</td>
## <td headers="MC" class="gt_row gt_right">29845929632</td>
## <td headers="ni" class="gt_row gt_right">13</td>
## <td headers="hi_perc" class="gt_row gt_right">0.10</td>
## <td headers="Niasc" class="gt_row gt_right">12548</td>
## <td headers="Nidsc" class="gt_row gt_right">26</td>
## <td headers="Hiasc_perc" class="gt_row gt_right">99.90</td>
## <td headers="Hidsc_perc" class="gt_row gt_right">0.21</td></tr>
## <tr><td headers="N" class="gt_row gt_right">7</td>
## <td headers="liminf" class="gt_row gt_right">32556637843</td>
## <td headers="limsup" class="gt_row gt_right">37978054266</td>
## <td headers="MC" class="gt_row gt_right">35267346055</td>
## <td headers="ni" class="gt_row gt_right">4</td>
## <td headers="hi_perc" class="gt_row gt_right">0.03</td>
## <td headers="Niasc" class="gt_row gt_right">12552</td>
## <td headers="Nidsc" class="gt_row gt_right">13</td>
## <td headers="Hiasc_perc" class="gt_row gt_right">99.93</td>
## <td headers="Hidsc_perc" class="gt_row gt_right">0.10</td></tr>
## <tr><td headers="N" class="gt_row gt_right">8</td>
## <td headers="liminf" class="gt_row gt_right">37978054266</td>
## <td headers="limsup" class="gt_row gt_right">43399470689</td>
## <td headers="MC" class="gt_row gt_right">40688762478</td>
## <td headers="ni" class="gt_row gt_right">1</td>
## <td headers="hi_perc" class="gt_row gt_right">0.01</td>
## <td headers="Niasc" class="gt_row gt_right">12553</td>
## <td headers="Nidsc" class="gt_row gt_right">9</td>
## <td headers="Hiasc_perc" class="gt_row gt_right">99.94</td>
## <td headers="Hidsc_perc" class="gt_row gt_right">0.07</td></tr>
## <tr><td headers="N" class="gt_row gt_right">9</td>
## <td headers="liminf" class="gt_row gt_right">43399470689</td>
## <td headers="limsup" class="gt_row gt_right">48820887113</td>
## <td headers="MC" class="gt_row gt_right">46110178901</td>
## <td headers="ni" class="gt_row gt_right">1</td>
## <td headers="hi_perc" class="gt_row gt_right">0.01</td>
## <td headers="Niasc" class="gt_row gt_right">12554</td>
## <td headers="Nidsc" class="gt_row gt_right">8</td>
## <td headers="Hiasc_perc" class="gt_row gt_right">99.94</td>
## <td headers="Hidsc_perc" class="gt_row gt_right">0.06</td></tr>
## <tr><td headers="N" class="gt_row gt_right">10</td>
## <td headers="liminf" class="gt_row gt_right">48820887113</td>
## <td headers="limsup" class="gt_row gt_right">54242303536</td>
## <td headers="MC" class="gt_row gt_right">51531595324</td>
## <td headers="ni" class="gt_row gt_right">1</td>
## <td headers="hi_perc" class="gt_row gt_right">0.01</td>
## <td headers="Niasc" class="gt_row gt_right">12555</td>
## <td headers="Nidsc" class="gt_row gt_right">7</td>
## <td headers="Hiasc_perc" class="gt_row gt_right">99.95</td>
## <td headers="Hidsc_perc" class="gt_row gt_right">0.06</td></tr>
## <tr><td headers="N" class="gt_row gt_right">11</td>
## <td headers="liminf" class="gt_row gt_right">54242303536</td>
## <td headers="limsup" class="gt_row gt_right">59663719959</td>
## <td headers="MC" class="gt_row gt_right">56953011747</td>
## <td headers="ni" class="gt_row gt_right">3</td>
## <td headers="hi_perc" class="gt_row gt_right">0.02</td>
## <td headers="Niasc" class="gt_row gt_right">12558</td>
## <td headers="Nidsc" class="gt_row gt_right">6</td>
## <td headers="Hiasc_perc" class="gt_row gt_right">99.98</td>
## <td headers="Hidsc_perc" class="gt_row gt_right">0.05</td></tr>
## <tr><td headers="N" class="gt_row gt_right">12</td>
## <td headers="liminf" class="gt_row gt_right">59663719959</td>
## <td headers="limsup" class="gt_row gt_right">65085136382</td>
## <td headers="MC" class="gt_row gt_right">62374428170</td>
## <td headers="ni" class="gt_row gt_right">2</td>
## <td headers="hi_perc" class="gt_row gt_right">0.02</td>
## <td headers="Niasc" class="gt_row gt_right">12560</td>
## <td headers="Nidsc" class="gt_row gt_right">3</td>
## <td headers="Hiasc_perc" class="gt_row gt_right">99.99</td>
## <td headers="Hidsc_perc" class="gt_row gt_right">0.02</td></tr>
## <tr><td headers="N" class="gt_row gt_right">13</td>
## <td headers="liminf" class="gt_row gt_right">65085136382</td>
## <td headers="limsup" class="gt_row gt_right">70506552805</td>
## <td headers="MC" class="gt_row gt_right">67795844593</td>
## <td headers="ni" class="gt_row gt_right">0</td>
## <td headers="hi_perc" class="gt_row gt_right">0.00</td>
## <td headers="Niasc" class="gt_row gt_right">12560</td>
## <td headers="Nidsc" class="gt_row gt_right">1</td>
## <td headers="Hiasc_perc" class="gt_row gt_right">99.99</td>
## <td headers="Hidsc_perc" class="gt_row gt_right">0.01</td></tr>
## <tr><td headers="N" class="gt_row gt_right">14</td>
## <td headers="liminf" class="gt_row gt_right">70506552805</td>
## <td headers="limsup" class="gt_row gt_right">75927969228</td>
## <td headers="MC" class="gt_row gt_right">73217261016</td>
## <td headers="ni" class="gt_row gt_right">1</td>
## <td headers="hi_perc" class="gt_row gt_right">0.01</td>
## <td headers="Niasc" class="gt_row gt_right">12561</td>
## <td headers="Nidsc" class="gt_row gt_right">1</td>
## <td headers="Hiasc_perc" class="gt_row gt_right">100.00</td>
## <td headers="Hidsc_perc" class="gt_row gt_right">0.01</td></tr>
## <tr><td headers="N" class="gt_row gt_right" style="background-color: #E5E5E5; font-weight: bold;">—</td>
## <td headers="liminf" class="gt_row gt_right" style="background-color: #E5E5E5; font-weight: bold;">—</td>
## <td headers="limsup" class="gt_row gt_right" style="background-color: #E5E5E5; font-weight: bold;">—</td>
## <td headers="MC" class="gt_row gt_right" style="background-color: #E5E5E5; font-weight: bold;">—</td>
## <td headers="ni" class="gt_row gt_right" style="background-color: #E5E5E5; font-weight: bold;">12561</td>
## <td headers="hi_perc" class="gt_row gt_right" style="background-color: #E5E5E5; font-weight: bold;">100.00</td>
## <td headers="Niasc" class="gt_row gt_right" style="background-color: #E5E5E5; font-weight: bold;">—</td>
## <td headers="Nidsc" class="gt_row gt_right" style="background-color: #E5E5E5; font-weight: bold;">—</td>
## <td headers="Hiasc_perc" class="gt_row gt_right" style="background-color: #E5E5E5; font-weight: bold;">—</td>
## <td headers="Hidsc_perc" class="gt_row gt_right" style="background-color: #E5E5E5; font-weight: bold;">—</td></tr>
## </tbody>
##
## </table>
## </div>
#============================== GRAFICOS A COLOR ==============================
colores_bio <- terrain.colors(k)
# 1. HISTOGRAMA
hist(energia_gas,
main = "Distribucion de la Energia del Gas",
breaks = seq(min(energia_gas), max(energia_gas), A),
xlab = "ENERGIA DEL GAS", ylab = "CANTIDAD",
col = colores_bio, border = "white")
# 2. OJIVAS
par(mar = c(5, 4, 4, 6), xpd = TRUE)
x_plot <- c(min(TDFcu_energia_gas$liminf), TDFcu_energia_gas$limsup)
plot(x_plot, c(0, TDFcu_energia_gas$Niasc), type = "o", pch = 19, col = "darkred",
main = "Distribucion de la Energia del Gas", xlab = "ENERGIA", ylab = "CANTIDAD")
lines(c(TDFcu_energia_gas$liminf, max(TDFcu_energia_gas$limsup)),
c(TDFcu_energia_gas$Nidsc, 0), type = "o", pch = 18, col = "darkblue")
legend("topright", legend = c("Asc.", "Desc."), col = c("darkred", "darkblue"),
lty = 1, pch = c(19, 18), bty = "n")
# 3. BOXPLOT
boxplot(energia_gas, horizontal = TRUE, col = "mediumpurple1",
main = "Distribucion de la Energia del Gas", border = "purple4")
#============================== INDICADORES ==============================
mean_e <- mean(energia_gas)
sd_e <- sd(energia_gas)
indicadores_e <- data.frame(
Indicador = c("Moda", "Mediana", "Media", "Desv. Estandar", "Varianza", "Coef. Variacion (%)", "Asimetria", "Curtosis"),
Valor = c(
round(get_mode(energia_gas), 2),
round(median(energia_gas), 2),
round(mean_e, 2),
round(sd_e, 2),
round(var(energia_gas), 2),
round((sd_e / mean_e) * 100, 2),
round(skewness(energia_gas), 2),
round(kurtosis(energia_gas), 2)
)
)
print(indicadores_e)
## Indicador Valor
## 1 Moda 1.871433e+09
## 2 Mediana 1.086461e+09
## 3 Media 1.887103e+09
## 4 Desv. Estandar 3.019971e+09
## 5 Varianza 9.120223e+18
## 6 Coef. Variacion (%) 1.600300e+02
## 7 Asimetria 7.960000e+00
## 8 Curtosis 1.154800e+02