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

Increased fig font size. Added units

Browse Source
This commit is contained in:
Alex Gebben Work 2026-04-29 12:55:28 -06:00
parent 2c94e6c067
commit 4c978fc024
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
REMI_Inputs.r
View File

@ -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()