#The data used illustrates the services provided by Animal Care Services. The variables used in this data set are animal type, adoptions, fosters and spay/neuter for Quarter 2 and Quarter 3. There are three months in each quarter. The data in Quarter 2 is from January 2024 to March 2024 and the data used in Quarter 3 is from April 2024 to June 2024. I have also included the number of animals euthanized for both quarters as I believe that an increase in services will lead to a decrease in euthanasia rates#
library(tidyverse)
## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr 1.1.4 ✔ readr 2.1.5
## ✔ forcats 1.0.0 ✔ stringr 1.5.1
## ✔ ggplot2 3.5.1 ✔ tibble 3.2.1
## ✔ lubridate 1.9.3 ✔ tidyr 1.3.1
## ✔ purrr 1.0.2
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag() masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
library(readxl)
DOG_AND_CAT_DATA_Q2_to_Q3 <- read_excel("DOG AND CAT DATA Q2 to Q3.xlsx")
summary(DOG_AND_CAT_DATA_Q2_to_Q3)
## Animal Type Adoptions Q2 Fosters Q2 Spay/Neuter Q2
## Length:2 Min. : 242.0 Min. : 31.0 Min. : 151
## Class :character 1st Qu.: 440.5 1st Qu.:155.2 1st Qu.:2059
## Mode :character Median : 639.0 Median :279.5 Median :3967
## Mean : 639.0 Mean :279.5 Mean :3967
## 3rd Qu.: 837.5 3rd Qu.:403.8 3rd Qu.:5875
## Max. :1036.0 Max. :528.0 Max. :7783
## Animals Euthanized Q2 Adoptions Q3 Fosters Q3 Spay/Neuter Q 3
## Min. :127.0 Min. :241.0 Min. :227.0 Min. : 170
## 1st Qu.:307.5 1st Qu.:383.5 1st Qu.:282.8 1st Qu.:1869
## Median :488.0 Median :526.0 Median :338.5 Median :3568
## Mean :488.0 Mean :526.0 Mean :338.5 Mean :3568
## 3rd Qu.:668.5 3rd Qu.:668.5 3rd Qu.:394.2 3rd Qu.:5267
## Max. :849.0 Max. :811.0 Max. :450.0 Max. :6966
## Animals Euthanized Q3
## Min. :396.0
## 1st Qu.:519.5
## Median :643.0
## Mean :643.0
## 3rd Qu.:766.5
## Max. :890.0
boxplot(DOG_AND_CAT_DATA_Q2_to_Q3$`Spay/Neuter Q2` ~DOG_AND_CAT_DATA_Q2_to_Q3$`Animal Type`)
cor(DOG_AND_CAT_DATA_Q2_to_Q3$`Spay/Neuter Q2`,DOG_AND_CAT_DATA_Q2_to_Q3$`Animals Euthanized Q3`)
## [1] 1