Sensitivity Shock G on open economy

ThreeME team

OFCE, NEO

22 septembre 2023

variable_macro <- c( "Y", "CH", "I", "G")
label_macro <- c("GDP", "Households consumption", "Investment", "Public spending")

A <- simpleplot(data_full,variable_macro, label_macro, startyear, endyear,  transformation = "reldiff", titleplot = " GDP and its components (in relative difference from baseline)",
           unit = "percent", decimal = 0.1 ,scenario = "shock_g_p_0.5_u_1.5_tra", name_baseline = "baseline_p_0.5_u_1.5_tra")
B <- simpleplot(data_full,variable_macro, label_macro, startyear, endyear,  transformation = "reldiff", titleplot = " GDP and its components (in relative difference from baseline)",
           unit = "percent", decimal = 0.1 ,scenario = "shock_g_p_0.5_u_0.5_tra", name_baseline = "baseline_p_0.5_u_0.5_tra")

ggarrange(A,B,
labels = c("(a)", "(b)"),
hjust = -0.5, vjust = 1.5,
ncol = 2, nrow = 1,
widths = 2,  heights = 1)