edit rozmiar pas ggplot2

Question

Próbowałem zastosować to rozwiązanie (How can I change the size of the strip on facets in a ggplot?1), aby zmienić rozmiar paska na aspektach w ggplot mam zwiększyć rozmiar wysokość

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) 

To, co mam, zwiększa tylko przestrzeń (biały) na górze paska:

Dlaczego to działa inaczej?

Answer 1

Prostym rozwiązaniem jest określenie marginesów swoich elementów strip.text odpowiednio:

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

Coś jak to wydaje się działać:

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) 

Zauważ, że patrząc na g$grobs mówi nam grobs 17, 18 i 19 są paski.

można zautomatyzować drugi krok z:

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]] 
})