Are People Getting More Cats or Dogs?

Intro & Background

The data used for this project was downloaded from kaggle, and include information about “pet licenses issued by the Seattle Animal Shelter between 2005 and early 2017.”

Data

The data gets read in using the read.csv function in R.

## install packages if necessary
#install.packages("janitor")
#install.packages("ggplot2")
#install.packages("dplyr")
#install.packages("lubridate")
#install.packages("zoo")
#install.packages("forcats")
#install.packages("ggthemes")
#install.packages("knitr")


## load packages
library(janitor)
library(ggplot2)
library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(lubridate)

## 
## Attaching package: 'lubridate'

## The following object is masked from 'package:base':
## 
##     date

library(zoo)

## 
## Attaching package: 'zoo'

## The following objects are masked from 'package:base':
## 
##     as.Date, as.Date.numeric

library(forcats)
library(ggthemes)
library(knitr)



pets <- read.csv("/cloud/project/data/seattle_pet_licenses.csv")

Plots

I then generated a plot showing how many species are included in the dataset.

ggplot(pets) +
  geom_bar(aes(x=species)) +
  ylab("Amount")