पहलुओं (ggplot2)

Question

ggplot2 के बीच क्षैतिज अंतर को बदलने के लिए opts में तर्क panel.margin का उपयोग करके एक पहलू साजिश के बीच मार्जिन को बदलने की क्षमता है। ऐसा लगता है कि क्षैतिज और ऊर्ध्वाधर अंतर दोनों बदलते हैं। क्या दूसरे को बदलने के बिना क्षैतिज या ऊर्ध्वाधर के अंतर को बदलने का कोई तरीका है?

परिणाम और वांछित परिणाम के साथ एक उदाहरण:

mtcars[, c("cyl", "am", "gear")] <- lapply(mtcars[, c("cyl", "am", "gear")], as.factor) 

p <- ggplot(mtcars, aes(mpg, wt, group = cyl)) + 
    geom_line(aes(color=cyl)) + 
    geom_point(aes(shape=cyl)) + 
    facet_grid(gear ~ am) + 
    theme_bw()   

p + opts(panel.margin = unit(1, "lines")) 

तो यह वर्तमान में दिखाई देता है:

हम इसे देखने के लिए कैसे कर सकते हैं और अधिक की तरह:

Answer 1

9 वीं जुलाई, 2015 के रूप में, panel.margin.x और panel.margin.y

p <- p + theme(panel.margin.x=unit(0.5, "lines") + panel.margin.y=unit(1,"lines")) 

लागू किया गया है करने के लिए 15 दिसंबर, 2016 के रूप में, 'panel.spacing' लगते हैं और 'panel.spacing.x '3.3 3.3 और ggplot2 2.2.0

p <- p + theme(panel.spacing.x=unit(0.5, "lines"),panel.spacing.y=unit(1, "lines")) 

Answer 2

एक मैनुअल समाधान जब तक यह सुविधा उपलब्ध हो जाती है:

library(grid) 
height <- 0.5 # Vertical spacing 
aux <- 1e-5 # Auxiliary number to identify 'height' among other heights 
width <- 0.1 # Desirable horizontal spacing 

p <- p + theme(panel.margin = unit(height + aux, "lines")) 

gtable <- ggplot_gtable(ggplot_build(p)) 
gtable$widths[sapply(gtable$widths, '[[', 1) == height + aux][[1]][[1]] <- width 
grid.draw(gtable)