grid.arrange

Question

मैं विषय के बीच किसी भी स्थान के बिना दो भूखंडों छड़ी करना चाहते हैं के साथ संयुक्त दो ggplots के बीच सभी अंतरिक्ष को हटाने (ताकि वे एक धुरी का हिस्सा)।

को देखते हुए:

p1 <- qplot(1,1,xlab="") 

p1 <- p1 + 
    theme(legend.position="none", 
     axis.text.x=element_blank(), 
     axis.ticks.x=element_blank(), 
     plot.margin=unit(c(1,1,0,1), "cm"), 
     panel.margin=unit(c(1,1,0,1), "cm")) 
p2 <- qplot(1,2) 

grid.arrange(p1,p2) 

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

मैं दो भूखंडों के बीच सफेद स्थान को खत्म करना चाहते हैं।

मेरे पास इंप्रेशन ट्विकिंग ऊंचाई है, जैसा कि चौड़ाई के लिए किया गया है: left align two graph edges (ggplot) समाधान है, लेकिन इसे समझ नहीं सकता है।

Answer 1

आपको दोनों प्लॉट्स के लिए plot.margin प्रदान करना चाहिए और पी 2 के लिए ऊपरी मार्जिन के लिए नीचे मार्जिन के लिए नकारात्मक मान सेट करना चाहिए। यह सुनिश्चित करेगा कि दोनों साजिश शामिल हों।

p1 <- qplot(1,1,xlab="")+ 
    theme(legend.position="none", 
     axis.text.x=element_blank(), 
     axis.ticks.x=element_blank(), 
     plot.margin=unit(c(1,1,-0.5,1), "cm")) 
p2 <- qplot(1,2)+ 
    theme(legend.position="none", 
     plot.margin=unit(c(-0.5,1,1,1), "cm")) 


grid.arrange(p1,p2) 

Answer 2

grid.arrange

उपयोग करने से पहले भूखंडों (P1, P2) के आसपास छोड़ दिया और नीचे मार्जिन को दूर करने के

+ labs(x=NULL) 

या

+ labs(x=NULL, y=NULL) 

कोशिश

p1 <- qplot(1,1)+ 
theme_bw() + 
theme(axis.text.x=element_blank(), 
axis.ticks.x=element_blank(), 
plot.margin = rep(unit(0,"null"),4), 
panel.margin = unit(0,"null"), 
axis.ticks.length = unit(0,"null"), 
axis.ticks.margin = unit(0,"null")) + 
labs(x=NULL) 
p2 <- qplot(1,2)+ 
theme_bw() + 
theme(
plot.margin = rep(unit(0,"null"),4), 
panel.margin = unit(0,"null"), 
axis.ticks.length = unit(0,"null"), 
axis.ticks.margin = unit(0,"null")) 

grid.arrange(p1,p2)