संपादित पट्टी आकार 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 को देखकर हमें 17, 18 और 19 grobs स्ट्रिप्स हैं बताता है कि।

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