Intial commit of IMPLAN summary functions, and Radiant ex.
This commit is contained in:
parent
3f1493ce9f
commit
c41f41e6a3
1
.gitignore
vendored
1
.gitignore
vendored
@ -1,5 +1,6 @@
|
||||
# ---> R
|
||||
# History files
|
||||
*.csv
|
||||
.Rhistory
|
||||
.Rapp.history
|
||||
|
||||
|
||||
52
Create_Tables.r
Normal file
52
Create_Tables.r
Normal file
@ -0,0 +1,52 @@
|
||||
library(tidyverse)
|
||||
RES_PATH <- './Results'
|
||||
dir.create(RES_PATH,showWarnings=FALSE)
|
||||
source("Scripts/Occupation_Clean.r")
|
||||
#Clean all of the saved Occupation files
|
||||
Occupation_Summary_Directory()
|
||||
SUMMARY_DIR <- "Data/Economic_Indicator_Summary"
|
||||
FILE <- list.files(SUMMARY_DIR,pattern="*.csv",full.names=TRUE)
|
||||
DATA <- read_csv("Data/Economic_Indicator_Summary/Economic Indicator Summary.csv") %>% mutate_at(6:8,parse_number)
|
||||
colnames(DATA) <- gsub(" ","_",colnames(DATA))
|
||||
DATA$Impact <- gsub("1|2|3|-| ","",DATA$Impact)
|
||||
DATA <- DATA %>% filter(!is.na(Group_Name))
|
||||
colnames(DATA )
|
||||
OVERALL <- DATA %>% group_by(Event_Name) %>% summarize(Output=sum(Output),Value_Added=sum(Value_Added) ,Employment=sum(Employment),Labor_Income=sum(Labor_Income))
|
||||
DATA <- DATA %>% select(-Group_Name,-Region)
|
||||
library(scales)
|
||||
GET_SUMMARY <- function(COL_NUM,DATA){
|
||||
DATA <- DATA[,c(1,2,COL_NUM)]
|
||||
ORIG_COL_NAME <- colnames(DATA)[3]
|
||||
colnames(DATA)[3] <- "TEMP_COL"
|
||||
RES <- DATA %>% group_by(Event_Name)%>% summarize('Direct'=percent(sum(ifelse(Impact=='Direct',TEMP_COL,0))/sum(TEMP_COL)),'Indirect'=percent(sum(ifelse(Impact=='Indirect',TEMP_COL,0))/sum(TEMP_COL)),'Induced'=percent(sum(ifelse(Impact=='Induced',TEMP_COL,0))/sum(TEMP_COL)))
|
||||
RES$Type <- ORIG_COL_NAME
|
||||
RES <- RES[,c(1,5,2:4)]
|
||||
return(RES)
|
||||
}
|
||||
TOTAL_IMPACT_SUMMARY <- DATA
|
||||
DIRECT_SPLIT_SUMMARY <- rbind(GET_SUMMARY(3,DATA),GET_SUMMARY(4,DATA),GET_SUMMARY(5,DATA),GET_SUMMARY(6,DATA)) %>% arrange(Event_Name)
|
||||
write_csv(DIRECT_SPLIT_SUMMARY, "Results/Event_Impact_Summary.csv")
|
||||
|
||||
####Taxes
|
||||
TAX <- read_csv("Data/Tax_Impacts_Summary/tax_summary.csv") %>% mutate_at(4:10,parse_number)
|
||||
colnames(TAX) <- gsub(" ","_",colnames(TAX))
|
||||
TAX$Impact <- ifelse(TAX$Impact==1,'Direct',ifelse(TAX$Impact==2,'Indirect' ,'Induced'))
|
||||
TAX <- TAX %>% filter(!is.na(Group_Name))
|
||||
TAX <- TAX %>% filter(!is.na(Event_Name))
|
||||
TAX_SUMMARY <- TAX %>% group_by(Event_Name,Impact) %>% summarize(County=sum(County+Sub_County_General+Sub_County_Special_Districts),State=sum(State) ,Federal=sum(Federal)) %>% mutate(Wyoming_Total=County+State)
|
||||
#Reduce to 25% for direct due to manufacturing exemption.
|
||||
TAX_SUMMARY[TAX_SUMMARY$Impact=='Direct',-1:-2] <- 0.25*TAX_SUMMARY[TAX_SUMMARY$Impact=='Direct',-1:-2]
|
||||
GET_SUMMARY(6,TAX_SUMMARY)
|
||||
DIRECT_SPLIT_SUMMARY <- rbind(GET_SUMMARY(3,DATA),GET_SUMMARY(4,DATA),GET_SUMMARY(5,DATA),GET_SUMMARY(6,DATA)) %>% arrange(Event_Name)
|
||||
DIRECT_SPLIT_SUMMARY
|
||||
TAX_SUMMARY
|
||||
DIRECT_SPLIT_SUMMARY <- rbind(DIRECT_SPLIT_SUMMARY,GET_SUMMARY(6,TAX_SUMMARY) %>% mutate(Type='Wyoming Total Taxes')) %>% arrange(Event_Name)
|
||||
write_csv(DIRECT_SPLIT_SUMMARY, "Results/Impact_Ratio_Summary.csv")
|
||||
|
||||
DIRECT_SPLIT_SUMMARY
|
||||
TOTAL_IMPACT_SUMMARY
|
||||
colnames(TAX_SUMMARY)[-1:-2] <- paste0(colnames(TAX_SUMMARY)[-1:-2],"_Taxes")
|
||||
TOTAL_IMPACT_SUMMARY <- left_join(TOTAL_IMPACT_SUMMARY ,TAX_SUMMARY) %>% arrange(Event_Name)
|
||||
write_csv(TOTAL_IMPACT_SUMMARY, "Results/Event_Impact_Summary.csv")
|
||||
|
||||
|
||||
@ -0,0 +1,17 @@
|
||||
Group Name,Event Name,Region,Impact,Employment,Labor Income,Value Added,Output
|
||||
Natrona (2023),Radiant_Emp_2028,"Natrona County, WY (2023)",1 - Direct,75.00,"$4,924,571.72","$6,045,234.76","$14,101,937.15"
|
||||
Natrona (2023),Radiant_Emp_2035,"Natrona County, WY (2023)",1 - Direct,250.00,"$16,415,239.06","$20,150,782.53","$47,006,457.17"
|
||||
Natrona (2023),Construction,"Natrona County, WY (2023)",1 - Direct,595.11,"$41,955,108.58","$78,540,574.64","$140,000,000.00"
|
||||
Natrona (2023),Radiant_Emp_2028,"Natrona County, WY (2023)",2 - Indirect,15.96,"$928,966.29","$1,447,742.84","$2,855,656.87"
|
||||
Natrona (2023),Radiant_Emp_2028,Wyoming_Exclude_Natrona (2023),2 - Indirect,0.70,"$52,626.37","$110,083.01","$236,486.69"
|
||||
Natrona (2023),Radiant_Emp_2035,"Natrona County, WY (2023)",2 - Indirect,53.22,"$3,097,465.45","$4,827,074.99","$9,520,838.32"
|
||||
Natrona (2023),Radiant_Emp_2035,Wyoming_Exclude_Natrona (2023),2 - Indirect,2.36,"$176,912.89","$369,246.76","$793,912.95"
|
||||
Natrona (2023),Construction,"Natrona County, WY (2023)",2 - Indirect,136.73,"$9,790,184.84","$17,799,142.25","$34,519,952.57"
|
||||
Natrona (2023),Construction,Wyoming_Exclude_Natrona (2023),2 - Indirect,22.63,"$1,767,310.88","$3,782,286.80","$9,025,277.42"
|
||||
Natrona (2023),Radiant_Emp_2028,"Natrona County, WY (2023)",3 - Induced,19.22,"$931,140.50","$1,844,849.87","$3,213,041.71"
|
||||
Natrona (2023),Radiant_Emp_2028,Wyoming_Exclude_Natrona (2023),3 - Induced,0.77,"$33,172.95","$73,177.48","$130,607.68"
|
||||
Natrona (2023),Radiant_Emp_2035,"Natrona County, WY (2023)",3 - Induced,64.08,"$3,104,032.25","$6,149,956.21","$10,710,935.59"
|
||||
Natrona (2023),Radiant_Emp_2035,Wyoming_Exclude_Natrona (2023),3 - Induced,2.58,"$110,814.80","$244,450.41","$436,298.02"
|
||||
Natrona (2023),Construction,"Natrona County, WY (2023)",3 - Induced,170.55,"$8,250,322.02","$16,342,086.57","$28,483,776.65"
|
||||
Natrona (2023),Construction,Wyoming_Exclude_Natrona (2023),3 - Induced,9.23,"$395,962.48","$873,456.19","$1,559,026.40"
|
||||
,,,,"1,418.15","$91,933,831.09","$158,600,145.28","$302,594,205.18"
|
||||
|
1
Data/Economic_Indicator_Summary/README_DATA.md
Normal file
1
Data/Economic_Indicator_Summary/README_DATA.md
Normal file
@ -0,0 +1 @@
|
||||
This is where the raw data from the economic indicators is stored. This is in the "Summary" tab on the far left of the IMPLAN results page
|
||||
1
Data/Occupation_IMPACTS_Tab/.~lock.Direct.csv#
Normal file
1
Data/Occupation_IMPACTS_Tab/.~lock.Direct.csv#
Normal file
@ -0,0 +1 @@
|
||||
,alex,alex-laptop,17.10.2025 12:57,file:///home/alex/.config/libreoffice/4;
|
||||
98
Data/Occupation_IMPACTS_Tab/Direct.csv
Normal file
98
Data/Occupation_IMPACTS_Tab/Direct.csv
Normal file
@ -0,0 +1,98 @@
|
||||
Dim Occupation Occ Code,Dim Occupation Occupation,Fact Results Impacts Wage and Salary Employment,Fact Results Impacts FTE Employment,Fact Results Impacts Wage and Salary Income,Fact Results Impacts Supplements to Wages and Salaries,Fact Results Impacts Employee Compensation,Fact Results Impacts Hours Worked
|
||||
11-1000,Top Executives,27.16,26.50,"$3,388,774.67","$609,147.82","$3,997,922.49","60,870.71"
|
||||
11-2000,"Advertising, Marketing, Promotions, Public Relations, and Sales Managers",1.65,1.62,"$242,582.30","$44,067.28","$286,649.57","3,621.62"
|
||||
11-3000,Operations Specialties Managers,9.00,8.81,"$1,059,891.74","$195,304.54","$1,255,196.28","19,438.37"
|
||||
11-9000,Other Management Occupations,17.72,17.22,"$2,004,944.96","$347,358.44","$2,352,303.40","38,763.10"
|
||||
13-1000,Business Operations Specialists,30.96,30.15,"$2,584,680.57","$454,490.24","$3,039,170.81","63,135.64"
|
||||
13-2000,Financial Specialists,5.70,5.56,"$485,400.49","$86,720.72","$572,121.22","11,532.76"
|
||||
15-1200,Computer Occupations,2.89,2.82,"$246,954.07","$45,012.11","$291,966.18","5,737.78"
|
||||
15-2000,Mathematical Science Occupations,0.05,0.04,"$3,740.62",$644.25,"$4,384.87",92.10
|
||||
17-1000,"Architects, Surveyors, and Cartographers",0.50,0.48,"$40,480.52","$6,971.97","$47,452.48","1,017.79"
|
||||
17-2000,Engineers,10.91,10.67,"$960,921.16","$176,397.01","$1,137,318.17","22,484.11"
|
||||
17-3000,"Drafters, Engineering Technicians, and Mapping Technicians",3.41,3.33,"$218,556.29","$39,406.69","$257,962.98","6,675.24"
|
||||
19-1000,Life Scientists,0.01,0.01,$507.78,$87.45,$595.23,19.07
|
||||
19-2000,Physical Scientists,0.03,0.03,"$2,003.42",$345.05,"$2,348.46",53.28
|
||||
19-3000,Social Scientists and Related Workers,0.01,0.01,"$1,174.67",$202.31,"$1,376.99",25.86
|
||||
19-4000,"Life, Physical, and Social Science Technicians",0.15,0.15,"$8,634.41","$1,564.28","$10,198.69",278.17
|
||||
19-5000,Occupational Health and Safety Specialists and Technicians,1.29,1.25,"$102,559.65","$17,875.86","$120,435.51","2,615.69"
|
||||
21-1000,"Counselors, Social Workers, and Other Community and Social Service Specialists",0.01,0.01,$519.14,$89.41,$608.55,20.28
|
||||
21-2000,Religious Workers,0.00,0.00,$0.00,$0.00,$0.00,0.00
|
||||
23-1000,"Lawyers, Judges, and Related Workers",0.11,0.10,"$19,242.05","$3,314.06","$22,556.11",235.03
|
||||
23-2000,Legal Support Workers,0.04,0.04,"$2,938.38",$506.08,"$3,444.45",77.48
|
||||
25-1000,Postsecondary Teachers,0.00,0.00,$0.00,$0.00,$0.00,0.00
|
||||
25-2000,"Preschool, Elementary, Middle, Secondary, and Special Education Teachers",0.00,0.00,$0.00,$0.00,$0.00,0.00
|
||||
25-3000,Other Teachers and Instructors,0.01,0.01,$427.02,$73.55,$500.56,18.84
|
||||
25-4000,"Librarians, Curators, and Archivists",0.00,0.00,$0.00,$0.00,$0.00,0.00
|
||||
25-9000,Other Educational Instruction and Library Occupations,0.00,0.00,$0.00,$0.00,$0.00,0.00
|
||||
27-1000,Art and Design Workers,0.64,0.63,"$38,046.98","$6,702.00","$44,748.98","1,254.36"
|
||||
27-2000,"Entertainers and Performers, Sports and Related Workers",0.00,0.00,$0.00,$0.00,$0.00,0.00
|
||||
27-3000,Media and Communication Workers,0.08,0.08,"$4,900.98",$844.10,"$5,745.08",162.19
|
||||
27-4000,Media and Communication Equipment Workers,0.11,0.11,"$5,658.33",$974.53,"$6,632.86",202.67
|
||||
29-1000,Healthcare Diagnosing or Treating Practitioners,0.00,0.00,$0.00,$0.00,$0.00,0.00
|
||||
29-2000,Health Technologists and Technicians,0.00,0.00,$0.00,$0.00,$0.00,0.00
|
||||
29-9000,Other Healthcare Practitioners and Technical Occupations,0.00,0.00,$0.00,$0.00,$0.00,0.00
|
||||
31-1100,"Home Health and Personal Care Aides; and Nursing Assistants, Orderlies, and Psychiatric Aides",0.01,0.01,$304.96,$52.52,$357.48,10.16
|
||||
31-2000,Occupational Therapy and Physical Therapist Assistants and Aides,0.00,0.00,$0.00,$0.00,$0.00,0.00
|
||||
31-9000,Other Healthcare Support Occupations,0.00,0.00,$0.00,$0.00,$0.00,0.00
|
||||
33-1000,Supervisors of Protective Service Workers,0.02,0.02,"$1,423.08",$245.10,"$1,668.18",40.72
|
||||
33-2000,Firefighting and Prevention Workers,0.02,0.02,$890.52,$153.37,"$1,043.89",32.83
|
||||
33-3000,Law Enforcement Workers,0.00,0.00,$0.00,$0.00,$0.00,0.00
|
||||
33-9000,Other Protective Service Workers,0.47,0.46,"$22,144.37","$3,844.96","$25,989.33",634.36
|
||||
35-1000,Supervisors of Food Preparation and Serving Workers,0.00,0.00,$253.95,$43.74,$297.69,8.08
|
||||
35-2000,Cooks and Food Preparation Workers,0.03,0.03,$756.70,$130.33,$887.02,38.23
|
||||
35-3000,Food and Beverage Serving Workers,0.02,0.02,$393.87,$67.84,$461.70,24.92
|
||||
35-9000,Other Food Preparation and Serving Related Workers,0.00,0.00,$0.00,$0.00,$0.00,0.00
|
||||
37-1000,Supervisors of Building and Grounds Cleaning and Maintenance Workers,0.13,0.12,"$7,319.43","$1,260.63","$8,580.06",263.96
|
||||
37-2000,Building Cleaning and Pest Control Workers,3.35,3.28,"$111,390.98","$20,435.22","$131,826.19","5,505.57"
|
||||
37-3000,Grounds Maintenance Workers,0.87,0.85,"$36,119.61","$6,220.89","$42,340.49","1,496.65"
|
||||
39-1000,Supervisors of Personal Care and Service Workers,0.00,0.00,$0.00,$0.00,$0.00,0.00
|
||||
39-2000,Animal Care and Service Workers,0.00,0.00,$0.00,$0.00,$0.00,0.00
|
||||
39-3000,Entertainment Attendants and Related Workers,0.02,0.01,$290.92,$50.10,$341.02,16.53
|
||||
39-4000,Funeral Service Workers,0.00,0.00,$0.00,$0.00,$0.00,0.00
|
||||
39-5000,Personal Appearance Workers,0.00,0.00,$0.00,$0.00,$0.00,0.00
|
||||
39-6000,"Baggage Porters, Bellhops, and Concierges",0.01,0.00,$245.10,$42.21,$287.32,9.10
|
||||
39-7000,Tour and Travel Guides,0.00,0.00,$0.00,$0.00,$0.00,0.00
|
||||
39-9000,Other Personal Care and Service Workers,0.01,0.01,$187.20,$32.24,$219.44,7.69
|
||||
41-1000,Supervisors of Sales Workers,0.48,0.47,"$37,380.17","$6,668.12","$44,048.29","1,034.81"
|
||||
41-2000,Retail Sales Workers,0.91,0.89,"$31,261.88","$5,601.06","$36,862.94","1,521.67"
|
||||
41-3000,"Sales Representatives, Services",6.55,6.36,"$459,146.59","$79,558.17","$538,704.76","13,377.95"
|
||||
41-4000,"Sales Representatives, Wholesale and Manufacturing",6.49,6.35,"$476,879.49","$88,747.03","$565,626.52","13,513.89"
|
||||
41-9000,Other Sales and Related Workers,1.39,1.35,"$99,954.75","$17,560.44","$117,515.19","2,594.81"
|
||||
43-1000,Supervisors of Office and Administrative Support Workers,4.75,4.63,"$330,334.52","$58,992.53","$389,327.05","9,471.80"
|
||||
43-2000,Communications Equipment Operators,0.00,0.00,$0.00,$0.00,$0.00,0.00
|
||||
43-3000,Financial Clerks,14.24,13.88,"$722,490.07","$129,039.00","$851,529.07","25,691.84"
|
||||
43-4000,Information and Record Clerks,5.61,5.47,"$246,773.30","$44,178.88","$290,952.17","9,563.60"
|
||||
43-5000,"Material Recording, Scheduling, Dispatching, and Distributing Workers",10.92,10.69,"$543,302.32","$100,289.81","$643,592.13","21,131.01"
|
||||
43-6000,Secretaries and Administrative Assistants,12.80,12.48,"$623,747.97","$111,419.56","$735,167.53","22,909.29"
|
||||
43-9000,Other Office and Administrative Support Workers,22.02,21.47,"$910,605.12","$162,544.63","$1,073,149.75","36,314.97"
|
||||
45-1000,"Supervisors of Farming, Fishing, and Forestry Workers",0.00,0.00,$0.00,$0.00,$0.00,0.00
|
||||
45-2000,Agricultural Workers,0.04,0.04,"$1,480.63",$255.01,"$1,735.64",71.05
|
||||
45-3000,Fishing and Hunting Workers,0.00,0.00,$0.00,$0.00,$0.00,0.00
|
||||
45-4000,"Forest, Conservation, and Logging Workers",0.01,0.01,$775.18,$133.51,$908.68,29.65
|
||||
47-1000,Supervisors of Construction and Extraction Workers,34.56,33.57,"$2,753,404.73","$474,330.52","$3,227,735.25","76,132.12"
|
||||
47-2000,Construction Trades Workers,213.53,207.42,"$12,514,996.90","$2,156,639.09","$14,671,635.98","416,617.13"
|
||||
47-3000,"Helpers, Construction Trades",9.89,9.61,"$397,437.52","$68,450.75","$465,888.27","17,710.70"
|
||||
47-4000,Other Construction and Related Workers,4.73,4.59,"$309,966.53","$53,385.60","$363,352.14","9,247.07"
|
||||
47-5000,Extraction Workers,1.58,1.53,"$89,397.72","$15,396.99","$104,794.71","3,742.05"
|
||||
49-1000,"Supervisors of Installation, Maintenance, and Repair Workers",4.52,4.40,"$367,785.44","$64,520.10","$432,305.53","10,003.89"
|
||||
49-2000,"Electrical and Electronic Equipment Mechanics, Installers, and Repairers",3.17,3.08,"$182,413.48","$31,417.11","$213,830.59","6,443.77"
|
||||
49-3000,"Vehicle and Mobile Equipment Mechanics, Installers, and Repairers",3.53,3.43,"$208,857.29","$36,344.94","$245,202.23","7,599.73"
|
||||
49-9000,"Other Installation, Maintenance, and Repair Occupations",37.96,36.95,"$2,131,677.21","$375,026.11","$2,506,703.32","77,497.51"
|
||||
51-1000,Supervisors of Production Workers,14.77,14.49,"$1,137,862.19","$214,678.42","$1,352,540.60","32,186.30"
|
||||
51-2000,Assemblers and Fabricators,12.51,12.27,"$577,283.10","$108,561.16","$685,844.27","24,340.53"
|
||||
51-3000,Food Processing Workers,0.00,0.00,$0.00,$0.00,$0.00,0.00
|
||||
51-4000,Metal Workers and Plastic Workers,116.40,114.19,"$6,113,870.82","$1,153,537.25","$7,267,408.07","242,355.09"
|
||||
51-5100,Printing Workers,0.00,0.00,$101.84,$17.54,$119.38,4.35
|
||||
51-6000,"Textile, Apparel, and Furnishings Workers",0.09,0.09,"$3,448.00",$629.50,"$4,077.50",168.08
|
||||
51-7000,Woodworkers,0.50,0.49,"$23,832.91","$4,104.75","$27,937.65",950.14
|
||||
51-8000,Plant and System Operators,0.19,0.18,"$11,088.36","$1,909.75","$12,998.11",410.62
|
||||
51-9000,Other Production Occupations,62.38,61.20,"$3,231,070.75","$610,349.22","$3,841,419.97","126,899.69"
|
||||
53-1000,Supervisors of Transportation and Material Moving Workers,0.90,0.88,"$60,898.66","$10,904.13","$71,802.79","1,916.01"
|
||||
53-2000,Air Transportation Workers,0.02,0.02,"$3,061.88",$527.35,"$3,589.23",44.41
|
||||
53-3000,Motor Vehicle Operators,10.82,10.53,"$543,311.50","$95,543.41","$638,854.90","22,523.12"
|
||||
53-4000,Rail Transportation Workers,0.00,0.00,$0.00,$0.00,$0.00,0.00
|
||||
53-5000,Water Transportation Workers,0.11,0.10,"$8,118.85","$1,398.31","$9,517.16",252.09
|
||||
53-6000,Other Transportation Workers,0.05,0.05,"$2,115.81",$364.41,"$2,480.21",102.17
|
||||
53-7000,Material Moving Workers,11.49,11.22,"$502,209.82","$91,015.28","$593,225.10","20,391.79"
|
||||
99-8000,Military - Known,0.00,0.00,$0.00,$0.00,$0.00,0.00
|
||||
99-9000,Military - Unknown,0.00,0.00,$0.00,$0.00,$0.00,0.00
|
||||
|
98
Data/Occupation_IMPACTS_Tab/Indirect_Induced.csv
Normal file
98
Data/Occupation_IMPACTS_Tab/Indirect_Induced.csv
Normal file
@ -0,0 +1,98 @@
|
||||
Dim Occupation Occ Code,Dim Occupation Occupation,Fact Results Impacts Wage and Salary Employment,Fact Results Impacts FTE Employment,Fact Results Impacts Wage and Salary Income,Fact Results Impacts Supplements to Wages and Salaries,Fact Results Impacts Employee Compensation,Fact Results Impacts Hours Worked
|
||||
11-1000,Top Executives,10.72,9.87,"$1,454,170.93","$247,096.94","$1,701,267.87","23,409.20"
|
||||
11-2000,"Advertising, Marketing, Promotions, Public Relations, and Sales Managers",2.61,2.46,"$424,446.77","$69,361.37","$493,808.14","5,583.78"
|
||||
11-3000,Operations Specialties Managers,4.72,4.49,"$761,510.66","$129,697.89","$891,208.55","9,919.35"
|
||||
11-9000,Other Management Occupations,4.97,4.52,"$531,683.56","$95,114.00","$626,797.56","10,083.26"
|
||||
13-1000,Business Operations Specialists,13.27,12.42,"$1,131,770.80","$189,685.97","$1,321,456.77","25,756.09"
|
||||
13-2000,Financial Specialists,7.26,6.95,"$678,692.87","$110,241.07","$788,933.95","14,386.42"
|
||||
15-1200,Computer Occupations,8.64,8.24,"$917,491.51","$139,351.25","$1,056,842.76","17,034.51"
|
||||
15-2000,Mathematical Science Occupations,0.58,0.55,"$62,734.33","$10,152.87","$72,887.20","1,139.63"
|
||||
17-1000,"Architects, Surveyors, and Cartographers",0.43,0.42,"$37,734.42","$5,799.71","$43,534.13",889.15
|
||||
17-2000,Engineers,2.56,2.46,"$300,639.91","$51,473.62","$352,113.54","5,294.97"
|
||||
17-3000,"Drafters, Engineering Technicians, and Mapping Technicians",1.15,1.09,"$81,233.87","$14,386.02","$95,619.89","2,277.07"
|
||||
19-1000,Life Scientists,0.31,0.30,"$28,499.06","$5,081.43","$33,580.49",624.23
|
||||
19-2000,Physical Scientists,0.25,0.24,"$23,716.63","$4,265.07","$27,981.69",493.06
|
||||
19-3000,Social Scientists and Related Workers,0.22,0.20,"$19,470.07","$3,524.00","$22,994.07",410.47
|
||||
19-4000,"Life, Physical, and Social Science Technicians",0.32,0.31,"$18,178.15","$3,374.51","$21,552.67",610.08
|
||||
19-5000,Occupational Health and Safety Specialists and Technicians,0.26,0.24,"$24,270.17","$4,917.85","$29,188.02",522.82
|
||||
21-1000,"Counselors, Social Workers, and Other Community and Social Service Specialists",3.11,2.81,"$147,469.52","$28,117.46","$175,586.98","5,463.90"
|
||||
21-2000,Religious Workers,1.11,0.97,"$68,944.55","$10,080.23","$79,024.78","2,225.36"
|
||||
23-1000,"Lawyers, Judges, and Related Workers",1.92,1.85,"$300,291.00","$51,271.32","$351,562.32","4,074.88"
|
||||
23-2000,Legal Support Workers,1.30,1.25,"$74,355.14","$12,688.02","$87,043.15","2,335.91"
|
||||
25-1000,Postsecondary Teachers,0.65,0.59,"$30,206.51","$6,644.16","$36,850.66","1,018.96"
|
||||
25-2000,"Preschool, Elementary, Middle, Secondary, and Special Education Teachers",1.48,1.31,"$51,666.35","$9,258.20","$60,924.54","2,536.59"
|
||||
25-3000,Other Teachers and Instructors,1.32,1.19,"$41,188.95","$7,794.91","$48,983.86","1,678.57"
|
||||
25-4000,"Librarians, Curators, and Archivists",0.07,0.06,"$3,349.92",$562.06,"$3,911.97",116.83
|
||||
25-9000,Other Educational Instruction and Library Occupations,0.92,0.82,"$27,050.73","$5,008.97","$32,059.70","1,340.16"
|
||||
27-1000,Art and Design Workers,1.23,1.16,"$73,783.96","$11,815.26","$85,599.22","2,181.30"
|
||||
27-2000,"Entertainers and Performers, Sports and Related Workers",1.32,1.17,"$66,495.33","$10,985.72","$77,481.05","1,792.73"
|
||||
27-3000,Media and Communication Workers,1.38,1.29,"$78,456.53","$13,285.15","$91,741.68","2,490.25"
|
||||
27-4000,Media and Communication Equipment Workers,0.72,0.67,"$36,654.29","$6,004.76","$42,659.05","1,240.03"
|
||||
29-1000,Healthcare Diagnosing or Treating Practitioners,13.24,12.32,"$1,599,538.62","$317,015.45","$1,916,554.08","24,432.45"
|
||||
29-2000,Health Technologists and Technicians,6.02,5.56,"$345,387.55","$68,720.37","$414,107.92","10,878.95"
|
||||
29-9000,Other Healthcare Practitioners and Technical Occupations,0.23,0.21,"$14,655.13","$2,891.27","$17,546.40",438.61
|
||||
31-1100,"Home Health and Personal Care Aides; and Nursing Assistants, Orderlies, and Psychiatric Aides",9.93,8.97,"$295,417.49","$58,133.16","$353,550.65","15,846.12"
|
||||
31-2000,Occupational Therapy and Physical Therapist Assistants and Aides,0.38,0.35,"$17,105.58","$3,411.76","$20,517.34",577.10
|
||||
31-9000,Other Healthcare Support Occupations,3.79,3.48,"$155,054.81","$29,516.22","$184,571.03","6,264.45"
|
||||
33-1000,Supervisors of Protective Service Workers,0.21,0.20,"$13,304.75","$2,473.22","$15,777.98",470.75
|
||||
33-2000,Firefighting and Prevention Workers,0.29,0.26,"$9,081.44","$1,496.05","$10,577.49",724.08
|
||||
33-3000,Law Enforcement Workers,0.04,0.03,"$1,990.37",$498.81,"$2,489.18",79.08
|
||||
33-9000,Other Protective Service Workers,3.76,3.43,"$152,665.73","$26,174.79","$178,840.53","6,212.95"
|
||||
35-1000,Supervisors of Food Preparation and Serving Workers,4.19,3.36,"$173,047.56","$24,158.04","$197,205.60","7,001.49"
|
||||
35-2000,Cooks and Food Preparation Workers,10.42,8.40,"$257,737.09","$36,713.16","$294,450.25","14,161.31"
|
||||
35-3000,Food and Beverage Serving Workers,22.03,17.68,"$453,104.16","$62,503.81","$515,607.98","24,455.16"
|
||||
35-9000,Other Food Preparation and Serving Related Workers,4.63,3.71,"$84,659.19","$11,552.92","$96,212.11","4,606.34"
|
||||
37-1000,Supervisors of Building and Grounds Cleaning and Maintenance Workers,0.95,0.87,"$40,822.60","$6,908.51","$47,731.11","1,949.81"
|
||||
37-2000,Building Cleaning and Pest Control Workers,7.72,6.98,"$200,778.92","$35,922.42","$236,701.35","12,268.82"
|
||||
37-3000,Grounds Maintenance Workers,4.75,4.35,"$149,331.97","$24,812.45","$174,144.42","8,125.85"
|
||||
39-1000,Supervisors of Personal Care and Service Workers,0.40,0.36,"$21,053.13","$4,485.98","$25,539.11",734.01
|
||||
39-2000,Animal Care and Service Workers,0.59,0.52,"$13,908.87","$2,084.25","$15,993.12",812.60
|
||||
39-3000,Entertainment Attendants and Related Workers,1.21,1.05,"$28,646.31","$6,443.58","$35,089.89","1,354.06"
|
||||
39-4000,Funeral Service Workers,0.06,0.05,"$2,089.60",$308.35,"$2,397.96",90.57
|
||||
39-5000,Personal Appearance Workers,0.81,0.70,"$27,488.02","$4,073.67","$31,561.69","1,125.69"
|
||||
39-6000,"Baggage Porters, Bellhops, and Concierges",0.09,0.08,"$3,259.44",$612.28,"$3,871.72",146.94
|
||||
39-7000,Tour and Travel Guides,0.52,0.48,"$25,354.89","$4,423.60","$29,778.49",527.61
|
||||
39-9000,Other Personal Care and Service Workers,2.87,2.51,"$51,959.93","$9,352.09","$61,312.02","3,514.26"
|
||||
41-1000,Supervisors of Sales Workers,3.84,3.44,"$252,674.12","$47,835.80","$300,509.91","7,610.69"
|
||||
41-2000,Retail Sales Workers,21.59,18.98,"$627,893.02","$124,288.00","$752,181.02","30,299.89"
|
||||
41-3000,"Sales Representatives, Services",4.86,4.60,"$375,511.94","$63,112.06","$438,624.00","9,747.94"
|
||||
41-4000,"Sales Representatives, Wholesale and Manufacturing",7.45,7.17,"$719,129.10","$111,043.48","$830,172.57","15,790.99"
|
||||
41-9000,Other Sales and Related Workers,1.27,1.19,"$80,381.03","$12,798.76","$93,179.79","2,235.43"
|
||||
43-1000,Supervisors of Office and Administrative Support Workers,3.27,3.05,"$241,830.92","$45,203.02","$287,033.95","6,390.12"
|
||||
43-2000,Communications Equipment Operators,0.10,0.09,"$4,004.25",$755.40,"$4,759.64",174.24
|
||||
43-3000,Financial Clerks,6.68,6.26,"$354,207.36","$61,336.65","$415,544.02","11,982.20"
|
||||
43-4000,Information and Record Clerks,11.31,10.56,"$505,423.15","$89,164.86","$594,588.01","19,062.16"
|
||||
43-5000,"Material Recording, Scheduling, Dispatching, and Distributing Workers",6.87,6.09,"$400,514.15","$123,323.76","$523,837.91","13,268.24"
|
||||
43-6000,Secretaries and Administrative Assistants,6.72,6.24,"$326,082.70","$57,561.67","$383,644.37","11,906.23"
|
||||
43-9000,Other Office and Administrative Support Workers,7.15,6.65,"$303,735.80","$53,425.52","$357,161.32","11,703.28"
|
||||
45-1000,"Supervisors of Farming, Fishing, and Forestry Workers",0.03,0.03,"$2,153.42",$419.54,"$2,572.96",59.19
|
||||
45-2000,Agricultural Workers,0.34,0.31,"$17,037.46","$3,274.09","$20,311.55",607.19
|
||||
45-3000,Fishing and Hunting Workers,0.00,0.00,$3.02,$0.82,$3.85,0.17
|
||||
45-4000,"Forest, Conservation, and Logging Workers",0.04,0.04,"$1,932.73",$390.20,"$2,322.93",77.94
|
||||
47-1000,Supervisors of Construction and Extraction Workers,0.87,0.84,"$72,822.51","$14,177.52","$87,000.02","1,925.43"
|
||||
47-2000,Construction Trades Workers,4.26,4.09,"$258,078.47","$49,689.21","$307,767.68","8,404.09"
|
||||
47-3000,"Helpers, Construction Trades",0.07,0.07,"$3,189.96",$565.09,"$3,755.05",130.51
|
||||
47-4000,Other Construction and Related Workers,0.42,0.40,"$29,365.79","$5,607.56","$34,973.35",840.07
|
||||
47-5000,Extraction Workers,0.94,0.92,"$66,372.39","$14,640.56","$81,012.95","2,331.22"
|
||||
49-1000,"Supervisors of Installation, Maintenance, and Repair Workers",1.91,1.76,"$187,094.36","$34,090.10","$221,184.45","4,230.68"
|
||||
49-2000,"Electrical and Electronic Equipment Mechanics, Installers, and Repairers",1.53,1.42,"$103,480.66","$18,706.84","$122,187.50","3,113.92"
|
||||
49-3000,"Vehicle and Mobile Equipment Mechanics, Installers, and Repairers",8.58,7.77,"$588,901.12","$101,325.84","$690,226.97","17,615.01"
|
||||
49-9000,"Other Installation, Maintenance, and Repair Occupations",7.92,7.36,"$557,762.43","$101,806.77","$659,569.20","16,260.65"
|
||||
51-1000,Supervisors of Production Workers,1.03,0.98,"$93,452.13","$19,211.60","$112,663.72","2,282.65"
|
||||
51-2000,Assemblers and Fabricators,2.32,2.20,"$120,013.56","$20,545.60","$140,559.16","4,511.09"
|
||||
51-3000,Food Processing Workers,0.68,0.59,"$23,668.41","$5,016.00","$28,684.41","1,141.99"
|
||||
51-4000,Metal Workers and Plastic Workers,1.79,1.70,"$122,130.72","$21,324.57","$143,455.29","3,739.91"
|
||||
51-5100,Printing Workers,0.16,0.15,"$5,604.75",$945.64,"$6,550.39",305.78
|
||||
51-6000,"Textile, Apparel, and Furnishings Workers",0.75,0.68,"$29,608.76","$4,968.32","$34,577.08","1,269.41"
|
||||
51-7000,Woodworkers,0.22,0.21,"$11,033.67","$1,956.27","$12,989.94",411.56
|
||||
51-8000,Plant and System Operators,0.57,0.55,"$51,842.70","$15,736.83","$67,579.53","1,216.09"
|
||||
51-9000,Other Production Occupations,5.07,4.84,"$292,260.01","$56,780.41","$349,040.41","10,039.15"
|
||||
53-1000,Supervisors of Transportation and Material Moving Workers,2.08,1.95,"$163,884.88","$31,807.31","$195,692.19","4,371.57"
|
||||
53-2000,Air Transportation Workers,0.40,0.37,"$45,656.83","$10,347.54","$56,004.36",734.85
|
||||
53-3000,Motor Vehicle Operators,19.70,18.47,"$1,287,196.01","$283,062.97","$1,570,258.98","40,543.39"
|
||||
53-4000,Rail Transportation Workers,0.26,0.24,"$24,623.19","$8,033.01","$32,656.19",622.97
|
||||
53-5000,Water Transportation Workers,0.88,0.83,"$83,571.14","$14,714.65","$98,285.79","2,091.68"
|
||||
53-6000,Other Transportation Workers,0.92,0.82,"$36,316.48","$6,488.68","$42,805.16","1,456.76"
|
||||
53-7000,Material Moving Workers,18.85,17.53,"$851,132.19","$154,098.74","$1,005,230.93","31,566.27"
|
||||
99-8000,Military - Known,0.00,0.00,$0.00,$0.00,$0.00,0.00
|
||||
99-9000,Military - Unknown,0.00,0.00,$0.00,$0.00,$0.00,0.00
|
||||
|
3
Data/Occupation_IMPACTS_Tab/README_DATA.md
Normal file
3
Data/Occupation_IMPACTS_Tab/README_DATA.md
Normal file
@ -0,0 +1,3 @@
|
||||
This is where any occupational data files should be stored. On IMPLAN these are found "Occupation" tab sixth from the left.
|
||||
|
||||
The data from should be from the "Impact" drop down, and not average or core competency.
|
||||
1
Data/Tax_Impacts_Summary/.~lock.tax_summary.csv#
Normal file
1
Data/Tax_Impacts_Summary/.~lock.tax_summary.csv#
Normal file
@ -0,0 +1 @@
|
||||
,alex,alex-laptop,17.10.2025 17:31,file:///home/alex/.config/libreoffice/4;
|
||||
17
Data/Tax_Impacts_Summary/tax_summary.csv
Normal file
17
Data/Tax_Impacts_Summary/tax_summary.csv
Normal file
@ -0,0 +1,17 @@
|
||||
Group Name,Event Name,Model Name,Impact,Sub County General,Sub County Special Districts,County,State,Federal,Total
|
||||
Natrona (2023),Construction,"Natrona County, WY (2023)",1 - Direct,"$15,756.82","$71,186.42","$38,813.64","$936,723.34","$11,389,672.59","$12,452,152.80"
|
||||
Natrona (2023),Radiant_Emp_2035,"Natrona County, WY (2023)",1 - Direct,"$10,578.96","$46,388.25","$22,482.96","$525,184.65","$4,189,842.80","$4,794,477.63"
|
||||
Natrona (2023),Radiant_Emp_2028,"Natrona County, WY (2023)",1 - Direct,"$3,173.69","$13,916.48","$6,744.89","$157,555.40","$1,256,952.84","$1,438,343.29"
|
||||
Natrona (2023),Radiant_Emp_2028,Wyoming_Exclude_Natrona (2023),2 - Indirect,$149.49,"$1,573.48",$889.36,"$5,709.32","$14,423.84","$22,745.48"
|
||||
Natrona (2023),Construction,"Natrona County, WY (2023)",2 - Indirect,"$36,214.83","$153,284.14","$62,684.16","$1,238,281.84","$2,643,501.86","$4,133,966.82"
|
||||
Natrona (2023),Radiant_Emp_2028,"Natrona County, WY (2023)",2 - Indirect,"$1,669.34","$7,122.73","$3,035.91","$62,120.59","$239,202.36","$313,150.92"
|
||||
Natrona (2023),Radiant_Emp_2035,Wyoming_Exclude_Natrona (2023),2 - Indirect,$501.14,"$5,274.81","$2,981.50","$19,144.37","$48,448.63","$76,350.45"
|
||||
Natrona (2023),Radiant_Emp_2035,"Natrona County, WY (2023)",2 - Indirect,"$5,567.37","$23,754.77","$10,124.77","$207,168.38","$797,558.07","$1,044,173.36"
|
||||
Natrona (2023),Construction,Wyoming_Exclude_Natrona (2023),2 - Indirect,"$4,528.76","$47,690.70","$26,987.39","$175,639.30","$493,323.57","$748,169.72"
|
||||
Natrona (2023),Radiant_Emp_2028,Wyoming_Exclude_Natrona (2023),3 - Induced,$147.42,"$1,548.67",$871.58,"$5,422.13","$9,108.72","$17,098.53"
|
||||
Natrona (2023),Radiant_Emp_2035,Wyoming_Exclude_Natrona (2023),3 - Induced,$492.47,"$5,173.35","$2,911.53","$18,112.70","$30,427.82","$57,117.87"
|
||||
Natrona (2023),Radiant_Emp_2028,"Natrona County, WY (2023)",3 - Induced,"$4,650.62","$19,645.18","$7,949.00","$155,495.23","$256,872.53","$444,612.57"
|
||||
Natrona (2023),Construction,Wyoming_Exclude_Natrona (2023),3 - Induced,"$1,759.66","$18,484.96","$10,403.22","$64,718.86","$108,723.79","$204,090.49"
|
||||
Natrona (2023),Construction,"Natrona County, WY (2023)",3 - Induced,"$41,191.55","$174,001.90","$70,406.84","$1,377,285.71","$2,275,770.20","$3,938,656.19"
|
||||
Natrona (2023),Radiant_Emp_2035,"Natrona County, WY (2023)",3 - Induced,"$15,503.22","$65,488.80","$26,498.64","$518,355.92","$856,305.37","$1,482,151.95"
|
||||
,,,,"$141,885.35","$654,534.62","$293,785.36","$5,466,917.75","$24,610,134.99","$31,167,258.07"
|
||||
|
19
Scripts/Occupation_Clean.r
Normal file
19
Scripts/Occupation_Clean.r
Normal file
@ -0,0 +1,19 @@
|
||||
#Clean a single file
|
||||
Occupation_Summary <- function(COL_NAME,RANK_SIZE=5,DATA=OCC,SIG_FIGS=0){
|
||||
DATA <- DATA[c(1,which(colnames(DATA)==COL_NAME))]
|
||||
colnames(DATA)[2] <- "TEMP_COL"
|
||||
RES <- DATA %>% select(Occupation,TEMP_COL) %>% mutate(Rank=rank(-TEMP_COL),Occupation=ifelse(Rank>RANK_SIZE,"Other Jobs",Occupation) ) %>% group_by(Occupation) %>% summarize(TEMP_COL=round(sum(TEMP_COL),SIG_FIGS),Rank=as.character(min(Rank))) %>% arrange(as.numeric(Rank))
|
||||
RES[nrow(RES),"Rank"] <- paste0(RES[nrow(RES),"Rank"],"+")
|
||||
colnames(RES)[2] <- COL_NAME
|
||||
return(RES)
|
||||
}
|
||||
####A function to automaticly process all files in a given folder
|
||||
Occupation_Summary_Directory <- function(RES_PATH="./Results",OCCUPATION_DIR='Data/Occupation_IMPACTS_Tab',OCC_NAMES=c("Occupation_Code","Occupation","Employment","FTE","Wage_and_Salary_Income","Supplemental_Income","Employee_Compensation","Hours_Worked")){
|
||||
OCCUPATION_FILES <- list.files(OCCUPATION_DIR,pattern="*.csv",full.names=TRUE)
|
||||
RES_FILE_PATH <- paste0(RES_PATH,"/",gsub(" ","_",paste0(gsub('\\.csv','', list.files(OCCUPATION_DIR,pattern="*.csv",full.names=FALSE),ignore.case=TRUE),"_Results") ),'.csv')
|
||||
for(i in 1:length(OCCUPATION_FILES)){
|
||||
OCC <- read_csv(OCCUPATION_FILES [i],col_names=OCC_NAMES,skip=1)%>% mutate_at(5:7,parse_number) %>% select(-Occupation_Code)
|
||||
write_csv(Occupation_Summary("Employment",10,OCC),RES_FILE_PATH[i])
|
||||
}
|
||||
}
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user