#shinytheme

[totalmonsense]

I hope everyone had good shiny luck! Here's a community day throwback by zayr0 on IG. 🌟 #teammystic #shinytheme #shinypokemon #evolutiontheme #familytheme #pokemongo #themegym #bulbasaur #communityday

[thelifeoflenaok]

set up

library(shiny) library(ggplot2) library(dplyr) library(maps) library(tidyr) library(plotly) library(DT) library(leaflet) library(shinythemes)

######## DATA CLEANING: results in dataset on GitHub

#data <- read.csv( #  file = "data/Seattle_Police_Department_911_Incident_Response.csv", #  stringsAsFactors = FALSE #)

#cleaned <- data %>% #  select(Event.Clearance.Group, Event.Clearance.Date, Zone.Beat, Hundred.Block.Location, #         District.Sector, Longitude, Latitude)

#cleaned <- cleaned %>% #  mutate( #    date = substring(data$Event.Clearance.Date, 1, 10), #    year = substring(data$Event.Clearance.Date, 7, 10), #    time = substring(data$Event.Clearance.Date, 12, 22) #  )

# set up time as numerical value (hour.minute) #hour_24 <- function(time) { #  if (substring(time, 10, 11) == "PM") { #    hour <- as.numeric(substring(time, 1, 2)) + 12 #  } else { #    hour <- substring(time, 1, 2) #  } #  as.numeric(paste0(hour, ".", substring(time, 4, 5))) #} #cleaned$time <- sapply(cleaned$time, hour_24)

#clean <- cleaned %>% #  filter(year == "2014" | year == "2015" | year == "2016" | year == "2017"| year == "2018")

#random <- round(runif(200000, min = 0, max = nrow(clean)))

#cleaning <- clean[-random,]

#write.csv(cleaning, file = "data/last5_seattle_police_data.csv", na = "", row.names = FALSE)

##### END OF DATA CLEANING

data <- read.csv("data/last5_seattle_police_data.csv", stringsAsFactors = FALSE)

# set up sector data: exclude sector H data <- data %>%  filter(District.Sector %in% c(    "N", "L", "J", "B", "U", "O", "R","S", "K",    "M", "D", "Q", "C", "E", "G", "F", "W")  )

# QUESTION 1 major_crimes <- c(  "ASSAULTS",  "BURGLARY",  "HOMICIDE",  "NARCOTICS COMPLAINTS",  "PROSTITUTION",  "PROPERTY DAMAGE",  "ROBBERY" )

unique_districts <- unique(data$District.Sector)

month_extract <- function(s){  as.numeric(strsplit(s, "/")[[1]][1]) }

major_crime_data <- data %>%  filter(Event.Clearance.Group %in% major_crimes) %>%  mutate(month = sapply(date, month_extract))

min_year <- min(as.numeric(data$year), na.rm = TRUE) max_year <- max(as.numeric(data$year), na.rm = TRUE)

#QUESTION 3 criminal_data <- data %>%  filter(Event.Clearance.Group == major_crimes) crime_rate_data <- criminal_data %>%  group_by(year) %>%  summarize(    total_crimes = nrow(data[year, ])  ) crime_rate <- round(sum(crime_rate_data[, 'total_crimes'])/nrow(crime_rate_data))

district_crimes <- criminal_data %>%  group_by(District.Sector) %>%  summarize(    total_crimes = nrow(data[District.Sector, ])  )

max_crime <- max(district_crimes$total_crimes) max_district <- district_crimes %>%  filter(total_crimes == max(total_crimes)) %>%  select(District.Sector)

min_crime <- min(district_crimes$total_crimes) min_district <- district_crimes %>%  filter(total_crimes == min(total_crimes)) %>%  select(District.Sector)

# QUESTION 4 accident_data <- data %>%  filter(Event.Clearance.Group == "MOTOR VEHICLE COLLISION INVESTIGATION")

# WIDGETS # districts districts <- data %>%  distinct(District.Sector) districts <- districts$District.Sector

[totalmonsense]

🌟🌟🌟Shiny shiny shiny shiny shiny shiny! 💖💖💖 #pokemongo #shinytheme #evolutiontheme #themegym #communityday #charmander #charmeleon #charizard #shinypokemon #teamvalor

[totalmonsense]

"My squad holding it down" ✨ sent in by @dinohasic1 on Twitter. #pokemongo #themegym #shinytheme #teammystic

[totalmonsense]

