Sắp xếp lại chú thích mà không thay đổi thứ tự các điểm trên lô

Question

Tôi tiếp tục gặp vấn đề này trong ggplot2, có lẽ ai đó có thể giúp tôi.

Tôi có một âm mưu mà thứ tự của các biến trong chú giải theo thứ tự ngược với cách chúng được hiển thị trên cốt truyện.

Ví dụ:

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

sản xuất:

Vì vậy, các điểm được hiển thị trên cốt truyện như Cat2 = Z, Y, sau đó X (kim cương đen, hình tam giác màu xanh, đỏ vòng tròn) nhưng trong chú giải chúng được hiển thị dưới dạng Cat2 = X, Y, rồi Z (vòng tròn màu đỏ, hình tam giác màu xanh, kim cương đen).

Làm cách nào để đảo ngược thứ tự của chú giải mà không phải dịch chuyển các điểm trên ô? Sắp xếp lại các yếu tố tạo ra vấn đề ngược lại (điểm trên cốt truyện được đảo ngược).

Cảm ơn!

Answer 1

Theo như tôi hiểu những gì bạn muốn đạt được, thao tác đơn giản này hiện các trick cho tôi:

1. định nghĩa một Cat2 như một nhân tố (với các mức theo thứ tự đầy đủ) và
2. chage thứ tự của màu sắc và hình dạng để phù hợp với trình tự cấp (trong các lệnh scale_manual)

đây là đoạn mã để làm điều đó:

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

Để xác thịt comment Hadley, chúng tôi sẽ làm một cái gì đó như thế này:

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

Lưu ý rằng chúng tôi phải thiết lập các đứt gãy trong cả vảy. Nếu chúng tôi chỉ làm một, họ sẽ không phù hợp, và ggplot sẽ chia chúng thành hai huyền thoại, thay vì hợp nhất chúng.