I have been estimating a VAR system using R. I have attached a picture of IRFs from this system that I compiled using the following code below:

"

VAR1

#Plots

RESPONSE = c("Dollar","residual","USWealthShare","USWealthShareChange")

IMPULSE = "GlobalConsumption"

fits = lapply(RESPONSE,function(i){

irf(SVAR1,response=i,impulse=IMPULSE,

n.ahead=6,ortho=TRUE,boot=TRUE)

})

names(fits) = c("Dollar","residual","USWealthShare","USWealthShareChange")

plotdf = lapply(names(fits),function(i){

data.frame(

index = 1:nrow(fits[[i]]$irf[[1]]-1),

value=fits[[i]]$irf[[1]][,1],

Lower=fits[[i]]$Lower[[1]][,1],

Upper=fits[[i]]$Upper[[1]][,1],

Impulse = i)

})

plotdf=do.call(rbind,plotdf)

p=ggplot(plotdf,aes(x=index,y=value)) +

geom_line() +facet_wrap(~Impulse) +

geom_ribbon(aes(ymin=Lower,ymax=Upper),fill=NA,col="salmon",linetype="solid", alpha = 0.25) +

geom_hline(yintercept=0,col="salmon") + theme_bw()

"

However as you can see the scales for the bottom two graphs are much smaller, so I am looking to adjust the scales for these graphs to range between 0.01 and -0.01. How would I go about doing this?