Week 4: Apply 3

Import data

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

## # 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>, …

Plot data

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