Shiny Dragons 💚✨🐉 by @Pok3monMik3 on Twitter #teammystic #pokemongo #themegym #shinytheme #shinypokemon #typetheme #dragontype #dragontheme #shinysunday https://www.instagram.com/p/BwP1pwrgdhB/?utm_source=ig_tumblr_share&igshid=1xp3vosxpf8z4

[totalmonsense]

This #pinkwednesday is a #shiny one! 🌸🌸💖 by @ashleasimpsonn on Twitter. #pinktheme #onwednesdayswewearpink #colortheme #shinytheme #shinypokemon #pokemongo #themegym #teaminstinct https://www.instagram.com/p/BvyxQ9NgmrO/?utm_source=ig_tumblr_share&igshid=10ggv27ejoczu

[totalmonsense]

Shinies of community days past. 💖🌟 by @JoshuaplaysPKMN on Twitter. #shinysunday #shinytheme #shinypokemon #pokemongo #themegym #teaminstinct #pokemongocommunityday https://www.instagram.com/p/BvsVz8IA6Ni/?utm_source=ig_tumblr_share&igshid=183n1ic4gdo6z

[totalmonsense]

#Shiny #Ponyta Family by @CaleNeden on Twitter. 🔥🐎💙 #shinytheme #shinypokemon #evolutiontheme #familytheme #pokemongo #themegym #teammystic #rapidash #ipreview @preview.app https://www.instagram.com/p/BvcqNwqAVvC/?utm_source=ig_tumblr_share&igshid=1n7lqq7qbpfc0

[totalmonsense]

#ShinySunday! ❇✨💖🎇 by riku.sigua on IG. #shinytheme #shinypokemon #pokemongo #themegym #teaminstinct https://www.instagram.com/p/Bvad5GpA_G1/?utm_source=ig_tumblr_share&igshid=iv5svb7o2sos

[totalmonsense]

Purple Shinies (mostly 😂) 💜✨💖 by switchedupvoodoo on IG. #colortheme #purpletheme #shinytheme #shinypokemon #pokemongo #themegym #teammystic #shinysunday https://www.instagram.com/p/Bu1dlL1gxKD/?utm_source=ig_tumblr_share&igshid=5fjy2ztuymmp

[totalmonsense]

#ShinySunday brought to you by @Sara_Newell on Twitter. 🌟🌟🌟 #shinytheme #shinypokemon #pokemongo #themegym #teamvalor https://www.instagram.com/p/BujSLBSgzI4/?utm_source=ig_tumblr_share&igshid=32kukrwdtc9s

[totalmonsense]

🌟 "The Shiny Squad" 🌟 by @aprilkess on Twitter. #shinysunday #shinytheme #shinypokemon #pokemongo #themegym #teammystic https://www.instagram.com/p/Bs4KfDXgzJO/?utm_source=ig_tumblr_share&igshid=fysmt9gr0p20

[totalmonsense]

#ShinySunday time! 🌟🌟🌟 By how_to_be_simple on IG. #shinytheme #shinypokemon #pokemongo #themegym #teammystic https://www.instagram.com/p/Bs3xRmbAd9U/?utm_source=ig_tumblr_share&igshid=1m8xfdujy6j0p

[totalmonsense]

Magnificent Magenta 🌟💜🌸💎☄ by @AUSGoofy88 on Twitter. #shinysunday #pinktheme #purpletheme #shinytheme #shinypokemon #colortheme #pokemongo #themegym #teamvalor https://www.instagram.com/p/Bsl5NqJgCSl/?utm_source=ig_tumblr_share&igshid=1c09y7r2qut04

[totalmonsense]

Sunshine Shiny Gym at The Sunshine Garden 🌞🌻😎🌟🌱 by @squirtlesquad1. #gymnametheme #shinysunday #shinytheme #shinypokemon #teammystic #pokemongo #themegym #colortheme #yellowtheme #goldtheme https://www.instagram.com/p/Bslg08ag37C/?utm_source=ig_tumblr_share&igshid=11sgwllifcj68

[totalmonsense]

#shinysunday in pink and purple ☄🌟🌸💜 #shinytheme x #pinktheme by zayr0 on IG. Wailord is being as awkward as ever! 🐋 #shinypokemon #colortheme #teammystic #purpletheme #pokemongo #themegym https://www.instagram.com/p/BslN2Dqgey7/?utm_source=ig_tumblr_share&igshid=1cfusi4269gig