datawrangling.Rmd

---
title: "Dataset RMD"
author: Aditya, Olek, Lauren
output: pdf_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(here)
```


The real shit begins

```{r}
library(tidyverse)
data <- read_csv(here("city_day.csv"))



data %>%
  group_by(City) %>%
  summarise(count = n()) %>%
  arrange(desc(count))


data <- data %>%
  filter(City %in% c("Delhi", "Hyderabad", "Lucknow",
                     "Bengluru", "Chennai", "Ahmedabad",
                     "Mumbai")) %>%
  select(-PM10, -NH3)

data %>%
  group_by(City) %>%
  count(is.na())


data %>%
  
  group_by(City) %>%
  summarise_all(funs(sum(!is.na(.))))
```