Enunciado

La siguiente información recoge cinco de las principales características de un grupo de marcas de cerveza que fue recogida con la finalizad de clasificar los productos y además permita realizar un análisis descriptivo de las 69 marcas recogidas

Inicialmente el director de investigación desea su apoyo en una primera etapa del análisis que consiste en resumir la información suministrada en tablas e indicadores que le permitan validar algunas de sus hipótesis.

La base compartida contiene información sobre 69 marcas de cervezas que son distribuidas en la ciudad. Las variables recogidas corresponden a:



Su trabajo consiste en escribir un primer informe basado en una evaluación descriptiva, que contenga las tablas que resumen la información para cada variable de base de datos y resumen de sus indicadores estadísticos.

Finalmente adjunte un análisis de los resultados obtenidos.



Cargar datos

library(readr)
beer <- read_csv("~/Javeriana cali/Semestre 3/Teoria de probabilidad/beer.csv")
Rows: 69 Columns: 6
── Column specification ────────────────────────────────────────────────────────
Delimiter: ","
chr (1): marca
dbl (3): calorias, tipo, origen
num (2): precio, poralcoh

ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.



Resumen estadistico

Tipo de cerveza

t1 <- table(beer$tipo)
names(t1) <- c("1-lager artesanal", "2-clara artesanal", "3-lager importada", "4-cerveza normal y helada", "5-cerveza baja en calorías y sin alcohol")
t1 = as.data.frame(t1)

colnames(t1)=c("Tipo de cerveza", "Frecuencia Absoluta")

t1=flextable(t1) 
set_flextable_defaults(
  font.size = 10, 
  font.family = "Helvetica",
  font.color = "#333333", 
  table.layout = "fixed", 
  border.color = "gray",
  padding.top = 3, padding.bottom = 3,
  padding.left = 4, padding.right = 4)

t1 <- t1 %>% 
  width(j=1, width = 2) %>% 
  width(j =2, width = 1)  
t1

Tipo de cerveza

Frecuencia Absoluta

1-lager artesanal

13

2-clara artesanal

17

3-lager importada

10

4-cerveza normal y helada

16

5-cerveza baja en calorías y sin alcohol

13

Origen de la cerveza

Origen de cerveza

Frecuencia Absoluta

0-nacional

15

1- importada

54

Precio de la cerveza

   vars  n   mean     sd median trimmed    mad min max range  skew kurtosis
X1    1 69 424.58 212.37    425   435.6 222.39   4 779   775 -0.54    -0.68
      se
X1 25.57
library(knitr)

datos <- data.frame(
  n = 69,
  mean = 424.58,
  sd = 212.37,
  trimmed = 425,
  mad = 435.6,
  min = 4,
  max = 779,
  range = 775,
  skew = -0.54,
  kurtosis = -0.68,
  se = 25.57
)

kable(datos, caption = "Estadísticos descriptivos")
Estadísticos descriptivos
n mean sd trimmed mad min max range skew kurtosis se
69 424.58 212.37 425 435.6 4 779 775 -0.54 -0.68 25.57

Calorias, Porcentaje de alcohol y Precio

summarytools::descr(beer[,2:4])
Descriptive Statistics  
beer  
N: 69  

                    calorias   poralcoh   precio
----------------- ---------- ---------- --------
             Mean     142.35      36.25   424.58
          Std.Dev      29.90      21.09   212.37
              Min      58.00       0.00     4.00
               Q1     142.00       5.00   319.00
           Median     148.00      46.00   425.00
               Q3     160.00      51.00   596.00
              Max     201.00      59.00   779.00
              MAD      16.31      10.38   222.39
              IQR      18.00      46.00   277.00
               CV       0.21       0.58     0.50
         Skewness      -1.25      -0.84    -0.54
      SE.Skewness       0.29       0.29     0.29
         Kurtosis       1.18      -1.08    -0.68
          N.Valid      69.00      69.00    69.00
                N      69.00      69.00    69.00
        Pct.Valid     100.00     100.00   100.00