Control de la orden de visualización de la leyenda ggplot2

Question

¿Alguien sabe cómo puedo obtener el control del orden de las leyendas en ggplot2?

Por lo que puedo ver, el orden aparece relacionado con las etiquetas de escala reales en lugar del orden de la declaración de escala. Cambiar los títulos de la escala altera el orden. He hecho un pequeño ejemplo usando el dataset de diamante para resaltar esto. Intento usar ggplot2 para una serie de gráficos y quiero hacer que una variable aparezca a la derecha en todos ellos. En este momento, esto solo sucede en algunos de ellos, y no sé cómo hacer para que mi ordenamiento deseado conserve las etiquetas de escala apropiadas.

library(ggplot2) 
diamond.data <- diamonds[sample(nrow(diamonds), 1000), ] 
plot <- ggplot(diamond.data, aes(carat, price, colour = clarity, shape = cut)) + 
    geom_point() + opts(legend.position = "top", legend.box = "horizontal") 
plot # the legend will appear shape then colour 
plot + labs(colour = "A", shape = "B") # legend will be colour then shape 
plot + labs(colour = "Clarity", shape = "Cut") # legend will be shape then colour 

Answer 1

En 0.9.1, la regla para determinar el orden de las leyendas es secreto y impredecible. Ahora, en 0.9.2, versión dev en github, puede usar el parámetro para establecer el orden de la leyenda.

Aquí está el ejemplo:

plot <- ggplot(diamond.data, aes(carat, price, colour = clarity, shape = cut)) + 
    geom_point() + opts(legend.position = "top") 

plot + guides(colour = guide_legend(order = 1), 
       shape = guide_legend(order = 2)) 

plot + guides(colour = guide_legend(order = 2), 
       shape = guide_legend(order = 1)) 

Answer 2

Me parece que el orden de la leyenda se determina por el número de caracteres en los nombres de las escalas. (Sí, estoy de acuerdo, que parece extraño.)

Por lo tanto, una solución es para rellenar las etiquetas con espacios:

plot + labs(colour = "Clarity", shape = "  Cut") 

---

sinceramente espero que alguien publica una solución adecuada ¡pronto!