एक ही सौंदर्यशास्त्र

Question

के लिए एकाधिक किंवदंतियों geom_raster के साथ facet_grid या facet_wrap का उपयोग करने की कोशिश कर रहा हूं। हालांकि, प्रत्येक पैनल में, z सौंदर्यशास्त्र एक अलग पैमाने पर है। उदाहरण के लिए,

##Data at end of question 
ggplot(dd, aes(x,y)) + 
    geom_raster(aes(fill=z)) + 
    facet_grid(type ~ var) 

देता है।

हालांकि, चूंकि सी और डी के औसत मूल्य क्रमशः 0 और 100 हैं, इसलिए हम बहुत सारे संकल्प खो देते हैं। आप भी आजमा सकते:

##Change C to D to get other panel 
ggplot(subset(dd, var=="C"), aes(x,y))+ 
    geom_raster(aes(fill=z)) + 
    facet_grid(type ~ var) + 
    theme(legend.position="bottom") 

जो

और

देता है, लेकिन अब मैं दो y स्ट्रिप्स की है।

प्रश्न

1. मैं fill सौंदर्य के लिए दो किंवदंतियों देने के लिए पहले साजिश को बदल सकते हैं?
2. या, यदि मैं दो अलग-अलग ग्राफ करता हूं, तो क्या मैं प्लॉट्स में से एक पर वाई स्ट्रिप को हटा सकता हूं ताकि मुझे उन्हें एक साथ दबाया जा सके - थीम के साथ गड़बड़ कर, यह सुझाव देता है कि यह संभव नहीं है।

डाटा

डाटा रेखांकन पुन: पेश करने

dd = expand.grid(x=1:10, y=1:10) 
dd = data.frame(dd, type=rep(LETTERS[1:2], each=100), 
      var =rep(c("C", "D"), each=200)) 
dd$z = rnorm(400, rep(c(0, 100), each=200)) 

Answer 1

क्या इस बारे में:

library(gridExtra) 
p1 <- ggplot(subset(dd, var=="C"), aes(x,y))+ 
    geom_raster(aes(fill=z)) + facet_grid(type ~ var) + 
    theme(legend.position="bottom", plot.margin = unit(c(1,-1,1,0.2), "line")) 
p2 <- ggplot(subset(dd, var=="D"), aes(x,y))+ 
    geom_raster(aes(fill=z)) + facet_grid(type ~ var) + 
    theme(legend.position="bottom", plot.margin = unit(c(1,1,1,-0.8), "line"), 
     axis.text.y = element_blank(), axis.ticks.y = element_blank()) + ylab("") 
grid.arrange(arrangeGrob(p1, p2, nrow = 1)) 

भी

आप हो सकता है plot.margin के साथ खेलना चाहते हैं। और ऐसा लगता है कि आपके पहले प्रश्न का नकारात्मक जवाब here पाया जा सकता है।