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")