NYC council Cleanup

knitr::opts_chunk$set(echo = TRUE)
library(tidyr)
library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(readr)
library(stringr)
library(ggplot2)

urlfile="https://raw.githubusercontent.com/Nhodgkinson/cova_city/main/NYC%20city%20Council%20Districts%20by%20neighborhood.csv"

council_data<-read_csv(url(urlfile))

## Rows: 51 Columns: 34

## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (33): Name, Borough, Party, Neighborhoods, Neighborhoods2, Neighborhoods...
## dbl  (1): City Council District
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

R Markdown

councildf<-council_data[,c(1:4)]



#Month Avgs
ndf<-gather(council_data, "Neighborhood", "n", 5:34)

ndf<-na.omit(ndf)

ndf<- ndf[,c(1,2,3,4,6)]