## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----setup--------------------------------------------------------------------
library(SensoryDataSets)
library(ggplot2)
library(dplyr)

## ----SensoryDataSets-datasets,echo = TRUE,message = FALSE,warning = FALSE,results = 'markup'----


view_datasets_SensoryDataSets()



## ----fig.width=7, fig.height=5------------------------------------------------
library(ggplot2)

ggplot(winequality_df, aes(x = factor(quality), y = alcohol)) +
  geom_boxplot(fill = "#722F37", alpha = 0.7, outlier.color = "#722F37") +
  labs(
    title = "Alcohol Content by Wine Quality Score",
    x = "Quality Score",
    y = "Alcohol (%)"
  ) +
  theme_minimal()