diff --git a/Data_Analysis.r b/Data_Analysis.r
index 6e8613a..74a5c13 100644
--- a/Data_Analysis.r
+++ b/Data_Analysis.r
@@ -66,7 +66,7 @@ write_csv(STATE_SUMMARY,"./Results/State_Summary.csv")
 
 
 
-#Write all tables for publiation
+###################Write all tables for publication
 kable(STATE_SUMMARY, format = "html", caption = "Economic Impact by Project Period",digits = 1, format.args = list(big.mark = ","))  %>%
   kable_styling(bootstrap_options = c("striped")) %>%
   column_spec(1:2, bold = TRUE, color = "Black")
@@ -141,7 +141,7 @@ EMP_TYPE <- ggplot(aes(x=YEAR,y=EMP,group=IMPACT_TYPE,fill=IMPACT_TYPE),data=EVE
               labs(fill='Impact Type')+
               scale_x_continuous(breaks=2025:2031)+
               theme(legend.position = "top")+
-              theme(text=element_text(size=20))
+              theme(text=element_text(size=20))+scale_fill_brewer(palette = "Pastel1")
 
 VA_TYPE <- ggplot(aes(x=YEAR,y=VA/10^6,group=IMPACT_TYPE,fill=IMPACT_TYPE),data=EVENT_DATA)+geom_bar(stat = "identity")+
               ylab("Value Added (Million USD)")  + 
@@ -191,4 +191,7 @@ FACET_PLOT_TYPE <- ggplot(aes(x=YEAR,y=RES/10^6,fill=IMPACT_TYPE,group=IMPACT_TY
   theme(text=element_text(size=20))+scale_fill_brewer(palette = "Pastel1")
 FACET_PLOT_TYPE
 FACET_PLOT_EVENT
-EMP_EVENT
\ No newline at end of file
+EMP_EVENT
+EMP_TYPE
+
+EMP_
\ No newline at end of file