編輯條帶大小GGPLOT2

Question

我試圖將此溶液（How can I change the size of the strip on facets in a ggplot?1）在ggplot更改條帶大小的面，我有增加高度尺寸

library(ggplot2) 
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(5,"in") 

grid.newpage() 
grid.draw(g) 

這是我得到的，它只會增加條帶頂部的空間（白色）：

爲什麼它的工作方式不同？

Answer 1

一個簡單的解決方法是適當地確定你的strip.text元素的邊距：

ggplot(mtcars, aes(x=gear)) + 
    geom_bar(aes(y=gear), stat="identity", position="dodge") + 
    facet_wrap(~cyl) + 
    theme(strip.text.x = element_text(margin = margin(2,0,2,0, "cm"))) 

Answer 2

像這樣的事情似乎工作：

g$heights[[6]] <- unit(5,"in") 
g$grobs[[17]]$heights <- unit(2,"in") 
g$grobs[[18]]$heights <- unit(2,"in") 
g$grobs[[19]]$heights <- unit(2,"in") 

grid.newpage() 
grid.draw(g) 

注意看g$grobs告訴我們grobs 17，18和19條。

您可以自動進行第二步：

index <- which(sapply(g$grobs, function(x) x$name == "strip")) 
g$grobs <- lapply(seq_along(g$grobs), function(.x) { 
    if(.x %in% index) { 
    g$grobs[[.x]]$heights <- unit(2,"in") 
    } 
    g$grobs[[.x]] 
})