Punti colorazione per fattore all'interno del margine di un diagramma ggplot2 sfaccettato in R

Question

Mi piacerebbe creare un grafico sfaccettato con margini in ggplot2. Tuttavia, mi piacerebbe che la trama del margine avesse colori in base a quale facet il punto particolare è stato derivato. E 'probabilmente meglio illustrato con un esempio:

library(ggplot2) 

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

all'interno della trama margine di etichettato come "(tutti)", voglio quei puntini che hanno "marcia = 3" da tracciare con un colore, quelli con "marcia = 4 "con un secondo colore e quelli con" ingranaggio = 5 "con un terzo.

questo non fare il lavoro:

p <- ggplot(mtcars, aes(mpg, wt)) + geom_point(aes(col=gear)) 
p + facet_grid(.~gear, margins = TRUE) 

C'è un modo per ottenere ciò che voglio?

Answer 1

Come creare una nuova variabile come riferimento e colorarne i punti? Sembra funzionare a condizione che non ti dispiaccia anche i punti delle prime 3 facce colorate.

mtcars$ref <- as.factor(mtcars$gear) 

p <- ggplot(mtcars, aes(mpg, wt)) + geom_point(aes(col=as.factor(gear))) 
p + facet_grid(.~ref, margins = TRUE) 

EDIT: sono riuscito a farlo per rimuovere la chiave di colore dai primi 3 sfaccettature, ma non senza giocare con i dati originali;

Duplicare i dati originali (quindi ci sono 2 di ciascun record) quindi anziché utilizzare un grafico di margine per produrre il facet "tutto", utilizzando invece i record ridondanti.

library(ggplot2) 

mtcars$ref <- (mtcars$gear) 

# create the duplicate 
dat <- do.call("rbind", replicate(2, mtcars, simplify = FALSE)) 

# give the duplicates a false value for "gear" so they can be plotted together 
#This value can then be used for faceting, grouping everything with "all". 

dat$ref[1:32] <- "all" 


# where not in the "all" facet, change "gear" to one (so they are plotted with the same colour) 
dat$gear[dat$ref != "all"] <- 1 

# then plot using ref as the facet and gear to colour points. 

p <- ggplot(dat, aes(mpg, wt)) + geom_point(aes(col=as.factor(gear))) 
p + facet_grid(.~ref, margins = F) 

io non sono sicuro che sia il modo migliore per andare su di esso, ma forse qualcuno con più esperienza potrebbe essere in grado di consigliare?

Answer 2

Un'altra opzione sarebbe quella di creare le trame sfaccettate e la trama margine separatamente e utilizzare la libreria gridExtra di combinarli:

library(ggplot2) 
library(gridExtra) 
mtcars$ALL <- "all" 
p <- ggplot(mtcars, aes(mpg, wt)) 
p1 <- p + geom_point() + facet_grid(.~gear) 
p2 <- p + geom_point(aes(color=factor(gear))) + facet_grid(.~ALL) 
grid.arrange(p1, p2, ncol=2)