diff --git a/Bitcoin/Bitcoin_and_Oil.tex b/Bitcoin/Bitcoin_and_Oil.tex index 9380aee..c64e559 100644 --- a/Bitcoin/Bitcoin_and_Oil.tex +++ b/Bitcoin/Bitcoin_and_Oil.tex @@ -4,6 +4,7 @@ \documentclass[aspectratio=169,xcolor=dvipsnames]{beamer} \usetheme{SimpleDarkBlue} \usepackage{hyperref} \usepackage{graphicx} % Allows including images \usepackage{framed} +\usepackage{adjustbox} \usepackage{bm} \usepackage{amssymb} \usepackage{booktabs} % Allows the use of \toprule, \midrule and \bottomrule in tables diff --git a/Bitcoin/R-code/Flaring.csv b/Bitcoin/R-code/Flaring.csv new file mode 100644 index 0000000..3f9545c --- /dev/null +++ b/Bitcoin/R-code/Flaring.csv @@ -0,0 +1,11 @@ +State,Flaring +Alaska,55219 +California,1506 +Colorado,22787 +Louisiana,37907 +Montana,29822 +New_Mexico,200339 +North_Dakota,924350 +Texas,1242937 +Utah,2078 +Wyoming,148226 diff --git a/Bitcoin/R-code/NG_PROD_SUM_A_EPG0_VGV_MMCF_A.xls b/Bitcoin/R-code/NG_PROD_SUM_A_EPG0_VGV_MMCF_A.xls new file mode 100644 index 0000000..9403b27 Binary files /dev/null and b/Bitcoin/R-code/NG_PROD_SUM_A_EPG0_VGV_MMCF_A.xls differ diff --git a/Bitcoin/R-code/R-flarefig.r b/Bitcoin/R-code/R-flarefig.r new file mode 100644 index 0000000..33deda5 --- /dev/null +++ b/Bitcoin/R-code/R-flarefig.r @@ -0,0 +1,15 @@ +library(tidyverse) +library(readxl) +library(lubridate) +df <- read_excel("NG_PROD_SUM_A_EPG0_VGV_MMCF_A.xls",sheet=2,col_names=T,skip=2) +colnames(df) <-c("Date","National","Alaska","Alaska_onshore","Alaska_State","Arkansas","California","Calif_onshore","California_State","Federal_Offshore_Calif","Colorado","Offshore_Gulf_of_Mexico","Kansas","Louisiana","Louisiana_onshore","Louisiana_State","Montana","New_Mexico","North_Dakota","Ohio","Oklahoma","Pennsylvania","Texas","Texas_onshore","Texas_State_Offshore","Utah","West_Virginia","Wyoming") +df$Year <- year(df$Date) +df <- df %>% filter(Year>2013) %>% summarize(Alaska=sum(Alaska,na.rm=TRUE),Arkansas=sum(Arkansas,na.rm=TRUE),California=sum(California,na.rm=TRUE),Colorado=sum(Colorado,na.rm=TRUE),Kansas=sum(Kansas,na.rm=TRUE),Louisiana=sum(Louisiana,na.rm=TRUE),Montana=sum(Montana,na.rm=TRUE),New_Mexico=sum(New_Mexico,na.rm=TRUE),North_Dakota=sum(North_Dakota,na.rm=TRUE),Ohio=sum(Ohio,na.rm=TRUE),Oklahoma=sum(Oklahoma,na.rm=TRUE),Pennsylvania=sum(Pennsylvania,na.rm=TRUE),Texas=sum(Texas,na.rm=TRUE),Utah=sum(Utah,na.rm=TRUE),West_Virginia=sum(West_Virginia,na.rm=TRUE),Wyoming=sum(Wyoming,na.rm=TRUE)) +temp1 <- colnames(df) +temp2 <- df %>% as.data.frame %>% t %>% c +graph_dat <- cbind(temp1,temp2) +colnames(graph_dat) <- c("State","Flaring") +graph_dat <- graph_dat %>% as_tibble %>% mutate(Flaring=as.numeric(Flaring)) %>% filter(Flaring>0) +#ggplot(data=graph_dat,aes(x="",y=Flaring,fill=State)) + geom_bar(stat="identity",width=1)+coord_polar("y",start=0) +ggplot(data=graph_dat,aes(x="",y=Flaring,fill=State))+geom_col(color="black") +coord_polar(theta="y") + diff --git a/Bitcoin/R-code/flared.jpeg b/Bitcoin/R-code/flared.jpeg new file mode 100644 index 0000000..312c6bc Binary files /dev/null and b/Bitcoin/R-code/flared.jpeg differ diff --git a/Bitcoin/R-code/temp.r b/Bitcoin/R-code/temp.r new file mode 100644 index 0000000..6d0add1 --- /dev/null +++ b/Bitcoin/R-code/temp.r @@ -0,0 +1,32 @@ +library(tidyverse) +library(readxl) +library(ggthemes) +library(lubridate) +#devtools::install_github("Mikata-Project/ggthemr") +#library(ggthemr) +df <- read_excel("NG_PROD_SUM_A_EPG0_VGV_MMCF_A.xls",sheet=2,col_names=T,skip=2) +colnames(df) <-c("Date","National","Alaska","Alaska_onshore","Alaska_State","Arkansas","California","Calif_onshore","California_State","Federal_Offshore_Calif","Colorado","Offshore_Gulf_of_Mexico","Kansas","Louisiana","Louisiana_onshore","Louisiana_State","Montana","New_Mexico","North_Dakota","Ohio","Oklahoma","Pennsylvania","Texas","Texas_onshore","Texas_State_Offshore","Utah","West_Virginia","Wyoming") +df$Year <- year(df$Date) +Alaska <- df %>% mutate(State="Alaska",volume=Alaska/National) %>% select(Year,State,volume) +Arkansas <- df %>% mutate(State="Arkansas",volume=Arkansas/National) %>% select(Year,State,volume) +California <- df %>% mutate(State="California",volume=California/National) %>% select(Year,State,volume) +Colorado <- df %>% mutate(State="Colorado",volume=Colorado/National) %>% select(Year,State,volume) +Kansas <- df %>% mutate(State="Kansas",volume=Kansas/National) %>% select(Year,State,volume) +Louisiana <- df %>% mutate(State="Louisiana",volume=Louisiana/National) %>% select(Year,State,volume) +Montana <- df %>% mutate(State="Montana",volume=Montana/National) %>% select(Year,State,volume) +New_Mexico <- df %>% mutate(State="New Mexico",volume=New_Mexico/National) %>% select(Year,State,volume) +North_Dakota <- df %>% mutate(State="North Dakota",volume=North_Dakota/National) %>% select(Year,State,volume) +Ohio <- df %>% mutate(State="Ohio",volume=Ohio/National) %>% select(Year,State,volume) +Oklahoma <- df %>% mutate(State="Oklahoma",volume=Oklahoma/National) %>% select(Year,State,volume) +Pennsylvania <- df %>% mutate(State="Pennsylvania",volume=Pennsylvania/National) %>% select(Year,State,volume) +Texas <- df %>% mutate(State="Texas",volume=Texas/National) %>% select(Year,State,volume) +Utah <- df %>% mutate(State="Utah",volume=Utah/National) %>% select(Year,State,volume) +West_Virginia <- df %>% mutate(State="West Virginia",volume=West_Virginia/National) %>% select(Year,State,volume) +Wyoming <- df %>% mutate(State="Wyoming",volume=Wyoming/National) %>% select(Year,State,volume) +###### +df <- rbind(Alaska,Arkansas,California,Colorado,Kansas,Louisiana,Montana,New_Mexico,North_Dakota,Ohio,Oklahoma,Pennsylvania,Texas,Utah,West_Virginia,Wyoming) %>% filter(!is.na(volume)) +Other <- df %>% group_by(Year) %>% summarize(State="Other",volume=1-sum(volume,na.rm=TRUE)) +graph_dat <- full_join(Other,df) +graph_dat$volume <- 100*graph_dat$volume +stacked <- ggplot(data=graph_dat,aes(x=Year,y=volume,fill=State)) + geom_area(postion='stacked') + scale_x_continuous(n.breaks = 10)+ylab(NULL) +ggsave(stacked,file="flared.jpeg") diff --git a/Bitcoin/Sections/Background.tex b/Bitcoin/Sections/Background.tex index b4fd460..a08411d 100644 --- a/Bitcoin/Sections/Background.tex +++ b/Bitcoin/Sections/Background.tex @@ -52,7 +52,7 @@ \end{itemize} \column{.5\textwidth} % Right column and width - %\includegraphics[width=\columnwidth,height=0.43\textheight,keepaspectratio]{./img/flaring.jpg} + \includegraphics[width=\columnwidth,height=\textheight,keepaspectratio]{./img/flared.jpeg} Filler: Include heat map of US flaring diff --git a/Bitcoin/Sections/Data.tex b/Bitcoin/Sections/Data.tex index b6fd419..4400733 100644 --- a/Bitcoin/Sections/Data.tex +++ b/Bitcoin/Sections/Data.tex @@ -1,5 +1,25 @@ %------------------------------------------------ - \begin{frame}{Data} -Stand in + \begin{enumerate} + \item{Enverus} + \begin{itemize} + \item{US Well Data} + \item{Gas hookup Company} + \item{SPUD date} + \end{itemize} + \item{Energy Information Administrations} + \begin{itemize} + \item{Population weighted coooling degree days (CDD)} + \item{Population weighted heating degree days (HDD)} + \item{Storage Levels} + \item{Price data} + \end{itemize} + \item{National Oceanic and Atmospheric Administration} + \begin{itemize} + \item{Disaster Events} + \end{itemize} + + + + \end{enumerate} \end{frame} diff --git a/Bitcoin/Sections/Results.tex b/Bitcoin/Sections/Results.tex index fc5bb56..97fe6ff 100644 --- a/Bitcoin/Sections/Results.tex +++ b/Bitcoin/Sections/Results.tex @@ -1,5 +1,19 @@ %------------------------------------------------ \begin{frame}{Results} -Stand in + \tiny + \begin{columns}[c] % The "c" option specifies centered vertical alignment while the "t" option is used for top vertical alignment + + \column{.5\textwidth} + \input{tables/reg.tex}\footnote{Year/Month fixed effects omited}\footnote{All reported values are logged}\footnote{Single stage preliminary results do not cite} + \column{.45\textwidth} % Left column and width + \textbf{Heading} + \begin{enumerate} + \item Statement + \item Explanation + \item Example + \end{enumerate} + + +\end{columns} \end{frame} diff --git a/Bitcoin/img/flared.jpeg b/Bitcoin/img/flared.jpeg new file mode 100644 index 0000000..312c6bc Binary files /dev/null and b/Bitcoin/img/flared.jpeg differ diff --git a/Bitcoin/tables/reg.tex b/Bitcoin/tables/reg.tex new file mode 100644 index 0000000..68b3c09 --- /dev/null +++ b/Bitcoin/tables/reg.tex @@ -0,0 +1,33 @@ + +% Table created by stargazer v.5.2.3 by Marek Hlavac, Social Policy Institute. E-mail: marek.hlavac at gmail.com +% Date and time: Mon, Oct 31, 2022 - 04:40:50 PM +\begin{table}[!htbp] \centering + \caption{US Elasticity of Oil Supply} + \label{} +\begin{tabular}{@{\extracolsep{1pt}}lc} +\\[-1.8ex]\hline +\hline \\[-1.8ex] + & \multicolumn{1}{c}{\textit{Dependent variable:}} \\ +\cline{2-2} +\\[-1.8ex] & Net Present Oil at 5\% (log) \\ +\hline \\[-1.8ex] + Lag of Net Present Oil& 0.198$^{***}$ \\ + & (0.060) \\ + WTI Price & 0.143$^{**}$ \\ + & (0.071) \\ + Henry Hub Price & 0.151$^{***}$ \\ + & (0.054) \\ + Constant & 14.862$^{***}$ \\ + & (1.145) \\ + & \\ +\hline \\[-1.8ex] +Observations & 295 \\ +R$^{2}$ & 0.804 \\ +Adjusted R$^{2}$ & 0.774 \\ +Residual Std. Error & 0.173 (df = 255) \\ +F Statistic & 26.828$^{***}$ (df = 39; 255) \\ +\hline +\hline \\[-1.8ex] +\textit{} & \multicolumn{1}{r}{$^{*}$p$<$0.1; $^{**}$p$<$0.05; $^{***}$p$<$0.01} \\ +\end{tabular} +\end{table}