आर ggplot - सभी पहलुओं

Question

अब तक के लिए सभी डेटा बिंदुओं को जोड़ने मैं एक उचित उत्तर नहीं मिलता है, यहाँ आर में ggplot2 के बारे में मेरे छोटे से सवाल यह है:

data(mtcars) 
ggplot(data=mtcars, aes(x=mpg, y=wt, fill=factor(cyl))) + 
scale_fill_manual(values=c("red","orange","blue"))+ 
geom_point(size=2, pch=21)+ 
facet_grid(.~cyl) 

यह सब ठीक है , अब मैं सभी पहलुओं (चाहे अंक के नीचे एक चिकनी भूरे रंग के साथ) में सभी डेटा अंक (भले ही किस संख्या में सिल है)?

आशा इस में सहायक है:

g1 <- ggplot(data=mtcars, aes(x=mpg, y=wt)) + 
    geom_point(data=mtcars[, c("mpg", "wt")], aes(x=mpg, y=wt), colour="grey") + 
    geom_point(size=2, pch=21, aes(fill=factor(cyl))) + 
    scale_fill_manual(values=c("red","orange","blue")) + 
    facet_wrap(~cyl) 

इस साजिश का उत्पादन:

धन्यवाद, माइकल

Answer 1

लिंक @beetroot द्वारा दिए गए का उपयोग करना, मैं इस तरह कुछ करने के लिए कर रहा था ।

Answer 2

यहां एक मामूली सरलीकरण है जो जीवन को थोड़ा आसान बनाता है। पृष्ठभूमि की geom_point() परत पर प्रदान किए गए डेटा से फ़ेसिंग चर को हटाने के लिए आपको केवल एक चीज है।

library(tidyverse) 
ggplot(data=mtcars, aes(x=mpg, y=wt)) + 
    geom_point(data=select(mtcars,-cyl), colour="grey") + 
    geom_point(size=2, pch=21, aes(fill=factor(cyl))) + 
    scale_fill_manual(values=c("red","orange","blue")) + 
    facet_wrap(~cyl)