alex/Cowboy_Clean_Fuels
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Missed an update on last save

Browse Source
This commit is contained in:
Alex 2025-06-06 17:57:02 -06:00
parent edeae2a7c2
commit 88fb67f433
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Data_Analysis.r
View File

@ -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(STATE_SUMMARY, format = "html", caption = "Economic Impact by Project Period",digits = 1, format.args = list(big.mark = ",")) %>%
kable_styling(bootstrap_options = c("striped")) %>% kable_styling(bootstrap_options = c("striped")) %>%
column_spec(1:2, bold = TRUE, color = "Black") 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')+ labs(fill='Impact Type')+
scale_x_continuous(breaks=2025:2031)+ scale_x_continuous(breaks=2025:2031)+
theme(legend.position = "top")+ 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")+ 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)") + ylab("Value Added (Million USD)") +
@ -192,3 +192,6 @@ FACET_PLOT_TYPE <- ggplot(aes(x=YEAR,y=RES/10^6,fill=IMPACT_TYPE,group=IMPACT_TY
FACET_PLOT_TYPE FACET_PLOT_TYPE
FACET_PLOT_EVENT FACET_PLOT_EVENT
EMP_EVENT EMP_EVENT
EMP_TYPE
EMP_