Week 4: Apply 3

Import data

# excel file
data <- read_excel("data/myData.xlsx")

## New names:
## • `` -> `...7`

data

## # A tibble: 1,599 × 12
##    fixed_a…¹ volat…² citri…³ resid…⁴ chlor…⁵ free_…⁶  ...7 density    pH sulph…⁷
##        <dbl>   <dbl>   <dbl>   <dbl>   <dbl>   <dbl> <dbl>   <dbl> <dbl>   <dbl>
##  1       7.4    0.7     0        1.9   0.076      11    34   0.998  3.51    0.56
##  2       7.8    0.88    0        2.6   0.098      25    67   0.997  3.2     0.68
##  3       7.8    0.76    0.04     2.3   0.092      15    54   0.997  3.26    0.65
##  4      11.2    0.28    0.56     1.9   0.075      17    60   0.998  3.16    0.58
##  5       7.4    0.7     0        1.9   0.076      11    34   0.998  3.51    0.56
##  6       7.4    0.66    0        1.8   0.075      13    40   0.998  3.51    0.56
##  7       7.9    0.6     0.06     1.6   0.069      15    59   0.996  3.3     0.46
##  8       7.3    0.65    0        1.2   0.065      15    21   0.995  3.39    0.47
##  9       7.8    0.58    0.02     2     0.073       9    18   0.997  3.36    0.57
## 10       7.5    0.5     0.36     6.1   0.071      17   102   0.998  3.35    0.8 
## # … with 1,589 more rows, 2 more variables: alcohol <dbl>, quality <dbl>, and
## #   abbreviated variable names ¹​fixed_acidity, ²​volatile_acidity, ³​citric_acid,
## #   ⁴​residual_sugar, ⁵​chlorides, ⁶​free_sulfur_dioxide, ⁷​sulphates

Plot data

data %>%
    
    ggplot(aes(quality)) +
    geom_bar()