---
title: "ANLY 512 DASHBOARD LAB 2"
author: "Yining Jia"
output:
flexdashboard::flex_dashboard:
orientation: columns
source_code: embed
vertical_layout: fill
html_document:
df_print: paged
---
```{r setup, include=TRUE}
knitr::opts_chunk$set(echo = TRUE)
options(noaakey = "NKWNGmGBoMSNqLhvpyJlDKktKzyasaAN")
library(dplyr)
library(rnoaa)
```
# Intro{.sidebar}
In this project, we are interested in exploring how
precipitation changed in particular stations/areas. This dashboard demonstrated some findings in Akron Canton Airport (Ohio area), New York City and San Fransico The data we extracted is dated from 08/01/2017 through 07/31/2018.
Source: [NOAA](https://www1.ncdc.noaa.gov/pub/data/ghcn/daily/ghcnd-stations.txt)
Trial path:
To start with, package rnoaa was installed and loaded for data access.
Next, we extracted the climate data, which contains a list of city locations.
We then acquired the specific information of stations. For example, we pick the station with station id USW00014895. This station is Akron Canton Airport, which is located in state OH, US.
Next we plotted the precipitation data from selected states to further perform the comparison between the eastern and western parts of US.
# Analysis
Row {data-height=770}
------------------------------------------------------------------
### Precipitation Pattern in Akron Canton Airport (Ohio area)
```{r,echo = FALSE, message = FALSE}
out <- ncdc(datasetid='GHCND', stationid='GHCND:USW00014895', datatypeid='PRCP', startdate = '2017-08-01', enddate = '2018-07-31', limit=500)
ncdc_plot(out, breaks="1 month", dateformat="%d/%m")
```
### Precipitation Pattern in NYC
```{r,echo = FALSE, message = FALSE}
out_NY <- ncdc(datasetid='GHCND', stationid='GHCND:USW00094789', datatypeid='PRCP', startdate = '2018-01-01', enddate = '2018-07-31', limit=500)
ncdc_plot(out_NY, breaks="1 month", dateformat="%d/%m")
```
### Precipitation Pattern in San Fransico
```{r,echo = FALSE, message = FALSE}
out_SAN <- ncdc(datasetid='GHCND', stationid='GHCND:USW00023234', datatypeid='PRCP', startdate = '2018-01-01', enddate = '2018-07-31', limit=500)
ncdc_plot(out_SAN, breaks="1 month", dateformat="%d/%m")
```
Row
------------------------------------------------------
### Conclusions
1. Overall, Ohio area has heavy rainfall. The rainy season happens in the beginning of the most of month. And the highest precipitation is approximate 800 in November.
2. In New york city, its the rainy season happens through Ferurbary to July. The highest precipitation is in the beginning of November. But it is a little bit less than the precipitation of Akron Canton Airport area (the first plot shows).
3. We observed that San Fransico has the lowest precipitation in overall by comparing with other two area we studied. We only can see apparent rainy season happens in November, January, March, and April.
### Exploratary Questions
1. What's best way to control for seasonality in the data?
2. Is 2018 a typical year in terms of precipitation?
3. After controlling for seasonality and region, is there any evidence of trends in the data which might indicate climate change?
