Ändern der Plotreihenfolge für gestapeltes Balkendiagramm

Question

Ich versuche, die Reihenfolge der Plotts von Gruppen in einem gestapelten Balkendiagramm zu ändern. Andere haben ähnliche Fragen gestellt, z.B. here und here, aber ich kann nicht scheinen, etwas ähnliches zur Arbeit zu bekommen.

Hier ist ein Spielzeugbeispiel. Ich habe einen Datenrahmen mit einer Anzahl von Standorten, deren Breitengrad und die Anzahl der Mäuse, Ratten, Hasen und Hunde an jedem von ihnen. Ich würde gerne ein gestapeltes Balkendiagramm mit Standorten erstellen, die nach dem Breitengrad auf der Y-Achse und der Anzahl der Tiere auf der X-Achse angeordnet sind. Ich möchte, dass die Tierbalken in einer bestimmten Reihenfolge (z. B. nach Größe, kleinste bis größte) gezeichnet werden.

Ich habe einen Code geschrieben, der meiner Meinung nach funktionieren sollte, aber mein Versuch, die Reihenfolge der Zeichnungen für die Tiere festzulegen, arrangiert nur die Legende, nicht die Handlung selbst.

library(ggplot2) 
df <- read.table(header=TRUE, text="site group taxa latitude 
A mouse 2 -20 
           B rat 3 -17 
           C dog 6 -18 
           D rabbit 7 -24 
           A rabbit 2 -20 
           B mouse 5 -17 
           C rabbit 3 -18 
           D dog 2 -24 
           A dog 3 -20 
           B rabbit 4 -17 
           C mouse 3 -18 
           D mouse 2 -24") 

plotOrder <- c("mouse","rat","rabbit","dog") #set the order in which I want to plot the groups 
df$group <- factor(as.character(df$group), levels = plotOrder) #reorders the legend & colour, not plotting order 

plot1 <- 
    ggplot(data = df, 
     aes(x=reorder(site, latitude), y=taxa, fill=group))+ 
    geom_bar(aes(order = group), stat="identity") + 
    coord_flip() 
plot1 

Vielen Dank im Voraus.

Answer 1

Sie können dies erreichen, indem die ganze data.frame Bestellung:

plot1 <- 
    ggplot(data = df[order(df$site, df$group),], 
     aes(x=reorder(site, latitude), y=taxa, fill=group))+ 
    geom_bar(stat="identity") + 
    coord_flip() 
plot1