HW 4

table(PAD_Data_safedash_offenses$Zip_Code)[1:10]

## 
## 78201 78202 78203 78204 78205 78206 78207 78208 78209 78210 
## 15879  7096  2679  6502 13600     7 25833  2295 11028 13426

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(pastecs)

## 
## Attaching package: 'pastecs'

## The following objects are masked from 'package:dplyr':
## 
##     first, last

zip_offenses <- PAD_Data_safedash_offenses %>%
filter(!is.na(Zip_Code), Zip_Code != "") %>%
count(Zip_Code, name = "offense_count")

head(zip_offenses)

##   Zip_Code offense_count
## 1    78201         15879
## 2    78202          7096
## 3    78203          2679
## 4    78204          6502
## 5    78205         13600
## 6    78206             7