San Francisco Kidnapping Crime Spatial Analysis

Top 10 crimes in San Francisco

plot_theme<-theme(axis.text.x=element_text(angle=90,hjust=1,vjust=0.5))
plot_text<-geom_text(stat='count',aes(label=..count..),vjust=-1)
temp <- crime %>% group_by(Category) %>% summarise(n=n()) %>% arrange(desc(n)) %>% head(n = 10)
temp %>%    
  ggplot(aes(x =reorder(Category,n), y =  n )) +
  geom_bar(stat='identity',colour="white", fill = c("darkorchid4")) +
  labs(x = 'Category', y = 'Count', title = 'Top 10 Crimes in San Francisco') +
  coord_flip() + 
  theme_bw()

Kidnappings crime clusters across San Francisco

crime_kidnapping %>%
  leaflet() %>%
  addTiles() %>%
  addMarkers(lng=crime_kidnapping$X,lat=crime_kidnapping$Y,clusterOptions = markerClusterOptions(maxClusterRadius=40))

Kidnappings Crime Locations

crime_kidnapping %>%
  leaflet() %>%
  addTiles() %>%
  addCircles(lng=crime_kidnapping$X,lat=crime_kidnapping$Y,radius = 20,color = "red")

Kidnapping incidents on Weekends(Blue) & Weekdays(Red)

crime_kidnapping %>%
  leaflet() %>%
  addTiles() %>%
  addCircles(lng=crime_kidnapping$X,lat=crime_kidnapping$Y,radius = 60,
             color = ~ifelse(DayOfWeek=="Sunday" | DayOfWeek=="Saturdy", "blue", "red"),
             stroke = FALSE, fillOpacity = 1)

crime_kidnapping_southern<-subset(crime,crime$Category=="KIDNAPPING" & crime$PdDistrict=="SOUTHERN")

Kidnapping across Southern Region which is most active crime zone