Import data

# excel file
dog <- read_excel("../01_module4//data/myData.xlsx")
dog
## # A tibble: 195 × 18
##    Column1 Breed                   Affectionate With Fa…¹ Good With Young Chil…²
##      <dbl> <chr>                                    <dbl>                  <dbl>
##  1       1 Retrievers (Labrador)                        5                      5
##  2       2 French Bulldogs                              5                      5
##  3       3 German Shepherd Dogs                         5                      5
##  4       4 Retrievers (Golden)                          5                      5
##  5       5 Bulldogs                                     4                      3
##  6       6 Poodles                                      5                      5
##  7       7 Beagles                                      3                      5
##  8       8 Rottweilers                                  5                      3
##  9       9 Pointers (German Short…                      5                      5
## 10      10 Dachshunds                                   5                      3
## # ℹ 185 more rows
## # ℹ abbreviated names: ¹​`Affectionate With Family`, ²​`Good With Young Children`
## # ℹ 14 more variables: `Good With Other Dogs` <dbl>, `Shedding Level` <dbl>,
## #   `Coat Grooming Frequency` <dbl>, `Drooling Level` <dbl>, Type <chr>,
## #   Length <chr>, `Openness To Strangers` <dbl>, `Playfulness Level` <dbl>,
## #   `Watchdog/Protective Nature` <dbl>, `Adaptability Level` <dbl>,
## #   `Trainability Level` <dbl>, `Energy Level` <dbl>, `Barking Level` <dbl>, …

State one question

Do the dogs length of hair affect how much they shed.

Plot data

dog %>% filter(!Length %>% str_detect("Plott")) %>% ggplot(aes(Length,  fill = `Shedding Level` %>% as.character())) + geom_bar()

Interpret

The data shows that the length of dog’s hair doesn’t necessarily affect how much they shed.