ggplot2

Question

में scatterplots (जोड़े() समकक्ष) के एक मैट्रिक्स यह ggplot2 साथ बिखराव भूखंडों के एक मैट्रिक्स प्लॉट करने के लिए संभव है बनाएँ, रंग करने के लिए मानचित्रण अतिरिक्त कारकों की तरह ggplot की अच्छी सुविधाओं का उपयोग कर, आकार आदि और चिकनी जोड़ने?

मैं base फ़ंक्शन pairs के समान कुछ के बारे में सोच रहा हूं। एक कारक नहीं होना चाहिए

library(ggplot2) 
    data(mtcars) 
    plotmatrix(mtcars[,1:3]) 

मेरे लिए mpg (mtcars में पहले स्तंभ):

Answer 1

आप plotmatrix की कोशिश करना चाहते हो सकता है। मैंने इसे चेक नहीं किया है, लेकिन ऐसा कोई कारण नहीं है कि यह एक होना चाहिए। हालांकि मैं एक बिखराव साजिश :)

---

नोट मिलता है: भविष्य में संदर्भ के लिए, plotmatrix() समारोह @ naught101 इस सवाल का in another response below पता चलता है के रूप में GGally पैकेज से ggpairs() समारोह ने ले लिया है।

Answer 2

मैं यह करना चाहता हूं, लेकिन प्लॉटमैट्रिक्स बकवास है। इसके बजाय GGally package का उपयोग करके हैडली recommends। इसमें एक फ़ंक्शन है, ggpairs जो कि एक बहुत ही बेहतर जोड़े प्लॉट है (आपको अपने डेटा फ्रेम में गैर-निरंतर चर का उपयोग करने देता है)। यह प्रत्येक वर्ग में अलग अलग भूखंडों भूखंडों, चर प्रकार पर निर्भर करता है:

library(GGally) 
ggpairs(iris, aes(colour = Species, alpha = 0.4)) 

Answer 3

एक एक ggplot वस्तु (ggpairs() के मामले में के रूप में नहीं ggmatrix) प्राप्त करने के लिए चाहता है, समाधान पिघल है डेटा दो बार, फिर ggplot फ़ेसटिंग के साथ। facet_wrap प्लॉट किए गए क्षेत्र को सीमित करने में facet_grid से बेहतर होगा, scales = 'free' पैरामीटर प्रदान किए जाने पर दिया गया है।

require(ggplot2) 
require(dplyr) 
require(tidyr) 

gatherpairs <- function(data, ..., 
         xkey = '.xkey', xvalue = '.xvalue', 
         ykey = '.ykey', yvalue = '.yvalue', 
         na.rm = FALSE, convert = FALSE, factor_key = FALSE) { 
    vars <- quos(...) 
    xkey <- enquo(xkey) 
    xvalue <- enquo(xvalue) 
    ykey <- enquo(ykey) 
    yvalue <- enquo(yvalue) 

    data %>% { 
    cbind(gather(., key = !!xkey, value = !!xvalue, !!!vars, 
       na.rm = na.rm, convert = convert, factor_key = factor_key), 
      select(., !!!vars)) 
    } %>% gather(., key = !!ykey, value = !!yvalue, !!!vars, 
       na.rm = na.rm, convert = convert, factor_key = factor_key) 
} 

iris %>% 
    gatherpairs(Sepal.Length, Sepal.Width, Petal.Length, Petal.Width) %>% { 
    ggplot(., aes(x = .xvalue, y = .yvalue, color = Species)) + 
     geom_point() + 
     geom_smooth(method = 'lm') + 
     facet_wrap(.xkey ~ .ykey, ncol = length(unique(.$.ykey)), scales = 'free', labeller = label_both) + 
     scale_color_brewer(type = 'qual') 
}