Created stacked graph and added slides

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

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

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")
+

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")

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
 

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}

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}

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}