library(readxl)
dog_and_cat_data_<- read_excel("dog and cat data .xlsx")
summary(dog_and_cat_data_)
## Year Species Intake Adoptions
## Min. :2020 Length:8 Min. : 132.0 Min. :1135
## 1st Qu.:2021 Class :character 1st Qu.: 493.2 1st Qu.:1319
## Median :2022 Mode :character Median : 3361.0 Median :2472
## Mean :2022 Mean : 6683.6 Mean :2609
## 3rd Qu.:2022 3rd Qu.: 9509.8 3rd Qu.:3755
## Max. :2023 Max. :21195.0 Max. :4682
## Fosters Spay/Neuter Animals Euthanized
## Min. : 370.0 Min. : 456.0 Min. : 713
## 1st Qu.: 450.5 1st Qu.: 623.8 1st Qu.: 793
## Median : 552.0 Median : 2202.0 Median :1084
## Mean : 655.8 Mean : 6329.6 Mean :1525
## 3rd Qu.: 749.0 3rd Qu.: 4887.0 3rd Qu.:1672
## Max. :1376.0 Max. :32498.0 Max. :4062
stat.desc(dog_and_cat_data_$`Animals Euthanized`)
## nbr.val nbr.null nbr.na min max range
## 8.000000e+00 0.000000e+00 0.000000e+00 7.130000e+02 4.062000e+03 3.349000e+03
## sum median mean SE.mean CI.mean.0.95 var
## 1.219900e+04 1.083500e+03 1.524875e+03 4.044196e+02 9.563004e+02 1.308442e+06
## std.dev coef.var
## 1.143871e+03 7.501411e-01
#there is no missing data#
hist(dog_and_cat_data_$Year,dog_and_cat_data_$`Animals Euthanized`)
barplot(dog_and_cat_data_$Year,dog_and_cat_data_$`Animals Euthanized`)
dog_and_cat_data_<- dog_and_cat_data_%>%mutate(logeuthanasia=log(`Animals Euthanized`))
hist(dog_and_cat_data_$logeuthanasia)
