R Markdown

Overview Climate change and science has been an issue for discussion and debate for at least the last decade. Climate data collection is currently being collected for areas all over the world. Policy decisions are based on the most recent analysis conducted on data extracted from huge online repositories of this data. Due to the inherent growth in the electronic production and storage of information, there is often a feeling of “information overload” or inundation when facing the process of quantitative decision making. As an analyst your job will often be to explore large data sets and develop questions or ideas from visualizations of those data sets.

The ability to synthesize large data sets using visualizations is a skill that all data scientists should have. In addition to this data scientists are called upon to present data syntheses and develop questions or ideas based on their data exploration. This lab should take you through the major steps in data exploration and presentation.

Objective The objective of this laboratory is to survey the available data, plan, design, and create an information dashboard/presentation that not only explores the data but helps you develop questions based on that data exploration. To accomplish this task you will have to complete a number of steps:

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(ggplot2)
library(maps)
library(ggmap)
## ℹ Google's Terms of Service: <]8;;https://mapsplatform.google.comhttps://mapsplatform.google.com]8;;>
## ℹ Please cite ggmap if you use it! Use `citation("ggmap")` for details.
library(maptools)
## Loading required package: sp
## Checking rgeos availability: FALSE
## Please note that 'maptools' will be retired during 2023,
## plan transition at your earliest convenience;
## some functionality will be moved to 'sp'.
##      Note: when rgeos is not available, polygon geometry     computations in maptools depend on gpclib,
##      which has a restricted licence. It is disabled by default;
##      to enable gpclib, type gpclibPermit()
library(rgdal)
## Please note that rgdal will be retired during 2023,
## plan transition to sf/stars/terra functions using GDAL and PROJ
## at your earliest convenience.
## See https://r-spatial.org/r/2022/04/12/evolution.html and https://github.com/r-spatial/evolution
## rgdal: version: 1.6-4, (SVN revision 1196)
## Geospatial Data Abstraction Library extensions to R successfully loaded
## Loaded GDAL runtime: GDAL 3.5.2, released 2022/09/02
## Path to GDAL shared files: C:/Users/gdhoj/AppData/Local/R/win-library/4.2/rgdal/gdal
## GDAL binary built with GEOS: TRUE 
## Loaded PROJ runtime: Rel. 8.2.1, January 1st, 2022, [PJ_VERSION: 821]
## Path to PROJ shared files: C:/Users/gdhoj/AppData/Local/R/win-library/4.2/rgdal/proj
## PROJ CDN enabled: FALSE
## Linking to sp version:1.6-0
## To mute warnings of possible GDAL/OSR exportToProj4() degradation,
## use options("rgdal_show_exportToProj4_warnings"="none") before loading sp or rgdal.
library (RCurl)
library(tidyverse)
## ── Attaching packages
## ───────────────────────────────────────
## tidyverse 1.3.2 ──
## ✔ tibble  3.1.8     ✔ purrr   1.0.1
## ✔ tidyr   1.2.1     ✔ stringr 1.5.0
## ✔ readr   2.1.3     ✔ forcats 0.5.2
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ tidyr::complete() masks RCurl::complete()
## ✖ dplyr::filter()   masks stats::filter()
## ✖ dplyr::lag()      masks stats::lag()
## ✖ purrr::map()      masks maps::map()
library(plotly)
## 
## Attaching package: 'plotly'
## 
## The following object is masked from 'package:ggmap':
## 
##     wind
## 
## The following object is masked from 'package:ggplot2':
## 
##     last_plot
## 
## The following object is masked from 'package:stats':
## 
##     filter
## 
## The following object is masked from 'package:graphics':
## 
##     layout
library(scatterpie)
## 
## Attaching package: 'scatterpie'
## 
## The following object is masked from 'package:sp':
## 
##     recenter
library(rnoaa)
## Registered S3 method overwritten by 'hoardr':
##   method           from
##   print.cache_info httr
library(usmap)
library(mapproj)

Including Plots

You can also embed plots, for example:

The map reflects the average Anomal temperature across the states between the year of 1901 and 2000. We can see from the map that north part of the state tend tohave low average Anomal temperature compare to the south. New mexico seems to have low average Anomal temperature compare to Arizona. North Dakota has the lowest average Anomal temperature compare to all other states.

## `geom_smooth()` using formula = 'y ~ x'

The graph shows the annual national average temperature in the last century.We can see the average temperature has been steadily increased over the year of1901 and 2000.

## `geom_smooth()` using formula = 'y ~ x'

This graph is the annual residential energy demand temperature. The ResidentialEnergy Demand Temperature Index (REDTI) is based on population weighted* heatingand cooling degree days. As we can see, the energy demand temperature has beenincreased over the 100 years. The result is consistent with our findings inAnalysis 2, since the energy demand for residential heating and cooling isincreaed due to temperature change.

``` Questions developed

  1. What is the trend in temperature across the state? North part of the state tend to have low average Anomal temperature compare tothe south in the last century.

  2. Is there a trend in temperature in the last century? The energy demand for residential heating and cooling is increaed due to theabnormal temperature change. The average temperature has been steadily increasedover the year of 1901 and 2000.The annual lower tropospheric global temperatureanomalies have been increaed over the years, and Northern Hemisphere sea icecover otherwise.

  3. What is the the role of human activity in global warming?Human plays an important part in climate change, combustion of fossil fuels anddeforestation are the main causes to release CO2 in the atmosphere.

  4. What can we do to prevent glbal warming?Reduce the use of fossil fuels, today we have alternate methods to replace theuse of fossil fuels. Individuals may reduce the use of non recyclable material.