nyc_tree_census_2015_dash_1.Rmd

---
title: "NYC 2015 Tree Census"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
---

```{r setup, include=FALSE}
# libraries
library(flexdashboard)
library(tidyverse)

# load data
trees_2015 <- read_csv("new_york_tree_census_2015.csv")
```

Column {data-width=650}
-----------------------------------------------------------------------

### Tree diameter distribution

```{r}
trees_2015 %>% 
  ggplot(aes(tree_dbh)) +
  geom_histogram() +
  labs(title = "Diameter of NYC trees, 2015",
       x = "Diameter (in)",
       y = "# of trees")
```

Column {data-width=350}
-----------------------------------------------------------------------

### Status

```{r}
trees_2015 %>% 
  count(status, sort = TRUE) %>% 
  knitr::kable()
```

### 1200 Random Trees

```{r}
library(leaflet)
trees_2015 %>% 
  # filter(boroname == "Queens") %>% 
  sample_n(1200) %>%
  leaflet() %>%
  addTiles() %>%
  addMarkers()
```