在不改变积分顺序的情况下重新排序图例

Question

我一直在ggplot2中遇到这个问题，也许有人可以帮助我。

我有一个情节，图例中变量的顺序与它们在情节中的显示顺序相反。

例如：

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() 

生产：

所以点被显示在情节作为CAT2 = Z，Y，然后X（黑钻石，蓝色三角形，红圆形），但在图例中它们显示为Cat2 = X，Y，然后Z（红色圆圈，蓝色三角形，黑色菱形）。

如何在不改变图上的点的情况下颠倒图例的顺序？重新排列该因素会产生相反的问题（图上的点是相反的）。

谢谢！

Answer 1

据我了解你想要达到的目标，这个简单的操控确实为我的伎俩：

1. 定义CAT2的一个因素（在适当的顺序水平）和
2. 恰克的颜色和形状的以匹配水平顺序（在scale_manual命令）

下面是代码做到这一点：

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

为了充实哈德利的意见，我们会做这样的事情：

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() 

请注意，我们必须设定断裂处都尺度。如果我们只做了一个，它们就不会匹配，ggplot会将它们分成两个传说，而不是合并它们。