library(tidyverse)
#Rev_No_Shipping <- readRDS("Data/Results/Model_Estimates.Rds")
#Rev_No_Shipping  %>% pull(Discount) %>% unique

#Rev_No_Shipping <-  Rev_No_Shipping %>% mutate(Discount=round(Discount,5))

#Rev_No_Shipping_2018 <- readRDS("Data/Results/Model_Estimates_2018.Rds")
Rev_Shipping <- readRDS("Data/Results/Model_Estimates_With_Shipping_Costs.Rds")
#Rev_Shipping_2018 <- readRDS("Data/Results/Model_Estimates_With_Shipping_Costs_2018.Rds")

#Rev_No_Shipping_2018 <- readRDS("Data/Results/Model_Estimates_2018.Rds")
#Rev_Old_Sites <- readRDS("Data/Results/Model_Estimates_Old_Sites_Cost_Addition.Rds")




#TEST <- Rev_No_Shipping 
#TEST <- Rev_No_Shipping_2018 
TEST <- Rev_Old_Sites
TEST <- TEST %>% mutate(Discount=round(Discount,5))


TEST <- TEST %>%  mutate(Current_Profit=Profit/((1+Discount)^(Year-2026))) %>% ungroup
TEST <- TEST %>% group_by(Year,Location,Discount) %>% filter(Current_Profit==max(Current_Profit))  %>% ungroup

ggplot(TEST %>% filter(Discount %in% c(0.03,0.045,0.05,0.07,0.1)) ,aes(x=Year,y=Current_Profit/10^9,color=Capacity))+geom_line()+facet_wrap(Discount~Location,ncol=1)+scale_x_continuous(breaks=seq(1960,2083,by=5))

ggplot(TEST %>% filter(Discount%in% c(0.03,0.045)) ,aes(x=Year,y=Current_Profit/10^9,color=Capacity))+geom_line()+facet_wrap(Discount~Location,ncol=1)+scale_x_continuous(breaks=seq(1960,2083,by=5))

ggplot(TEST %>% filter(Discount %in% c(0.03,0.05,0.07) ,Year>1970) ,aes(x=Year,y=Current_Profit/10^9,color=Capacity))+geom_line()+facet_wrap(Discount~Location,ncol=2)+scale_x_continuous(breaks=seq(1960,2083,by=5))

ggplot(TEST %>% filter(Discount %in% c(0.05) ,Year>1970) ,aes(x=Year,y=Profit/10^9,color=Location))+geom_line()+scale_x_continuous(breaks=seq(1960,2083,by=5))

ggplot(TEST %>% filter(Discount %in% c(0.03,0.045,0.05,0.07,0.15),Year>1970,Year<2045) ,aes(x=Year,y=Marginal/10^6))+ geom_area(aes(y=ifelse(Marginal>=0,Marginal/10^6,0)),fill="lightgreen",alpha=0.6)+ geom_area(aes(y=ifelse(Marginal<0,Marginal/10^6,0)),fill="firebrick2",alpha=0.5) +facet_wrap(Discount~Location,ncol=2,scales = "free_y")+scale_x_continuous(breaks=seq(1960,2083,by=5))+scale_y_continuous(breaks=seq(-300,300,by=50))+geom_hline(yintercept=0)+theme_bw()+ylab("Profit Change (Million Dollars)")