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:
precio de la presentación en caja de seis botellas de 12 onzas,
contendo de calorias congtenidas en una unidad de 12 onzas,
porcentaje de contenido de alcohol por 12 onzas de contenido,
tipo de cerveza (1-lager artesanal, 2-clara artesanal, 3-lager importada, 4-cerveza normal y helada, y 5-cerveza baja en calorías y sin alcohol) y
país de origen (0-nacional, 1- importada).
install.packages("devtools") # solo una vez
devtools::install_github("dgonxalex80/paquetePROB") # descarga paquetePROB
library(paquetePROB) # activa paquetePROB
data("beer")library(DT)
# Mostrar la tabla con DataTable
DT::datatable(
head(beer, fillContainer = FALSE, options = list(pageLength = 8))
)beer$tipo <- as.factor(beer$tipo)
beer$origen <- as.factor(beer$origen)pander(table(beer$origen))| 0 | 1 |
|---|---|
| 60 | 216 |
pander(freq(beer$tipo, cumul = TRUE))| Freq | % Valid | % Valid Cum. | % Total | % Total Cum. | |
|---|---|---|---|---|---|
| 1 | 52 | 18.84 | 18.84 | 18.84 | 18.84 |
| 2 | 68 | 24.64 | 43.48 | 24.64 | 43.48 |
| 3 | 40 | 14.49 | 57.97 | 14.49 | 57.97 |
| 4 | 64 | 23.19 | 81.16 | 23.19 | 81.16 |
| 5 | 52 | 18.84 | 100 | 18.84 | 100 |
| 0 | NA | NA | 0 | 100 | |
| Total | 276 | 100 | 100 | 100 | 100 |
pander(descr(beer))| calorias | id | poralcoh | precio | |
|---|---|---|---|---|
| Mean | 142.3 | 138.5 | 4.42 | 4.963 |
| Std.Dev | 29.74 | 79.82 | 1.566 | 1.439 |
| Min | 58 | 1 | 0 | 2.36 |
| Q1 | 142 | 69.5 | 4.4 | 3.9 |
| Median | 148 | 138.5 | 4.9 | 4.79 |
| Q3 | 160 | 207.5 | 5.1 | 6.24 |
| Max | 201 | 276 | 6 | 7.8 |
| MAD | 16.31 | 102.3 | 0.593 | 1.735 |
| IQR | 18 | 137.5 | 0.7 | 2.34 |
| CV | 0.2089 | 0.5763 | 0.3544 | 0.2899 |
| Skewness | -1.268 | 0 | -2.16 | 0.1093 |
| SE.Skewness | 0.1466 | 0.1466 | 0.1466 | 0.1466 |
| Kurtosis | 1.271 | -1.213 | 3.532 | -1.07 |
| N.Valid | 276 | 276 | 276 | 276 |
| Pct.Valid | 100 | 100 | 100 | 100 |
Los precios oscilan entre 2.36 y 7.8, con una media de 4.96.
El contenido calórico y el porcentaje de alcohol tienen distribuciones sesgadas hacia valores bajos.
Los datos muestran diversidad en tipos de cerveza disponibles en el mercado, pero con una mayor representación de las importadas y artesanales.
La cerveza clara artesanal es la más representativa con un 24.64% del total, mientras que la lager importada tiene la menor representación con un 14.49%.
El precio presenta una distribución moderadamente equilibrada, con una variabilidad relativamente baja.