From 4c978fc0243a9f3c34db39d592f007df27df597a Mon Sep 17 00:00:00 2001 From: Alex Gebben Work Date: Wed, 29 Apr 2026 12:55:28 -0600 Subject: [PATCH] Increased fig font size. Added units --- REMI_Inputs.r | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/REMI_Inputs.r b/REMI_Inputs.r index f13ae11..239d366 100644 --- a/REMI_Inputs.r +++ b/REMI_Inputs.r @@ -111,10 +111,11 @@ ALL_VALUES <- DOLLAR_VALUES ALL_VALUES$POWER_OPERATORS <- POWER_OPERATORS -OP_PLOT <- ggplot(REG_DATA,aes(x=Capacity,y=log(Emp)))+geom_point()+geom_smooth(method='lm',color="orange")+theme_bw()+ylab("Operating Employment (Natural Log)" )+scale_x_continuous(breaks=seq(0,5000,by=200),labels = scales::comma)+scale_y_continuous(breaks=seq(0,7,by=0.25))+theme(text=element_text(size=16)) +OP_PLOT <- ggplot(REG_DATA,aes(x=Capacity,y=log(Emp)))+geom_point()+geom_smooth(method='lm',color="orange")+theme_bw()+ylab("Operating Employment (Natural Log)" )+scale_x_continuous(breaks=seq(0,5000,by=250),labels = scales::comma)+scale_y_continuous(breaks=seq(0,7,by=0.25))+theme(text=element_text(size=20))+xlab("Capacity (MW)") -CONST_PLOT <- ggplot(DATA,aes(x=Capacity,y=Peak_Const))+geom_point()+geom_smooth(method='lm')+theme_bw()+ylab("Peak Construction Employment" )+scale_x_continuous(breaks=seq(0,5000,by=200),labels = scales::comma)+scale_y_continuous(breaks=seq(0,20000,by=200),labels = scales::comma)+theme(text=element_text(size=16)) +CONST_PLOT <- ggplot(DATA,aes(x=Capacity,y=Peak_Const))+geom_point()+geom_smooth(method='lm')+theme_bw()+ylab("Peak Construction Employment" )+scale_x_continuous(breaks=seq(0,5000,by=250),labels = scales::comma)+scale_y_continuous(breaks=seq(0,20000,by=200),labels = scales::comma)+theme(text=element_text(size=20))+xlab("Capacity (MW)" +) png(paste0(OUTPUT_DIR,"Operating_Employment_Fit.png" ) , units = "in", width = 1.25*12, height = 1.25*8, res = 600) OP_PLOT dev.off()