How to move the square on the diagram

I have such a diagram, and I want to move the red square a little down (like a blue one). I tried to change all parameters, but can to move it only to the left or to the right. I don't know how to move the square up/down. Now my square is on the center of the diagram.

enter image description here

 library(grid)
 library(lattice)
 library(sandwich)

 data("Investment")
 Investment <- as.data.frame(Investment)

 trellis.par.set(theme = canonical.theme("postscript", color=FALSE))
 grid.newpage()
 pushViewport(viewport(x=0, width=.4, just="left"))
 print(barchart(table(Investment$Interest)),
  newpage=FALSE)
 popViewport()
 pushViewport(viewport(x=.4, width=.5, just="left"))
 print(xyplot(Investment ~ Price, data=Investment, 
         auto.key=list(space="right"),
         par.settings=list(superpose.symbol=list(pch=c(1, 3, 16),
                             fill="white"))),
  newpage=FALSE)

 pushViewport(viewport(layout=grid.layout(1, 2,
                                     heights=unit(1, "in"),
                                     widths=unit(rep(c(-1, -0.50), length=7),
                                                 rep(c("null", "in"),
                                                       length=7)))))

pushViewport(viewport(layout.pos.col=2, gp=gpar(fill=NA)))
grid.rect(gp=gpar(col="red", fill=NA))

popViewport()