R ggplot - l'aggiunta di tutti i punti dati a tutte le sfaccettature

Question

fino ad ora non riesco a trovare una risposta adeguata, ecco la mia domanda breve di ggplot2 in R:

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) 

Questo è tutto bene , ora voglio tutti i punti di dati (indipendentemente dal numero di cyl) in ogni aspetto (ad esempio con un grigio uniforme sotto i punti)?

Grazie, Michael

Answer 1

Utilizzando il link data dal @beetroot, sono stato in grado di fare qualcosa del genere:

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) 

Questo produce la trama:

Spero che questo ti aiuta .

Answer 2

Ecco una leggera semplificazione che semplifica la vita. L'unica cosa che devi fare è rimuovere la variabile di sfaccettatura dai dati forniti allo strato di sfondo 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)