Actividad121

#Análisis descriptivo de variables cualitativas

library(summarytools)

Warning: package 'summarytools' was built under R version 4.5.2

table(cervezas$tipo)

baja en calorías / sin alcohol        cerveza normal y helada 
                            39                             48 
               clara artesanal                lager artesanal 
                            42                             36 
               lager importada 
                            35 

summarytools::freq(cervezas$tipo,cumul = FALSE)

Frequencies  
cervezas$tipo  
Type: Character  

                                       Freq   % Valid   % Total
------------------------------------ ------ --------- ---------
      baja en calorías / sin alcohol     39     19.50     19.50
             cerveza normal y helada     48     24.00     24.00
                     clara artesanal     42     21.00     21.00
                     lager artesanal     36     18.00     18.00
                     lager importada     35     17.50     17.50
                                <NA>      0                0.00
                               Total    200    100.00    100.00

summarytools::freq(cervezas$pais,cumul = FALSE)

Frequencies  
cervezas$pais  
Type: Character  

                        Freq   % Valid   % Total
--------------------- ------ --------- ---------
             Alemania      4      2.00      2.00
            Argentina      4      2.00      2.00
              Bélgica      5      2.50      2.50
               Brasil      7      3.50      3.50
               Canadá      6      3.00      3.00
                Chile      6      3.00      3.00
             Colombia    113     56.50     56.50
               España     13      6.50      6.50
       Estados Unidos      4      2.00      2.00
              Irlanda      2      1.00      1.00
               Italia      3      1.50      1.50
                Japón      7      3.50      3.50
               México      4      2.00      2.00
         Países Bajos      8      4.00      4.00
                 Perú      3      1.50      1.50
          Reino Unido      6      3.00      3.00
      República Checa      5      2.50      2.50
                 <NA>      0                0.00
                Total    200    100.00    100.00

#Análisis descriptivo de variables cualitativas

summary(cervezas$alcohol)

   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  0.000   3.975   4.800   4.064   5.200   7.300 

summarytools::descr(cervezas[,c(8,9,11,12)])

Descriptive Statistics  
cervezas  
N: 200  

                    alcohol   calorias   precio   presentacion
----------------- --------- ---------- -------- --------------
             Mean      4.06     161.36     5.64         455.02
          Std.Dev      1.91      62.00     3.29         169.03
              Min      0.00      18.00     0.89         269.00
               Q1      3.95     167.00     3.30         330.00
           Median      4.80     185.00     4.76         473.00
               Q3      5.20     199.00     6.79         500.00
              Max      7.30     239.00    17.89         750.00
              MAD      0.89      23.72     2.44         212.01
              IQR      1.23      32.00     3.49         170.00
               CV      0.47       0.38     0.58           0.37
         Skewness     -1.18      -1.30     1.46           0.71
      SE.Skewness      0.17       0.17     0.17           0.17
         Kurtosis     -0.03       0.10     2.11          -0.79
          N.Valid    200.00     200.00   200.00         200.00
                N    200.00     200.00   200.00         200.00
        Pct.Valid    100.00     100.00   100.00         100.00

El resultado nos indica que el contenido de concentración de alcohol se encuentra al rededor de 4.8%, con un coeficiente de variación del 47% y una distribución asimétrica a la izquierda, lo cual indica que una gran cantidad de cervezas tenen alto contenido de alcohol y muy pocas bajo contenido

#Análisis bivariado

table(cervezas$tipo,cervezas$origen)

                                
                                 importada nacional
  baja en calorías / sin alcohol        15       24
  cerveza normal y helada               17       31
  clara artesanal                       15       27
  lager artesanal                        5       31
  lager importada                       35        0

El análisis entre el tipo de cerveza y su origen muestra que la oferta está dominada por productos nacionales en la mayoría de las categorías, especialmente en cervezas tradicionales y artesanales. En contraste, la categoría lager importada está compuesta exclusivamente por cervezas de origen importado, lo que evidencia una asociación clara entre el tipo de cerveza y su procedencia. En general, los resultados indican que el origen del producto influye en el tipo de cerveza disponible en el mercado. #CONCLUSION El análisis descriptivo de las 200 marcas de cerveza evidencia un mercado dominado por productos nacionales, con una alta concentración en cervezas tradicionales y artesanales. Las variables cuantitativas muestran una fuerte heterogeneidad en el precio, lo que sugiere una clara segmentación del mercado. El contenido alcohólico se concentra en niveles medios, mientras que las cervezas bajas en alcohol representan un nicho reducido. En conjunto, los resultados permiten validar la existencia de patrones claros entre tipo, origen y características del producto, información clave para la toma de decisiones estratégicas.