---
title: "Prof. Alan Hitch ANLY 512 LAB2 Climatic Data"
author: "Trinadh Siva Nanupathruni_227319"
output: 
  flexdashboard::flex_dashboard:
    storyboard: true
    social: menu
    source: embed
    orientation: columns
    vertical_layout: fill
---

```{r setup, include=FALSE}
setwd("C:/Users/trina/Documents")


knitr::opts_chunk$set(echo = FALSE)

library(flexdashboard)
library(knitr)
library(ggplot2)
library(dplyr)
library(plotly)

```

###Climate Change & Global Warming.

![ClimateChange](globalwarming.jpg)

***
Climate change is an increasingly growing concern in today's world. Global warming without doubt is a topic of discussion. We are able to see the several impacts of Climate change happening across the United States- and across the globe.  Things that we value the most like Water, Agriculture, Transportation, and human health are all being impacted.  Ecosystems are affected, and Changes are also occurring in the ocean. Sixteen of the seventeen warmest years on record have occurred since 2000


In this Lab 2 report of mine, I intended in studying the issues of incresing temperatures and their effects on every human kind that is happening Globally and predominantly in the United States of America.


Our data is collected from the below mentioned URL.


Source : http://www.noaa.gov/resource-collections/climate-change-impacts.



```{r,echo = FALSE, message = FALSE}

climatedata <- read.csv("C:/Users/trina/Documents/records.csv")


```



### Maximum Temperature



```{r,echo = FALSE, message = FALSE}

#Statewise highest temperatures

MaxTemp <- subset(climatedata, climatedata$Element == "All-Time Maximum Temperature")


MaxTempFinal <- MaxTemp [!duplicated(MaxTemp[c(1,4)]),]


Max_temp_g = ggplot(MaxTempFinal, aes(x = State, y = Value)) + 
  geom_bar(aes(fill=State),stat="identity",width = 0.9, 
           position = position_dodge()) + theme_minimal() + 
  xlab("State") + ylab("Temperature (degrees F)") +
  theme(axis.text.x=element_blank(),
      axis.ticks.x=element_blank(),
      plot.background = element_blank()) + 
  ggtitle("Statewise Maximum Temperatures recorded")
ggplotly(Max_temp_g)

```

***
The dataset is extracted from  Extreme Temperature Records by state on NOAA website.

Source : https://www.climate.gov/maps-data/dataset/extreme-weather-records-state-data-table

As it can be seen in the bar chart, among the states of USA, California is seen to be having the maximum temperature records and the next closest is Arizona, follwed by Nevada.

The highest temperature over time is seen to be 134 degrees F in California, around 128 degrees F in Arizona and close to 124 degrees F in Nevada.



### Minimum Temperature


```{r, echo = FALSE, message = FALSE}

#Statewise lowest temperatures

MinTemp <- subset(climatedata, climatedata$Element == "All-Time Minimum Temperature")


MinTempFinal <- MinTemp [!duplicated(MinTemp[c(1,4)]),]


Min_temp_g = ggplot(MinTempFinal, aes(x = State, y = Value)) + 
  geom_bar(aes(fill=State),stat="identity",width = 0.9, 
           position = position_dodge()) + theme_minimal() + 
  xlab("State") + ylab("Temperature (degrees F)") +
  theme(axis.text.x=element_blank(),
      axis.ticks.x=element_blank(),
      plot.background = element_blank()) + 
  ggtitle("Statewise Minimum Temperatures recorded")
ggplotly(Min_temp_g)


```


***

 We observed the Extreme Minimum temperatures of all states within USA. It can be seen that coldest temperature of -80 Degree F at Alaska , whereas Montana is seen to have a lowest temperature record of -70 degree F, closely follwed by Wyoming and Idaho with -66 degrees and -60 degrees respecively.
 
 Interestingly the Puerto rico and Virgin islands have positive temperatures across all the states and islands of USA with 40 degrees and 51 degrees F as their least or minimum temperture recordings.

###Global Temperature Anomalies 

```{r}
globaldata<-read.csv("globalanomalies.csv")

#graph

library(plotly)
library(ggplot2)

global = ggplot(globaldata, aes(x = Year, y = Value)) + 
  geom_line(color='steelblue') + 
  xlab("Year") + ylab("Value") +
  theme(axis.text.x=element_blank(),
      axis.ticks.x=element_blank(),
      plot.background = element_blank()) + 
  ggtitle("Global Temperature Anomalies")
ggplotly(global)

```


***
One of the most obvious indications of climate change is increase of global increase in temperature for the past several year over several decades. 
 
We also chose to study the Global Temperature Anomalies data obtained from Climate.gov website which created this dataset by blending the land and ocean data. We utilized this data to understand the trend of temperature anomalies over time. 

Source : https://www.climate.gov/maps-data/dataset/global-temperature-anomalies-graphing-tool 

As it can be clearly seen, the graph shows a progression of increasing temperature anomalies especially in the 20th century which also acts as a proof that Climate change is Real with a huge rise in temperatures in  most of  the years. It is happening right now. It is the most urgent threat facing our entire species, and we need to work collectively together and stop procrastinating. We need to give the support in any possible we can in reducing the Global warming for all of humanity, for the indigenous people of the world who would be most affected by this.  Let us not take this planet for granted.