Week 4: Apply 3

Import data

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

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

data <- data %>%
    clean_names()

Plot data

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