R/Source_Files.R

In MollieCarroll/NonCO2-Figs: What the Package Does (One Line, Title Case)

#breaking down data annex by source 
library(readxl)
library(dplyr)
library(ggplot2)
library(ggmap)
library(sf)
library(ggspatial)
library(rnaturalearth)
library(maps)
library(rnaturalearthdata)
register_google(key = "AIzaSyCkZ9wMNBxWP_I21LI1X1Xqk4SCy-5Zbl0")

path<- getwd()
data_annex_sep2019<- read_excel(paste(path,"/data-raw/proj-data-annex_Sept2019.xlsx",sep = ""))

output_path <- paste(path,"/Output")

Coal<- filter(data_annex_sep2019, source == "Coal") 
AgSoils <- filter(data_annex_sep2019, source == "Agsoils") 
Livestock <- filter(data_annex_sep2019, source == "Livestock") 
Rice <- filter(data_annex_sep2019, source == "Rice")
CombustionFF <- filter(data_annex_sep2019, source == "Combustion")
NGO <- filter(data_annex_sep2019, source== "NGO")
Metals <-  filter(data_annex_sep2019, source=="Metals")
EPS <-  filter(data_annex_sep2019, source== "EPS")
Electronics <-  filter(data_annex_sep2019, source== "Electronics")
HCFC22 <-  filter(data_annex_sep2019, source== "HCFC22")
NitricAdipic <- filter(data_annex_sep2019, source=="NitricAdipic")
ODSSubs <-  filter(data_annex_sep2019, source== "ODSSubs")
Electronics <- filter(data_annex_sep2019, source=="Electronics")
Landfills <-  filter(data_annex_sep2019, source=="Landfills")
Wastewater<- filter(data_annex_sep2019, source=="Wastewater")

#Setting MAC Data Source Categorizations

MAC_data <- read_excel(paste(path,"/data-raw/NonCO2-MACs-RawResults.xlsx",  sep = ""), sheet =2 )%>%
  mutate(cost =(p/q))%>%
  mutate(Feasibility = ifelse(cost < 0 , "No Cost",
         ifelse(cost > 20  , "Residual Emissions", 
                ifelse(cost > 0 & cost <20 , "Technically Feasible", NA))))
                
Coal_MAC <- filter(MAC_data, source == "COL")
AgSoils_MAC <- filter(MAC_data, source == "CROP")
Livestock_MAC <- filter(MAC_data, source== "LIVE")
Rice_MAC <- filter(MAC_data, source == "RICE")
NGO_MAC <- filter(MAC_data, source == "GAS")
EPS_MAC <- filter(MAC_data, source== "EPS")
HCFC22_MAC <- filter(MAC_data, source == "HCFC")
NitricAdipic_MAC <- filter(MAC_data, source == "NAA")
Landfills_MAC <- filter(MAC_data, source == "LAN")
Wastewater_MAC <- filter(MAC_data, source == "WWR)
Metals_MAC <- filter(MAC_data, source %in% c("MG", "AL")) %>%
  group_by(source)
ODSSubs_MAC <- filter(MAC_data, source %in% c("AERO", "FIRE", "SOLV", "FOAM", "RAC")) %>%
  group_by(source)
Electronics_MAC <- filter(MAC_data, source %in% c("SEMI", "PV")) %>%
  group_by(source)
  
no_cost <-filter(MAC_data, cost < 0)
tech_feasible <- filter(MAC_data, cost < 20, cost > 0)
residual_emissions <- filter(MAC_data, cost > 20)