DATA 607 Final Project Presentation

Zhenni Xie
May 17, 2017

Introduction

Questions: Is a climate change really a hox?
Workflow: OSEMN
Data Analytics

Indicator

Greenhouse gases from human activities are the most significant driver of observed climate change since the mid-20th century. The indicators in this presentation characterize emissions of the major greenhouse gases resulting from human activities.

Obtain and Scrub the Data

data <- read.csv(url("https://raw.githubusercontent.com/JennierJ/Final_Project/master/
Total%20greenhouse%20gas%20emissions.csv"))

nrow(data)
ncol(data)

colnames(data) <- c("Country", "1990", "2000", "2007", "2008", "2009", "2010", "2011", "2012")

Explore the Data and Data Transformation

data <- data %>%
  gather(key = "year", value = "Emission", -Country)

data <- subset(data, data$Emission != "..")
data <- subset(data, data$Emission != "")

#dim(data)
#head(data)

data$Country <- NULL
table <- summarise(group_by(data, year), mean = mean(Emission), sd = sd(Emission))
table

Model and Plot

ggplot(table, aes(year, mean, group = 1, col="red")) + 
  geom_point() + 
  geom_line() +
  labs(x = "Year", y = "Total Greenhouse Gas Emission", title = "Total Greenhouse Gas Emission vs. Year")

alt text

Interpretation

Greenhouse gases from human activities are the most significant driver of observed climate change since the mid-20th century. According to the graph, the total emission of greenhouse gas is increasing as the year.

Reference

The website address is http://databank.worldbank.org/data/reports.aspx?source=2&Topic=6#.