#Getting required packages
getwd()
## [1] "/Users/tina/Projects/R/PhoenixCityData"
list.files()
## [1] "ByMonth.png"
## [2] "ByWeekDay.png"
## [3] "CategoryPerDayDf.csv"
## [4] "CategoryPerMonthDf.csv"
## [5] "CategoryPerPremDf.csv"
## [6] "CategoryPerZIPDf.csv"
## [7] "CityCrimeAddresses.csv"
## [8] "CityCrimeData.R"
## [9] "convertAddToGPS.R"
## [10] "Crime Stats.csv"
## [11] "CrimeByCategoryByWeekday.html"
## [12] "CrimeByCategoryByWeekday.R"
## [13] "CrimeByCategoryByWeekday.spin.R"
## [14] "CrimeByCategoryByWeekday.spin.Rmd"
## [15] "CrimeData.csv"
## [16] "CrimeDataMapped.tiff"
## [17] "CrimeDataPlottedOnMap.png"
## [18] "CrimeIncidentCountPerCategory.png"
## [19] "CrimeStatsCountPerCategory.png"
## [20] "CrimeStatsStackedHist.R"
## [21] "CrimeStatsSummarised.docx"
## [22] "CrimeStatsSummarised.html"
## [23] "CrimeStatsSummarised.R"
## [24] "free-zipcode-database-Primary.csv"
## [25] "geocodedAddresses.csv"
## [26] "GeoCoding.R"
## [27] "GeoMapZipToPlot.html"
## [28] "GeoMapZipToPlot.R"
## [29] "Park_Trails.csv"
## [30] "Phoenixquickfacts.csv"
## [31] "playGround.R"
## [32] "PremisesType.png"
## [33] "SFCrimeScriptForPlottingAll.R"
## [34] "wrapLabelNameFunctions.R"
suppressMessages(library(ggplot2, warn.conflicts = FALSE, quietly=TRUE))
## Warning: package 'ggplot2' was built under R version 3.2.4
suppressMessages(library(plyr, warn.conflicts = FALSE, quietly=TRUE))
crimesByDay <- read.csv("CategoryPerDayDf.csv")
str(crimesByDay)
## 'data.frame': 63 obs. of 4 variables:
## $ X : int 1 2 3 4 5 6 7 8 9 10 ...
## $ Weekday : Factor w/ 7 levels "Fri","Mon","Sat",..: 4 2 6 7 5 1 3 4 2 6 ...
## $ Category: Factor w/ 9 levels "aggravated assault",..: 1 1 1 1 1 1 1 2 2 2 ...
## $ Freq : int 297 246 251 221 218 251 286 6 15 8 ...
CrimesByWeekDayPlot <- ggplot(crimesByDay, aes(x = Weekday, y = Freq, fill = Category)) +
geom_bar(stat = "identity") +
ggtitle("Crimes by Day of the Week")
CrimesByWeekDayPlot
CrimesByMonth <- read.csv("CategoryPerMonthDf.csv")
head(CrimesByMonth)
## X Month Category Freq
## 1 1 Jan aggravated assault 289
## 2 2 Feb aggravated assault 280
## 3 3 Mar aggravated assault 353
## 4 4 Apr aggravated assault 267
## 5 5 May aggravated assault 0
## 6 6 Jun aggravated assault 0
#Note crimes by month is actually crimes by day!
monthsToKeep <- c("Nov", "Dec", "Jan", "Feb", "Mar", "Apr")
CrimesByMonthsWithData <- subset(CrimesByMonth, Month %in% monthsToKeep)
MonthOrder <- c("Nov", "Dec", "Jan", "Feb", "Mar", "Apr")
CrimesByMonthsWithData$Month <-
factor(CrimesByMonthsWithData$Month,
levels = CrimesByMonthsWithData$Month[order(MonthOrder)])
levels(CrimesByMonthsWithData$Month)
## [1] "Dec" "Feb" "Apr" "Mar" "Nov" "Jan"
CrimesByMonthPlot <- ggplot(CrimesByMonthsWithData, aes(x = Month, y = Freq, fill = Category)) +
geom_bar(stat = "identity") +
ggtitle("Crimes by Month")
CrimesByMonthPlot
#Note: I'll need to rearrange the data so that the months plot out in sequence.
CrimesByPremises <- read.csv("CategoryPerPremDf.csv")
#Note: need to rehash the premises categories into groups
revalue(CrimesByPremises$Premises, c("07a storeroom/shed (commercial)"="commercial",
"07a storeroom/shed (residential)" = "residential",
"adult only store / movie" = "adult commercial",
"arena / stadium / convention center" = "stadium",
"bus / light rail" = "bus",
"bus / rail station" = "station",
"bus station" = "station",
"bus stop" = "bus",
"condo / townhouse" = "residential",
"convenienvce market / store" = "store",
"department / discount store" = "store",
"driveway" = "residential",
"drug store" = "store",
"fast food store" = "store",
"fenced commercial yard" = "commerical",
"fenced residential yard" = "residential",
"foj - premise unknown" = "other",
"garage" = "residential",
"garage / carport" = "residential",
"grocery / super market" = "store",
"light rail" = "rail",
"liquor store" = "store",
"rail station" = "station",
"retail business" = "commercial",
"school-college/university" = "school",
"school-elementary/secondary" = "school",
"school-other" = "school",
"single family house" = "residential",
"single family housing" = "residential",
"unknown" = "other",
"train station" = "station"))
## [1]
## [2] commercial
## [3] residential
## [4] adult commercial
## [5] airport
## [6] apartment
## [7] stadium
## [8] bank / savings / credit union
## [9] bar / loung / night club
## [10] bus
## [11] bus
## [12] station
## [13] station
## [14] bus
## [15] canal / right-of-way
## [16] carport
## [17] child care / day care
## [18] church / synagogue / temple / mosque
## [19] residential
## [20] construction site
## [21] store
## [22] store
## [23] drive-in movie
## [24] residential
## [25] store
## [26] store
## [27] commerical
## [28] residential
## [29] other
## [30] residential
## [31] residential
## [32] gas / service station
## [33] government / public building
## [34] store
## [35] group home
## [36] hospital
## [37] hospitial / nursing care
## [38] hotel / motel
## [39] jail / prison / penitentiary
## [40] rail
## [41] store
## [42] loan / finance company
## [43] medical office
## [44] mobile home
## [45] mountain area
## [46] nursing care
## [47] office / commercial building
## [48] open space / desert
## [49] other
## [50] park / playground
## [51] parking garage
## [52] parking lot
## [53] station
## [54] rail stop
## [55] rental storage / facility
## [56] restaurant
## [57] commercial
## [58] river bottom
## [59] school
## [60] school
## [61] school
## [62] school/college/child care
## [63] residential
## [64] residential
## [65] specialty store
## [66] storeroom / shed
## [67] street / roadway / alley / sidewalk
## [68] street / roadway / alley sidewalk
## [69] theatre
## [70] station
## [71] other
## [72] vehicle
## [73] warehouse / factory
## [74]
## [75] commercial
## [76] residential
## [77] adult commercial
## [78] airport
## [79] apartment
## [80] stadium
## [81] bank / savings / credit union
## [82] bar / loung / night club
## [83] bus
## [84] bus
## [85] station
## [86] station
## [87] bus
## [88] canal / right-of-way
## [89] carport
## [90] child care / day care
## [91] church / synagogue / temple / mosque
## [92] residential
## [93] construction site
## [94] store
## [95] store
## [96] drive-in movie
## [97] residential
## [98] store
## [99] store
## [100] commerical
## [101] residential
## [102] other
## [103] residential
## [104] residential
## [105] gas / service station
## [106] government / public building
## [107] store
## [108] group home
## [109] hospital
## [110] hospitial / nursing care
## [111] hotel / motel
## [112] jail / prison / penitentiary
## [113] rail
## [114] store
## [115] loan / finance company
## [116] medical office
## [117] mobile home
## [118] mountain area
## [119] nursing care
## [120] office / commercial building
## [121] open space / desert
## [122] other
## [123] park / playground
## [124] parking garage
## [125] parking lot
## [126] station
## [127] rail stop
## [128] rental storage / facility
## [129] restaurant
## [130] commercial
## [131] river bottom
## [132] school
## [133] school
## [134] school
## [135] school/college/child care
## [136] residential
## [137] residential
## [138] specialty store
## [139] storeroom / shed
## [140] street / roadway / alley / sidewalk
## [141] street / roadway / alley sidewalk
## [142] theatre
## [143] station
## [144] other
## [145] vehicle
## [146] warehouse / factory
## [147]
## [148] commercial
## [149] residential
## [150] adult commercial
## [151] airport
## [152] apartment
## [153] stadium
## [154] bank / savings / credit union
## [155] bar / loung / night club
## [156] bus
## [157] bus
## [158] station
## [159] station
## [160] bus
## [161] canal / right-of-way
## [162] carport
## [163] child care / day care
## [164] church / synagogue / temple / mosque
## [165] residential
## [166] construction site
## [167] store
## [168] store
## [169] drive-in movie
## [170] residential
## [171] store
## [172] store
## [173] commerical
## [174] residential
## [175] other
## [176] residential
## [177] residential
## [178] gas / service station
## [179] government / public building
## [180] store
## [181] group home
## [182] hospital
## [183] hospitial / nursing care
## [184] hotel / motel
## [185] jail / prison / penitentiary
## [186] rail
## [187] store
## [188] loan / finance company
## [189] medical office
## [190] mobile home
## [191] mountain area
## [192] nursing care
## [193] office / commercial building
## [194] open space / desert
## [195] other
## [196] park / playground
## [197] parking garage
## [198] parking lot
## [199] station
## [200] rail stop
## [201] rental storage / facility
## [202] restaurant
## [203] commercial
## [204] river bottom
## [205] school
## [206] school
## [207] school
## [208] school/college/child care
## [209] residential
## [210] residential
## [211] specialty store
## [212] storeroom / shed
## [213] street / roadway / alley / sidewalk
## [214] street / roadway / alley sidewalk
## [215] theatre
## [216] station
## [217] other
## [218] vehicle
## [219] warehouse / factory
## [220]
## [221] commercial
## [222] residential
## [223] adult commercial
## [224] airport
## [225] apartment
## [226] stadium
## [227] bank / savings / credit union
## [228] bar / loung / night club
## [229] bus
## [230] bus
## [231] station
## [232] station
## [233] bus
## [234] canal / right-of-way
## [235] carport
## [236] child care / day care
## [237] church / synagogue / temple / mosque
## [238] residential
## [239] construction site
## [240] store
## [241] store
## [242] drive-in movie
## [243] residential
## [244] store
## [245] store
## [246] commerical
## [247] residential
## [248] other
## [249] residential
## [250] residential
## [251] gas / service station
## [252] government / public building
## [253] store
## [254] group home
## [255] hospital
## [256] hospitial / nursing care
## [257] hotel / motel
## [258] jail / prison / penitentiary
## [259] rail
## [260] store
## [261] loan / finance company
## [262] medical office
## [263] mobile home
## [264] mountain area
## [265] nursing care
## [266] office / commercial building
## [267] open space / desert
## [268] other
## [269] park / playground
## [270] parking garage
## [271] parking lot
## [272] station
## [273] rail stop
## [274] rental storage / facility
## [275] restaurant
## [276] commercial
## [277] river bottom
## [278] school
## [279] school
## [280] school
## [281] school/college/child care
## [282] residential
## [283] residential
## [284] specialty store
## [285] storeroom / shed
## [286] street / roadway / alley / sidewalk
## [287] street / roadway / alley sidewalk
## [288] theatre
## [289] station
## [290] other
## [291] vehicle
## [292] warehouse / factory
## [293]
## [294] commercial
## [295] residential
## [296] adult commercial
## [297] airport
## [298] apartment
## [299] stadium
## [300] bank / savings / credit union
## [301] bar / loung / night club
## [302] bus
## [303] bus
## [304] station
## [305] station
## [306] bus
## [307] canal / right-of-way
## [308] carport
## [309] child care / day care
## [310] church / synagogue / temple / mosque
## [311] residential
## [312] construction site
## [313] store
## [314] store
## [315] drive-in movie
## [316] residential
## [317] store
## [318] store
## [319] commerical
## [320] residential
## [321] other
## [322] residential
## [323] residential
## [324] gas / service station
## [325] government / public building
## [326] store
## [327] group home
## [328] hospital
## [329] hospitial / nursing care
## [330] hotel / motel
## [331] jail / prison / penitentiary
## [332] rail
## [333] store
## [334] loan / finance company
## [335] medical office
## [336] mobile home
## [337] mountain area
## [338] nursing care
## [339] office / commercial building
## [340] open space / desert
## [341] other
## [342] park / playground
## [343] parking garage
## [344] parking lot
## [345] station
## [346] rail stop
## [347] rental storage / facility
## [348] restaurant
## [349] commercial
## [350] river bottom
## [351] school
## [352] school
## [353] school
## [354] school/college/child care
## [355] residential
## [356] residential
## [357] specialty store
## [358] storeroom / shed
## [359] street / roadway / alley / sidewalk
## [360] street / roadway / alley sidewalk
## [361] theatre
## [362] station
## [363] other
## [364] vehicle
## [365] warehouse / factory
## [366]
## [367] commercial
## [368] residential
## [369] adult commercial
## [370] airport
## [371] apartment
## [372] stadium
## [373] bank / savings / credit union
## [374] bar / loung / night club
## [375] bus
## [376] bus
## [377] station
## [378] station
## [379] bus
## [380] canal / right-of-way
## [381] carport
## [382] child care / day care
## [383] church / synagogue / temple / mosque
## [384] residential
## [385] construction site
## [386] store
## [387] store
## [388] drive-in movie
## [389] residential
## [390] store
## [391] store
## [392] commerical
## [393] residential
## [394] other
## [395] residential
## [396] residential
## [397] gas / service station
## [398] government / public building
## [399] store
## [400] group home
## [401] hospital
## [402] hospitial / nursing care
## [403] hotel / motel
## [404] jail / prison / penitentiary
## [405] rail
## [406] store
## [407] loan / finance company
## [408] medical office
## [409] mobile home
## [410] mountain area
## [411] nursing care
## [412] office / commercial building
## [413] open space / desert
## [414] other
## [415] park / playground
## [416] parking garage
## [417] parking lot
## [418] station
## [419] rail stop
## [420] rental storage / facility
## [421] restaurant
## [422] commercial
## [423] river bottom
## [424] school
## [425] school
## [426] school
## [427] school/college/child care
## [428] residential
## [429] residential
## [430] specialty store
## [431] storeroom / shed
## [432] street / roadway / alley / sidewalk
## [433] street / roadway / alley sidewalk
## [434] theatre
## [435] station
## [436] other
## [437] vehicle
## [438] warehouse / factory
## [439]
## [440] commercial
## [441] residential
## [442] adult commercial
## [443] airport
## [444] apartment
## [445] stadium
## [446] bank / savings / credit union
## [447] bar / loung / night club
## [448] bus
## [449] bus
## [450] station
## [451] station
## [452] bus
## [453] canal / right-of-way
## [454] carport
## [455] child care / day care
## [456] church / synagogue / temple / mosque
## [457] residential
## [458] construction site
## [459] store
## [460] store
## [461] drive-in movie
## [462] residential
## [463] store
## [464] store
## [465] commerical
## [466] residential
## [467] other
## [468] residential
## [469] residential
## [470] gas / service station
## [471] government / public building
## [472] store
## [473] group home
## [474] hospital
## [475] hospitial / nursing care
## [476] hotel / motel
## [477] jail / prison / penitentiary
## [478] rail
## [479] store
## [480] loan / finance company
## [481] medical office
## [482] mobile home
## [483] mountain area
## [484] nursing care
## [485] office / commercial building
## [486] open space / desert
## [487] other
## [488] park / playground
## [489] parking garage
## [490] parking lot
## [491] station
## [492] rail stop
## [493] rental storage / facility
## [494] restaurant
## [495] commercial
## [496] river bottom
## [497] school
## [498] school
## [499] school
## [500] school/college/child care
## [501] residential
## [502] residential
## [503] specialty store
## [504] storeroom / shed
## [505] street / roadway / alley / sidewalk
## [506] street / roadway / alley sidewalk
## [507] theatre
## [508] station
## [509] other
## [510] vehicle
## [511] warehouse / factory
## [512]
## [513] commercial
## [514] residential
## [515] adult commercial
## [516] airport
## [517] apartment
## [518] stadium
## [519] bank / savings / credit union
## [520] bar / loung / night club
## [521] bus
## [522] bus
## [523] station
## [524] station
## [525] bus
## [526] canal / right-of-way
## [527] carport
## [528] child care / day care
## [529] church / synagogue / temple / mosque
## [530] residential
## [531] construction site
## [532] store
## [533] store
## [534] drive-in movie
## [535] residential
## [536] store
## [537] store
## [538] commerical
## [539] residential
## [540] other
## [541] residential
## [542] residential
## [543] gas / service station
## [544] government / public building
## [545] store
## [546] group home
## [547] hospital
## [548] hospitial / nursing care
## [549] hotel / motel
## [550] jail / prison / penitentiary
## [551] rail
## [552] store
## [553] loan / finance company
## [554] medical office
## [555] mobile home
## [556] mountain area
## [557] nursing care
## [558] office / commercial building
## [559] open space / desert
## [560] other
## [561] park / playground
## [562] parking garage
## [563] parking lot
## [564] station
## [565] rail stop
## [566] rental storage / facility
## [567] restaurant
## [568] commercial
## [569] river bottom
## [570] school
## [571] school
## [572] school
## [573] school/college/child care
## [574] residential
## [575] residential
## [576] specialty store
## [577] storeroom / shed
## [578] street / roadway / alley / sidewalk
## [579] street / roadway / alley sidewalk
## [580] theatre
## [581] station
## [582] other
## [583] vehicle
## [584] warehouse / factory
## [585]
## [586] commercial
## [587] residential
## [588] adult commercial
## [589] airport
## [590] apartment
## [591] stadium
## [592] bank / savings / credit union
## [593] bar / loung / night club
## [594] bus
## [595] bus
## [596] station
## [597] station
## [598] bus
## [599] canal / right-of-way
## [600] carport
## [601] child care / day care
## [602] church / synagogue / temple / mosque
## [603] residential
## [604] construction site
## [605] store
## [606] store
## [607] drive-in movie
## [608] residential
## [609] store
## [610] store
## [611] commerical
## [612] residential
## [613] other
## [614] residential
## [615] residential
## [616] gas / service station
## [617] government / public building
## [618] store
## [619] group home
## [620] hospital
## [621] hospitial / nursing care
## [622] hotel / motel
## [623] jail / prison / penitentiary
## [624] rail
## [625] store
## [626] loan / finance company
## [627] medical office
## [628] mobile home
## [629] mountain area
## [630] nursing care
## [631] office / commercial building
## [632] open space / desert
## [633] other
## [634] park / playground
## [635] parking garage
## [636] parking lot
## [637] station
## [638] rail stop
## [639] rental storage / facility
## [640] restaurant
## [641] commercial
## [642] river bottom
## [643] school
## [644] school
## [645] school
## [646] school/college/child care
## [647] residential
## [648] residential
## [649] specialty store
## [650] storeroom / shed
## [651] street / roadway / alley / sidewalk
## [652] street / roadway / alley sidewalk
## [653] theatre
## [654] station
## [655] other
## [656] vehicle
## [657] warehouse / factory
## 51 Levels: commercial residential adult commercial airport ... warehouse / factory
PremisesChopped <- subset(CrimesByPremises, Freq > 20)
CrimesByPremisesPlot <- ggplot(PremisesChopped, aes(x = Premises, y = Freq, fill = Category)) +
geom_bar(stat = "identity") +
ggtitle("Crimes by Premises Type")
CrimesByPremisesPlot
#-----------------------------------------