Enunciado


La presente investigación surge del interés de una empresa del sector cervecero por comprender las preferencias expresadas por los consumidores y reconocer qué características de las cervezas se relacionan con mejores valoraciones. Conocer las diferencias según el tipo, el origen, la composición nutricional, el precio y los atributos sensoriales puede aportar evidencia para orientar la selección del portafolio, la comunicación de los productos y futuras decisiones comerciales. En esta primera aproximación se realizará un análisis descriptivo; por tanto, los resultados permitirán identificar patrones y formular nuevas hipótesis, pero no establecer relaciones causales.

Para desarrollar el estudio se dispone de la base de datos beer2.csv, que contiene 1.586.614 reseñas de cerveza y 15 variables. Cada fila corresponde a una reseña; por esta razón, una misma cerveza puede aparecer en varios registros. La base no presenta datos faltantes y reúne información de identificación, características nutricionales, procedencia y valoraciones de los productos. La variable precio es simulada.

La composición de la base de datos es la siguiente:

El director de investigación le encarga, en calidad de analista de datos, elaborar un informe descriptivo que sirva como diagnóstico inicial. Para las variables cualitativas y ordinales deberá construir tablas de frecuencias absolutas y relativas e identificar la moda; para las variables cuantitativas deberá calcular indicadores de tendencia central, posición y dispersión, seleccionando aquellos que resulten apropiados según la distribución observada. También deberá comparar los indicadores entre tipos y orígenes de cerveza e interpretar los resultados en relación con el propósito de la investigación. El informe debe señalar los principales patrones encontrados, advertir que las variables simuladas describen únicamente esta base académica y evitar conclusiones causales.



Base de datos


library(DT)
# Cargar los datos
library(readr)
beer2 <- read_csv("data/beer2.csv")
# Mostrar la tabla con DataTable
DT::datatable(
  head(beer2),
  fillContainer = FALSE,
  options = list(pageLength = 8)
)




Código R