r - 在 ggplot2 中更改条形文本背景的高度不能按预期工作 ggplot2 V 2.2.0

Question

加载库

library(ggplot2) #Version 2.2.1
library(gtable)

构建地块

d <- ggplot(mtcars, aes(x=gear)) + 
            geom_bar(aes(y=gear), stat="identity", position="dodge") +
            facet_wrap(~cyl)

目的：改变条形文字的高度

g <- ggplotGrob(d)
g$heights[[3]] = unit(2,"in")
g$grobs[[5]]$heights <- g$grobs[[6]]$heights <-
    g$grobs[[7]]$heights <- unit(1, "native") # or "npc"
grid.newpage()

预期结果（根据旧的 ggplot 2.1.0）

问题：获得的结果（在 ggplot2 2.2.1 中）

上述解决方案来自此处，在 ggplot2 2.1.0 版中运行良好。

那么在 ggplot2 V 2.2.1 中应该如何修改带状背景高度呢？非常感谢各位！