Merge pull request #13 from fivethirtyeight/sandy-311

Sandy 311
This commit is contained in:
Dhrumil Mehta
2017-09-19 17:10:54 -04:00
committed by GitHub
3 changed files with 1802 additions and 0 deletions

View File

@@ -4,6 +4,7 @@ We hope you'll use it to check our work and to create stories and visualizations
Article Date(s) | Headline(s) | Folder
---|---------|-------------
September 19, 2017 | [The (Very) Long Tail Of Hurricane Recovery](https://projects.fivethirtyeight.com/sandy-311/) | [sandy-311-calls](sandy-311-calls)
September 18, 2017 | [What The World Thinks Of Trump](https://fivethirtyeight.com/features/what-the-world-thinks-of-trump/) | [trump-world-trust](trump-world-trust)
September 8, 2017 | [Can You Beat FiveThirtyEight's NFL Predictions?](https://projects.fivethirtyeight.com/nfl-predictions-game/) | [nfl-elo-game](https://github.com/fivethirtyeight/nfl-elo-game)
September 7, 2017 | [Al Gores New Movie Exposes The Big Flaw In Online Movie Ratings](https://fivethirtyeight.com/features/al-gores-new-movie-exposes-the-big-flaw-in-online-movie-ratings/) | [inconvenient-sequel](inconvenient-sequel)

17
sandy-311-calls/Readme.md Normal file
View File

@@ -0,0 +1,17 @@
# Sandy 311 Calls
Raw data behind the story [The (Very) Long Tail Of Hurricane Recovery](https://projects.fivethirtyeight.com/sandy-311/)
Data was collected from the City of New York's [NYC OpenData](https://data.cityofnewyork.us/City-Government/311-Call-Center-Inquiry/tdd6-3ysr) website. The [data dictionary](https://data.cityofnewyork.us/api/views/wewp-mm3p/files/3a563b1d-9e0b-4824-98c7-a308bbc5ce6e?download=true&filename=Call%20Center%20Inquiry%20Data%20Dictionary.xlsx), hosted on the city's website, contains an "Agency List" tab with the full form of each agency's acronym.
You can recreate this spreadsheet by downloading all the data from Oct. 2012 to today from that site (warning: it's very large), and running the following R code:
```
allCalls <- read.csv('DOWNLOADED_DATA_HERE')
justSandy <- allCalls[grepl("Sandy", allCalls$BRIEF_DESCRIPTION),]
library(reshape2)
justSandy$date <- mdy(justSandy$DATE)
bydate <- dcast(justSandy, date ~ AGENCY)
```

File diff suppressed because it is too large Load Diff