Week 5: Apply 4

Import data

# excel file
data <- read_excel("../00_data/myData_charts.xlsx", sheet = "myData", skip = 1)

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

data

## # A tibble: 195 × 18
##     ...1 Breed   Affec…¹ Good …² Good …³ Shedd…⁴ Coat …⁵ Drool…⁶ Coat …⁷ Coat …⁸
##    <dbl> <chr>     <dbl>   <dbl>   <dbl>   <dbl>   <dbl>   <dbl> <chr>   <chr>  
##  1   167 Plott …       0       0       0       0       0       0 Plott … Plott …
##  2     6 Poodles       5       5       3       1      NA       1 Curly   Long   
##  3    13 Yorksh…       5       5       3       1       5       1 Silky   Long   
##  4    20 Shih T…       5       5       5       1       4       1 Double  Long   
##  5    38 Maltese       5       3       3       1       4       1 Silky   Long   
##  6    45 Bichon…       5       5       5       1       5       1 Double  Long   
##  7    58 Soft C…       5       5       3       1       4       2 Wavy    Medium 
##  8    62 Aireda…       3       3       3       1       3       1 Wiry    Short  
##  9    78 Lhasa …       5       3       3       1       3       1 Silky   Long   
## 10    79 Chines…       4       3       3       1       2       1 Hairle… Short  
## # … with 185 more rows, 8 more variables: `Openness To Strangers` <dbl>,
## #   `Playfulness Level` <dbl>, `Watchdog/Protective Nature` <dbl>,
## #   `Adaptability Level` <dbl>, `Trainability Level` <dbl>,
## #   `Energy Level` <dbl>, `Barking Level` <dbl>,
## #   `Mental Stimulation Needs` <dbl>, and abbreviated variable names
## #   ¹​`Affectionate With Family`, ²​`Good With Young Children`,
## #   ³​`Good With Other Dogs`, ⁴​`Shedding Level`, ⁵​`Coat Grooming Frequency`, …

data <- data %>% 
    janitor::clean_names()

Plot prices

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

#State one question Is there any kind of relationship between shedding level and coat length?

#plot data

data %>%
    filter(coat_length %in% c("Long", "Medium", "Short")) %>%
    
ggplot(mapping = aes(x = shedding_level, y = coat_length)) + 
  geom_jitter()

Interpret

Based off of my scatter plot, I can see that there are many long haired dogs that are in the shedding level 1 category. That is very shocking to me, as I would have guessed that longer fur would mean more shedding. I would also think that longer fur would make the shedding seem even more extreme, even if it was the same amount or less shedding than short or medium length coats, because longer fur could make the volume of shedding appear higher. I can also see that based off of my data, it seems that the majority of dogs have short-medium length coats, and are mostly shedding level 3’s.