Riordina la legenda senza cambiare l'ordine dei punti sulla trama

Question

Continuo a riscontrare questo problema in ggplot2, forse qualcuno può aiutarmi.

Ho un grafico in cui l'ordine delle variabili nella legenda è in ordine inverso rispetto al modo in cui vengono visualizzate sulla trama.

Ad esempio:

df=data.frame(
mean=runif(9,2,3), 
Cat1=rep(c("A","B","C"),3), 
Cat2=rep(c("X","Y","Z"),each=3)) 

dodge=position_dodge(width=1) 
ggplot(df,aes(x=Cat1,y=mean,color=Cat2))+ 
geom_point(aes(shape=Cat2),size=4,position=dodge)+ 
scale_color_manual(values=c("red","blue","black"))+ 
scale_shape_manual(values=c(16:19))+ 
coord_flip() 

produce:

Così i punti vengono visualizzati sulla trama come Cat2 = Z, Y, allora X (diamanti neri, triangolo blu, rosso cerchio) ma nella legenda vengono visualizzati come Cat2 = X, Y, quindi Z (cerchio rosso, triangolo blu, diamante nero).

Come è possibile invertire l'ordine della legenda senza spostare i punti sul grafico? Riordinare il fattore produce il problema opposto (i punti sulla trama sono invertiti).

Grazie!

Answer 1

Per quanto ho capito cosa si vuole raggiungere, questa semplice manipolazione fa il trucco per me:

1. definire un Cat2 come un fattore (con i livelli nell'ordine adeguato) e
2. chage l'ordine di colori e forme per abbinare l'ordine livelli (nei comandi scale_manual)

Ecco il codice per farlo:

library(ggplot2) 

df=data.frame(
    mean=runif(9,2,3), 
    Cat1=rep(c("A","B","C"),3), 
    Cat2=factor(rep(c("X","Y","Z"),each=3), levels=c('Z', 'Y', 'X'))) 

dodge=position_dodge(width=1) 
ggplot(df,aes(x=Cat1,y=mean,color=Cat2))+ 
    geom_point(aes(shape=Cat2),size=4,position=dodge)+ 
    scale_color_manual(values=c("black","blue","red"))+ 
    scale_shape_manual(values=c(18:16))+ 
    coord_flip() 

Answer 2

per rimpolpare il commento di Hadley, vorremmo fare qualcosa di simile:

ggplot(df,aes(x=Cat1,y=mean,color=Cat2))+ 
geom_point(aes(shape=Cat2),size=4,position=dodge)+ 
scale_color_manual(values=c("red","blue","black"),breaks = c('Z','Y','X'))+ 
scale_shape_manual(values=c(16:19),breaks = c('Z','Y','X'))+ 
coord_flip() 

Si noti che abbiamo dovuto impostare le pause in entrambi scale. Se ne facessimo uno solo, non corrisponderebbero, e ggplot li dividerebbe in due leggende, invece di fonderli.