From 62083a05472e79a204bb57321c33484febc03b52 Mon Sep 17 00:00:00 2001 From: Alex Gebben Work Date: Tue, 17 Mar 2026 16:51:41 -0600 Subject: [PATCH] Added code to save job trend results to file --- Visuals.r | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/Visuals.r b/Visuals.r index 3a9b315..0e3cfd4 100644 --- a/Visuals.r +++ b/Visuals.r @@ -57,6 +57,11 @@ INDUSTRY_JOBS <- INDUSTRY_JOBS %>% group_by(Year) %>% mutate(Rank=rank(-Jobs) ORDER <- c(INDUSTRY_JOBS %>% filter(Industry!='Other') %>% group_by(Industry) %>% summarize(MEAN=mean(Jobs)) %>% arrange(desc(MEAN)) %>% pull(Industry) %>% unique,"Other") INDUSTRY_JOBS$Industry <- factor(INDUSTRY_JOBS$Industry,levels=ORDER) -ggplot(INDUSTRY_JOBS ,aes(x=Year,y=Jobs,fill=Industry))+geom_bar(stat='identity')+ paletteer::scale_fill_paletteer_d("colorBlindness::Blue2DarkRed18Steps") +JOB_TYPE_PLOT <- ggplot(INDUSTRY_JOBS ,aes(x=Year,y=Jobs,fill=Industry))+geom_bar(stat='identity')+ paletteer::scale_fill_paletteer_d("colorBlindness::Blue2DarkRed18Steps") +png(paste0(OUTPUT_DIR,"Job_Dist_Plot.png"), units = "in", width = 20, height = 8, res = 600) +JOB_TYPE_PLOT +dev.off() + + ggplot(INDUSTRY_JOBS %>% filter(Year %in% c(2032,2045)),aes(x=as.factor(Year),y=Jobs,fill=Industry))+geom_bar(stat='identity')+ paletteer::scale_fill_paletteer_d("colorBlindness::Blue2DarkRed18Steps")