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

Update some figures

Browse Source
This commit is contained in:
Alex 2025-06-09 17:52:53 -06:00
parent 88fb67f433
commit 683e3f5883
1 changed files with 64 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

66
Data_Analysis.r
View File

@ -34,9 +34,66 @@ OTHERS[,1] <-"Other Industries"
OTHERS[,-1] <- t(colSums(EMP_OUTPUTS_CONSTRUCTION[-1-20,-1] )) OTHERS[,-1] <- t(colSums(EMP_OUTPUTS_CONSTRUCTION[-1-20,-1] ))
EMP_OUTPUTS_CONSTRUCTION <-rbind(TOP_20,OTHERS) EMP_OUTPUTS_CONSTRUCTION <-rbind(TOP_20,OTHERS)
EMP_OUTPUTS_CONSTRUCTION[,-1] <- round(EMP_OUTPUTS_CONSTRUCTION[,-1]) EMP_OUTPUTS_CONSTRUCTION[,-1] <- round(EMP_OUTPUTS_CONSTRUCTION[,-1])
write_csv(EMP_OUTPUTS_CONSTRUCTION,"./Results/Top_20_Employmnet_During_Development_(2029).csv") write_csv(EMP_OUTPUTS_CONSTRUCTION,"./Results/Top_20_Employmnet_During_Development.csv")
VA_OUTPUTS_Induced_CONSTRUCTION <- DETAILED_DATA %>% filter(YEAR<=2029,IMPACT_TYPE=="Induced") %>% rename(Industry=IND_DESC) %>% group_by(Industry) %>% summarize('Employment'=sum(EMP),'Income'=sum(EMP_COMP+PROP_INC),'Other Profits'=sum(OPI),'Value Added'=sum(EMP_COMP+PROP_INC+TOPI+OPI),'Economic Output'=sum(OUTPUT)) %>% arrange(desc(`Value Added`))
TOP_20 <- VA_OUTPUTS_Induced_CONSTRUCTION[1:5,]
OTHERS <- VA_OUTPUTS_Induced_CONSTRUCTION[1,]
OTHERS[,1] <-"Other Industries"
OTHERS[,-1] <- t(colSums(VA_OUTPUTS_Induced_CONSTRUCTION[-1-5,-1] ))
VA_OUTPUTS_Induced_CONSTRUCTION <-rbind(TOP_20,OTHERS)
VA_OUTPUTS_Induced_CONSTRUCTION[,-1] <- round(VA_OUTPUTS_Induced_CONSTRUCTION[,-1])
write_csv(VA_OUTPUTS_Induced_CONSTRUCTION,"./Results/Top_5_VA_Induced_Development.csv")
VA_OUTPUTS_Indirect_CONSTRUCTION <- DETAILED_DATA %>% filter(YEAR<=2029,IMPACT_TYPE=="Indirect") %>% rename(Industry=IND_DESC) %>% group_by(Industry) %>% summarize('Employment'=sum(EMP),'Income'=sum(EMP_COMP+PROP_INC),'Other Profits'=sum(OPI),'Value Added'=sum(EMP_COMP+PROP_INC+TOPI+OPI),'Economic Output'=sum(OUTPUT)) %>% arrange(desc(`Value Added`))
TOP_20 <- VA_OUTPUTS_Indirect_CONSTRUCTION[1:5,]
OTHERS <- VA_OUTPUTS_Indirect_CONSTRUCTION[1,]
OTHERS[,1] <-"Other Industries"
OTHERS[,-1] <- t(colSums(VA_OUTPUTS_Indirect_CONSTRUCTION[-1-5,-1] ))
VA_OUTPUTS_Indirect_CONSTRUCTION <-rbind(TOP_20,OTHERS)
VA_OUTPUTS_Indirect_CONSTRUCTION[,-1] <- round(VA_OUTPUTS_Indirect_CONSTRUCTION[,-1])
write_csv(VA_OUTPUTS_Indirect_CONSTRUCTION,"./Results/Top_5_VA_Indirect_Development.csv")
VA_OUTPUTS_Direct_CONSTRUCTION <- DETAILED_DATA %>% filter(YEAR<=2029,IMPACT_TYPE=="Direct") %>% rename(Industry=IND_DESC) %>% group_by(Industry) %>% summarize('Employment'=sum(EMP),'Income'=sum(EMP_COMP+PROP_INC),'Other Profits'=sum(OPI),'Value Added'=sum(EMP_COMP+PROP_INC+TOPI+OPI),'Economic Output'=sum(OUTPUT)) %>% arrange(desc(`Value Added`))
TOP_20 <- VA_OUTPUTS_Direct_CONSTRUCTION[1:5,]
OTHERS <- VA_OUTPUTS_Direct_CONSTRUCTION[1,]
OTHERS[,1] <-"Other Industries"
OTHERS[,-1] <- t(colSums(VA_OUTPUTS_Direct_CONSTRUCTION[-1-5,-1] ))
VA_OUTPUTS_Direct_CONSTRUCTION <-rbind(TOP_20,OTHERS)
VA_OUTPUTS_Direct_CONSTRUCTION[,-1] <- round(VA_OUTPUTS_Direct_CONSTRUCTION[,-1])
write_csv(VA_OUTPUTS_Direct_CONSTRUCTION,"./Results/Top_5_VA_Development.csv")
write_csv(cbind(VA_OUTPUTS_Direct_CONSTRUCTION,VA_OUTPUTS_Indirect_CONSTRUCTION,VA_OUTPUTS_Induced_CONSTRUCTION),"./Results/Top5_Construction.csv")
VA_OUTPUTS_Induced_OP <- DETAILED_DATA %>% filter(YEAR==2029,IMPACT_TYPE=="Induced") %>% rename(Industry=IND_DESC) %>% group_by(Industry) %>% summarize('Employment'=sum(EMP),'Income'=sum(EMP_COMP+PROP_INC),'Other Profits'=sum(OPI),'Value Added'=sum(EMP_COMP+PROP_INC+TOPI+OPI),'Economic Output'=sum(OUTPUT)) %>% arrange(desc(`Value Added`))
TOP_20 <- VA_OUTPUTS_Induced_OP[1:5,]
OTHERS <- VA_OUTPUTS_Induced_OP[1,]
OTHERS[,1] <-"Other Industries"
OTHERS[,-1] <- t(colSums(VA_OUTPUTS_Induced_OP[-1-5,-1] ))
VA_OUTPUTS_Induced_OP <-rbind(TOP_20,OTHERS)
VA_OUTPUTS_Induced_OP[,-1] <- round(VA_OUTPUTS_Induced_OP[,-1])
write_csv(VA_OUTPUTS_Induced_OP,"./Results/Top_5_VA_Induced_Op.csv")
VA_OUTPUTS_Indirect_OP <- DETAILED_DATA %>% filter(YEAR==2029,IMPACT_TYPE=="Indirect") %>% rename(Industry=IND_DESC) %>% group_by(Industry) %>% summarize('Employment'=sum(EMP),'Income'=sum(EMP_COMP+PROP_INC),'Other Profits'=sum(OPI),'Value Added'=sum(EMP_COMP+PROP_INC+TOPI+OPI),'Economic Output'=sum(OUTPUT)) %>% arrange(desc(`Value Added`))
TOP_20 <- VA_OUTPUTS_Indirect_OP[1:5,]
OTHERS <- VA_OUTPUTS_Indirect_OP[1,]
OTHERS[,1] <-"Other Industries"
OTHERS[,-1] <- t(colSums(VA_OUTPUTS_Indirect_OP[-1-5,-1] ))
VA_OUTPUTS_Indirect_OP <-rbind(TOP_20,OTHERS)
VA_OUTPUTS_Indirect_OP[,-1] <- round(VA_OUTPUTS_Indirect_OP[,-1])
write_csv(VA_OUTPUTS_Indirect_OP,"./Results/Top_5_VA_Indirect_OP.csv")
VA_OUTPUTS_Direct_OP <- DETAILED_DATA %>% filter(YEAR==2029,IMPACT_TYPE=="Direct") %>% rename(Industry=IND_DESC) %>% group_by(Industry) %>% summarize('Employment'=sum(EMP),'Income'=sum(EMP_COMP+PROP_INC),'Other Profits'=sum(OPI),'Value Added'=sum(EMP_COMP+PROP_INC+TOPI+OPI),'Economic Output'=sum(OUTPUT)) %>% arrange(desc(`Value Added`))
TOP_20 <- VA_OUTPUTS_Direct_OP[1:5,]
OTHERS <- VA_OUTPUTS_Direct_OP[1,]
OTHERS[,1] <-"Other Industries"
OTHERS[,-1] <- t(colSums(VA_OUTPUTS_Direct_OP[-1-5,-1] ))
VA_OUTPUTS_Direct_OP <-rbind(TOP_20,OTHERS)
VA_OUTPUTS_Direct_OP[,-1] <- round(VA_OUTPUTS_Direct_OP[,-1])
write_csv(VA_OUTPUTS_Direct_OP,"./Results/Top_5_VA_Direct_OP.csv")
write_csv(cbind(VA_OUTPUTS_Direct_OP,VA_OUTPUTS_Indirect_OP,VA_OUTPUTS_Induced_OP),"./Results/Top5_Operating.csv")
COUNTY_OUTPUT_CONSTRUCTION <- EVENT_DATA %>% filter(YEAR<=2029) %>% rename(County=COUNTY) %>% group_by(County) %>% summarize('Total Economic Output'=sum(OUTPUT),'Economic Value Added'=sum(EMP_COM+PROP_INC+TOPI+OPI),Employment=sum(EMP),'County Taxes'=sum(SUBCOUNTY_TAX+SPECIAL_TAX+COUNTY_TAX),'State Taxes'=sum(STATE_TAX)) %>% arrange(desc(Employment)) COUNTY_OUTPUT_CONSTRUCTION <- EVENT_DATA %>% filter(YEAR<=2029) %>% rename(County=COUNTY) %>% group_by(County) %>% summarize('Total Economic Output'=sum(OUTPUT),'Economic Value Added'=sum(EMP_COM+PROP_INC+TOPI+OPI),Employment=sum(EMP),'County Taxes'=sum(SUBCOUNTY_TAX+SPECIAL_TAX+COUNTY_TAX),'State Taxes'=sum(STATE_TAX)) %>% arrange(desc(Employment))
COUNTY_OUTPUT_CONSTRUCTION[,-1] <- round(COUNTY_OUTPUT_CONSTRUCTION[,-1]) COUNTY_OUTPUT_CONSTRUCTION[,-1] <- round(COUNTY_OUTPUT_CONSTRUCTION[,-1])
write_csv(COUNTY_OUTPUT_CONSTRUCTION,"./Results/County_Outcomes_During_Development_(2029).csv") write_csv(COUNTY_OUTPUT_CONSTRUCTION,"./Results/County_Outcomes_During_Development_(2029).csv")
@ -194,4 +251,9 @@ FACET_PLOT_EVENT
EMP_EVENT EMP_EVENT
EMP_TYPE EMP_TYPE
EMP_ DIRECT_TAX <- EVENT_DATA %>% group_by(YEAR) %>% summarize(SUBCOUNTY_TAX=sum(SUBCOUNTY_TAX) ,SPECIAL_TAX=sum(SPECIAL_TAX),COUNTY_TAX=sum(COUNTY_TAX),STATE_TAX=sum(STATE_TAX) ,FEDERAL_TAX=sum(FEDERAL_TAX) )
DIRECT_TAX$TOTAL<- (rowSums(DIRECT_TAX[,-1]))
D <- EVENT_DATA %>% filter(IMPACT_TYPE =="Direct") %>% group_by(YEAR) %>% summarize(EMP=sum(EMP) ,EMP_COM =sum(EMP_COM ),VA=sum(VA),OUTPUT=sum(OUTPUT) )
EVENT_DATA %>% group_by(YEAR) %>% summarize(EMP=sum(EMP) ,EMP_COM =sum(EMP_COM ),VA=sum(VA),OUTPUT=sum(OUTPUT) )
DIRECT_TAX$TOTAL<- (rowSums(DIRECT_TAX[,-1]))