r - ggplot：根据条内级别的百分比分量更改堆叠条的顺序

Question

我在 ggplot 中创建了一个堆积条形图。

antr1$Traits4<-factor(antr1$Traits4,
                      levels=c("Flight", "Avoidance", "Investigative",
                               "Defensive aggression","Active aggression"))

ggplot(antr1, aes(Receiver3, fill=Traits4)) + 
  geom_bar(position="fill") + 
  coord_flip() +
  scale_y_continuous("", formatter="percent") + 
  scale_fill_manual(values=c("Flight"="yellow",
                             "Avoidance"="green",
                             "Investigative"="blue",
                             "Defensive aggression"="orange",
                             "Active aggression"="red"))  

它工作得很好。然而，目前这些条形图是根据“Receiver3”的名称按字母顺序排列的。我想根据“主动攻击”级别的百分比重新排列堆叠的条形图。

提前谢谢你

马特

Answer 1

如果您知道您想要的 Receiver3 级别的顺序，您可以通过以下方式指定：

antr1$Receiver3 <- factor(antr1$Receiver3,
                    levels=c(...list the levels in the order you'd like...),
                    ordered=TRUE)

如果 Receiver3 有很多级别，因此无法手动确定正确的顺序，您可以尝试以下操作：

temp <- aggregate(antr1$Traits4,by=list(receiver=antr1$Receiver3),
          FUN=function(xx){
                return(sum(xx=='Active aggression')/length(xx))
          }
antr1$Receiver3 <- factor(antr1$Receiver3,levels=temp$receiver[order(temp$x)],
                     ordered=TRUE)

如果要相反的顺序，请将 order(temp$x) 更改为 order(temp$x,decreating=TRUE)。