ggplot2 traccia 3 fattori con qualche jigging sull'asse x

Question

Voglio fare un grafico a punti con ggplot2 geom_point dove una variabile continua è stratificata da diversi fattori.

E 'piuttosto complicato, forse sto cercando di mostrare troppo in un solo grafico, ma ho tre diversi fattori che influenzano le cose

voglio mostrare come questo

p <- ggplot(mtcars[,c(1,2,10,11)], aes(factor(cyl), mpg)) 
p + geom_point(aes(colour = factor(gear), shape=factor(carb))) 

Tuttavia, voglio dividere il fattore (ingranaggio), vale a dire per ciascuno dei tre fattori (cilindro) valore sull'asse x, voglio una piccola distanza tra i diversi fattori (ingranaggio) colori sull'asse x

cioè all'interno di factor (cyl) == 4, factor (gear) == 3 è una sorta di su 3.9, factor (gear) == 4 is on 4 e factor (gear) == 5 è sort of on 4.1. Questo è ripetuto per ogni valore di fattore (cil).

speranza che abbia un senso

NB questo è un esempio di giocattoli. Lo farei usando valori categoriali, non numerici invece di numeri fattorizzati; Mi rendo conto che avere valori su 3.9/4.1 è fonte di confusione.

Answer 1

Con facet_grid() e mtcars esempio:

library(ggplot2) 
data(mtcars) 

p <- ggplot(mtcars, aes(factor(cyl), mpg)) + geom_point(aes(colour=factor(carb))) 
p + facet_grid(. ~ gear) 

Answer 2

subset è un modo per farlo. Sottoinsi i dati per gears, quindi posiziona il set di punti per ogni sottoinsieme a turno.

library(ggplot2) 

p <- ggplot() 
p + geom_point(data = subset(mtcars[,c(1,2,10,11)], gear == 3), aes(x = as.numeric(factor(cyl)) - 0.1, y = mpg, colour = factor(gear), shape=factor(carb))) + 
    geom_point(data = subset(mtcars[,c(1,2,10,11)], gear == 4), aes(x = as.numeric(factor(cyl)), y = mpg, colour = factor(gear), shape=factor(carb))) + 
    geom_point(data = subset(mtcars[,c(1,2,10,11)], gear == 5), aes(x = as.numeric(factor(cyl)) + .1, y = mpg, colour = factor(gear), shape=factor(carb))) + 
    scale_x_continuous("Cylinders", breaks = c(1,2,3), labels = c(4,6,8), expand = c(.2,0))