ggplot2 से एक पहलू ग्रिड में सहसंबंध मूल्य

Question

ggplot2 में एक facet_grid का उपयोग करते समय मैं विशिष्ट साजिश के ऊपरी दाएं कोने में प्रत्येक ग्रिड सेल के लिए सबसेट किए गए डेटा के सहसंबंध के मान को प्राप्त करने में सक्षम होना चाहता हूं।

उदा। चल रहा है, तो:

p <- ggplot(mtcars, aes(mpg, wt)) + geom_point() 
p + facet_grid(vs ~ am, margins=TRUE) 

मैंने कहीं ग्रिड में 9 भूखंडों से प्रत्येक के लिए सह-संबंध के लिए मूल्य देखना चाहेंगे। उदाहरण से इस विशिष्ट मामले में, मैं उम्मीद करता हूं कि प्रत्येक विज़ुअल निरीक्षण से -0.9 या उससे भी अधिक हो।

या शायद साजिश के साथ जाने के लिए एक आउटपुट टेबल जो तालिका में प्रत्येक कोशिका के लिए सहसंबंध मान देता है facet_grid के साथ मेल खाता है ... (यह कम वांछनीय है लेकिन एक विकल्प भी है)।

आदर्श रूप से मैं इसे किसी भी अन्य समारोह में विस्तारित करना चाहता हूं जिसे मैं चुनता हूं ताकि यह आंकड़ों की गणना करने के लिए प्लॉट किए गए दो चर या दोनों का उपयोग कर सके।

क्या यह संभव है?

अग्रिम

Answer 1

विंस्टन चांग ggplot2 समूह पर एक जवाब का सुझाव दिया ... इस वह क्या कहा ... इसके नहीं एक बुरा जवाब ...

है

आप ऐसा कुछ कर सकते हैं:

p <- ggplot(mtcars, aes(mpg, wt)) + geom_point() 

# Calculate correlation for each group 
cors <- ddply(mtcars, c("vs", "am"), summarise, cor = round(cor(mpg, wt), 2)) 

p + facet_grid(vs ~ am) + 
geom_text(data=cors, aes(label=paste("r=", cor, sep="")), x=30, y=4) 

मुझे नहीं लगता कि यह मार्जिन = TRUE के साथ सही तरीके से बाहर आना संभव है। यदि आप मार्जिन चाहते हैं, तो आपको प्रत्येक डेटािंग चर के लिए एक मूल्य जोड़ने के लिए अपने डेटा को प्रीप्रोसेस करना पड़ सकता है।

-विंस्टन

Answer 2

धन्यवाद मैं नहीं बल्कि एक (लीनियर) के आंकड़ों के चिकनी जोड़ना होगा। यह आपको सहसंबंध से बहुत अधिक जानकारी देता है।

ggplot(mtcars, aes(mpg, wt)) + 
    geom_smooth(method = "loess", colour = "red", fill = "red") + 
    geom_smooth(method = "lm", colour = "blue", fill = "blue") + 
    geom_point() + facet_grid(vs ~ am, margins=TRUE) 

ggplot(mtcars, aes(mpg, wt)) + geom_smooth(method = "lm") + geom_point() + 
    facet_grid(vs ~ am, margins=TRUE)