r - ggplot2 でストリップ テキスト背景の高さを変更しても期待どおりに動作しない

Question

###Load libraries

library(ggplot2)
library(gtable)

###Build plot

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

###Change height of strip text

g <- ggplotGrob(d)
g$heights[[3]] = unit(2,"in")
grid.newpage()
grid.draw(g)

得られた結果 ( ggplot2_2.0.0)

期待される結果 ( ggplot2_1.0.1)

質問

ここで中つ国で何が起こっているのですか？

Answer 1

これはトリックを行うようです

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()
grid.draw(g)

unit(1, "native")正の数に置き換えても機能します。またはTRUE（理由はわかりませんが、おそらくある時点で、これはデフォルトのタイプ単位、おそらく「npc」に強制されます）