ggplot2

Question

में मार्जिन/आकृति क्षेत्र की चौड़ाई को संरेखित/सेट करना मुझे एक दूसरे के नीचे कई भूखंडों की स्थिति की आवश्यकता है और मैं मार्जिन और आकृति क्षेत्रों की चौड़ाई समान होना चाहता हूं, इसलिए वे अच्छी तरह से संरेखित हैं। ध्यान दें, मुझे दो एकल भूखंडों की आवश्यकता है, न कि एक संयुक्त साजिश। मैं प्रत्येक को एक अलग पीएनजी फ़ाइल में सहेजना चाहता हूं। मैं सिर्फ उनकी संरचना (मार्जिन, आकृति क्षेत्र का आकार) समान होना चाहता हूं।)

;

library(ggplot2) 

d <- data.frame(label=c("some very longe label with lots of text", 
         "another long label with lots of text", 
         "short", 
         "also short", 
         "          short", 
         "        also short"), 
         x = 1:6) 

ggplot(d[1:2, ], aes(label, x)) + geom_bar(stat = "identity") + coord_flip() 
ggplot(d[3:4, ], aes(label, x)) + geom_bar(stat = "identity") + coord_flip() 

मैं क्या चाहता हूँ, कम या ज्यादा नीचे की तरह, बिना पाठ्यक्रम के अतिरिक्त कारतूस जोड़ने साजिश 2 भूखंड 1 में के रूप में ही बाईं मार्जिन चौड़ाई है

आधार ग्राफिक्स में मैं केवल par("mar") सेट कर दूंगा।

मैं इसे ggplot में कैसे प्राप्त कर सकता हूं?

Answer 1

last link from the comment above, से उत्तर के आधार पर आप भूखंडों की चौड़ाई को समान कर सकते हैं। उस उत्तर से केवल अंतर यह है कि वे संयुक्त नहीं हैं।

अपने भूखंडों के लिए

तो

library(ggplot2) 
p1 <- ggplot(d[1:2, ], aes(label, x)) + geom_bar(stat = "identity") + coord_flip() 
p2 <- ggplot(d[3:4, ], aes(label, x)) + geom_bar(stat = "identity") + coord_flip() 

समानता भूखंड की चौड़ाई

library(grid) 
gl <- lapply(list(p1,p2), ggplotGrob) 
wd <- do.call(unit.pmax, lapply(gl, "[[", 'widths')) 
gl <- lapply(gl, function(x) { 
     x[['widths']] = wd 
     x}) 

प्लॉट

grid.newpage(); grid.draw(gl[[1]]) 
grid.newpage(); grid.draw(gl[[2]]) 

कौन सा पैदा करता है:

प्लॉट 1

012,

प्लॉट 2