Working with publicly available data on Atlanta Police Department's "Crime Data Downloads" site at http://www.atlantapd.org/crimedatadownloads.aspx
Get and clean Atlanta Police Department Data get.apd.data <- function(selector.text, save.location){ require(rvest) require(dplyr) temp <- tempfile() download.file( read_html("http://www.atlantapd.org/crimedatadownloads.aspx") %>% html_nodes(selector.text) %>% html_attr("href") %>% paste0("http://www.atlantapd.org/", .), destfile = temp) # Save filename of csv crime data raw file, for later use crime.data.filename <- unzip(temp, list = TRUE)$Name # Unzip crime data to "data" folder and close temp file placeholder unzip(temp, exdir = save.location) unlink(temp) crime.data.filename
Was there a reason why you did it this way instead of using SODA? Other PD's could definitely take advantage of this if it was using RSocrata from Chicago.
get_crime_zipfile expects excel files.
Fix by replacing
print(excel_sheets(fpath))
read_excel(fpath, sheet = "Query")
with
read.csv(fpath, stringsAsFactors = FALSE)
> bind_rows(crime_data)
Error: Can't combine `..1$beat` <integer> and `..2$beat` <character>.
crime_data is now a list of 4 data frames with different names and columns, which breaks bind_rows:
> lapply(X = crime_data,FUN = names)
[[1]]
[1] "offense_id" "rpt_date" "occur_date" "occur_day" "occur_day_num"
[6] "occur_time" "poss_date" "poss_time" "beat" "zone"
[11] "location" "ibr_code" "UC2_Literal" "neighborhood" "npu"
[16] "lat" "long"
[[2]]
[1] "offense_id" "rpt_date" "occur_date" "occur_time"
[5] "poss_date" "poss_time" "beat" "apt_office_prefix"
[9] "apt_office_num" "location" "MinOfucr" "dispo_code"
[13] "Shift" "loc_type" "UC2_Literal" "ibr_code"
[17] "neighborhood" "npu" "long" "lat"
[[3]]
[1] "offense_id" "rpt_date" "occur_date"
[4] "occur_time" "poss_date" "poss_time"
[7] "beat" "apartment_office_prefix" "apartment_number"
[10] "location" "watch" "location_type"
[13] "UC2_Literal" "UCR_Number" "neighborhood"
[16] "npu" "lat" "long"
[[4]]
[1] "Report.Number" "Report.Date" "Occur.Date"
[4] "Occur.Time" "Possible.Date" "Possible.Time"
[7] "Beat" "Apartment.Office.Prefix" "Apartment.Number"
[10] "Location" "Shift.Occurence" "Location.Type"
[13] "UCR.Literal" "UCR.." "IBR.Code"
[16] "Neighborhood" "NPU" "Latitude"
[19] "Longitude"
React
A declarative, efficient, and flexible JavaScript library for building user interfaces.
🖖 Vue.js is a progressive, incrementally-adoptable JavaScript framework for building UI on the web.
Typescript
TypeScript is a superset of JavaScript that compiles to clean JavaScript output.
An Open Source Machine Learning Framework for Everyone
Django
The Web framework for perfectionists with deadlines.
Laravel
A PHP framework for web artisans
Bring data to life with SVG, Canvas and HTML. 📊📈🎉
JavaScript (JS) is a lightweight interpreted programming language with first-class functions.
Some thing interesting about web. New door for the world.
A server is a program made to process requests and deliver data to clients.
Machine learning is a way of modeling and interpreting data that allows a piece of software to respond intelligently.
Some thing interesting about visualization, use data art
Some thing interesting about game, make everyone happy.
Facebook
We are working to build community through open source technology. NB: members must have two-factor auth.
Microsoft
Open source projects and samples from Microsoft.
Google
Google ❤️ Open Source for everyone.
Alibaba
Alibaba Open Source for everyone
D3
Data-Driven Documents codes.
Tencent
China tencent open source team.