Added IAEA figures

REMI.tex

@@ -78,76 +78,53 @@
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 \section{Introduction}
 \begin{frame}{Introduction}
-  Welcome to the presentation!
+What are Data Centers?
   \begin{enumerate}
 	  \item one
 	  \item two
   \end{enumerate}
-
+\begin{columns}
-  \begin{itemize}
+	\begin{column}{0.2\textwidth}
-	  \item one
+		\includegraphics[width=\textwidth]{Small data center.jpg}
-	  \item two
+	\end{column}
-  \end{itemize}
+	\begin{column}{0.81\textwidth}
+		\includegraphics[width=\textwidth]{Utah_Data_Center_Panorama_(cropped).jpg}
+	\end{column}
+\end{columns}
 
 \end{frame}
 %%%%%%%%%%%%%%%%%%%%%%%%%%
 \section{Background}
-\begin{frame}{What are Data Centers?}
+\begin{frame}{Data Centers}
+A data center is any facility that houses and runs computer infrastructure. 
 \begin{columns}
 	\begin{column}{0.5\textwidth}
   \begin{enumerate}
 	  \item Large Language Models 
-	  \item Proff of work crypto currency mining
+	  \item Proof of work mining
 	  \item Cloud storage
 	  \item Hosting services
 	  \item Virtual private networks
   \end{enumerate}
 \end{column}
 \begin{column}{0.5\textwidth}
-  \begin{itemize}
+	\includegraphics[width=\textwidth]{Data-centre}
-	  \item one
-	  \item two
-  \end{itemize}
 \end{column}
 \end{columns}
 
 \end{frame}
 %%%%%%%%%%%%%%%%%
 \begin{frame}[plain]{Projected Energy Use}
+	\centering
 	\only<1>{\includegraphics[width=\textwidth]{Plot.png}}
 	\only<2>{\includegraphics[width=\textwidth]{Total.png}}
+	\only<3>{\includegraphics[width=0.8\textwidth]{data-centre-electricity-consumption-by-region-base-case-2020-2030.png}}
+	\only<4>{\includegraphics[width=0.8\textwidth]{global-data-centre-electricity-consumption-by-sensitivity-case-2020-2035.png}}
+
+
 
 \end{frame}
 
-
 %%%%%%%%%%%%%%%%%
-\begin{frame}[plain]{Nuclear Fuel Cycle Overview}
-\begin{center}
-\resizebox{\textwidth}{!}{
-\begin{tikzpicture}[
-  node distance=2cm and 2cm,
-  box/.style={rectangle, draw, minimum width=5cm, minimum height=2cm, align=center},
-  dual/.style={rectangle split, rectangle split parts=2, draw, minimum width=5cm, minimum height=2cm, align=center},
-  arrow/.style={-{Latex}, thick}
-]
-
-% Nodes with overlays
-\onslide<1->{\node[box,fill={yellow!20}] (mining) {Uranium Mining};}
-\onslide<2->{\node[box,fill={yellow!20}, right=of mining] (enrichment) {Uranium Enrichment};}
-\onslide<3->{\node[dual,text width=2cm, right=of enrichment, rectangle split part fill={blue!20, red!20}] (output)
-  {Electricity Production\nodepart{second}Heat Applications};}
-\onslide<4->{\node[box, below=of output,fill={teal!20}] (manufacturing) {Component Manufacturing};}
-\onslide<5->{\node[box, right=of output,fill={gray!20}] (waste) {Spent Nuclear Fuel};}
-
-% Arrows with overlays
-\onslide<2->{\draw[arrow] (mining) -- (enrichment);}
-\onslide<3->{\draw[arrow] (enrichment) -- (output);}
-\onslide<4->{\draw[arrow] (manufacturing) -- (output);}
-\onslide<5->{\draw[arrow] (output) -- (waste);}
-
-\end{tikzpicture}
-}
-\end{center}
-\end{frame}
 
 \end{document}

R_Work/make_figures.r

@@ -4,24 +4,22 @@ library(scales)
 library(paletteer)
 
 CONSUMPTION <- read_csv('EIA_Commerical_Sector_Data.csv',skip=4) %>% clean_names()
-CONSUMPTION[,c(2:14)] <- 33.43* CONSUMPTION[,c(2:14)]
+CONSUMPTION[,c(2:14)] <- 293.07* CONSUMPTION[,c(2:14)]
 colnames(CONSUMPTION) <- gsub("_quads","",colnames(CONSUMPTION))
-CONSUMPTION <- CONSUMPTION %>% pivot_longer(-year,values_to='GW',names_to="Use")
+CONSUMPTION <- CONSUMPTION %>% pivot_longer(-year,values_to='TWh',names_to="Use")
 TOTAL <- CONSUMPTION %>% filter(Use=='total_gross_end_use_consumption') 
 CONSUMPTION <-CONSUMPTION %>% filter(Use!='total_gross_end_use_consumption') 
 
 
 CONSUMPTION$Use <- ifelse(CONSUMPTION$Use!='data_center_servers',"Other","Data Centers")
-CONSUMPTION <- CONSUMPTION %>% group_by(year,Use) %>% summarize(GW=sum(GW)) %>% ungroup
+CONSUMPTION <- CONSUMPTION %>% group_by(year,Use) %>% summarize(TWh=sum(TWh),.groups = "drop_last") %>% ungroup
 CONSUMPTION$Use <- factor(CONSUMPTION$Use,level=c("Other","Data Centers")) 
 
-CONSUMPTION <- CONSUMPTION %>% group_by(Use) %>% mutate(Change=GW-sum(ifelse(year==2025,GW,0))) %>% ungroup
+CONSUMPTION <- CONSUMPTION %>% group_by(Use) %>% mutate(Change=TWh-sum(ifelse(year==2025,TWh,0))) %>% ungroup
-
-STACK_PLOT <- ggplot(CONSUMPTION,aes(x=year,y=Change,fill=Use)) +geom_area()+theme_bw()+facet_wrap(~Use)+ theme(legend.position = "top",text = element_text(size = 20))+scale_fill_manual(values=paletteer_d("PNWColors::Shuksan2"))+ylab("Change GW-year")
-
-STACK_TOTAL<- ggplot(CONSUMPTION,aes(x=year,y=GW,fill=Use)) +geom_area()+theme_bw()+ theme(legend.position = "top",text = element_text(size = 20))+scale_fill_manual(values=paletteer_d("PNWColors::Shuksan2"))+ylab("Total Consumpiotn (GW-year)")
 
+STACK_PLOT <- ggplot(CONSUMPTION,aes(x=year,y=Change,fill=Use)) +geom_area()+theme_bw()+facet_wrap(~Use)+ theme(legend.position = "top",text = element_text(size = 20))+scale_fill_manual(values=paletteer_d("PNWColors::Shuksan2"))+scale_y_continuous(breaks=seq(-600,600,by=50))+ylab("Change TW hours")
 
+STACK_TOTAL<- ggplot(CONSUMPTION,aes(x=year,y=TWh,fill=Use)) +geom_area()+theme_bw()+ theme(legend.position = "top",text = element_text(size = 20))+scale_fill_manual(values=paletteer_d("PNWColors::Shuksan2"))+scale_y_continuous(breaks=seq(0,6000,by=500))+ylab("Total Consumpiotn (TW hours)")
 
 ggsave("../Plot.png",STACK_PLOT,width=12,height=8,units="in",dpi=600)
 ggsave("../Total.png",STACK_TOTAL,width=12,height=8,units="in",dpi=600)