如何使用useOuterStrips和doubleYScale（格子）一起获得刻度线？

Question

我想使用useOuterStrips和来自latticeExtra包的doubleYScale制作一个类似下面最小例子的图。它确实工作安静，但有一个主要问题，左刻度标记由面板标题（0,1）覆盖。 我该如何解决这个问题？

library(lattice)
library(latticeExtra)
mtcars$am = as.factor(mtcars$am)
mtcars$cyl = as.factor(mtcars$cyl)

foo = xyplot(mpg ~ hp|cyl*am, data=mtcars)
bar = xyplot(qsec ~ hp|cyl*am, data=mtcars)

FooBar = doubleYScale(foo, bar)
useOuterStrips(FooBar)