ggplot2 - 在堆积条形图中翻转水平的排序

Question

此代码非常小，应该能够调整为解决方案。

blah <- data.frame(X1=c("Decrease Risk","Don't Know","Increase Risk","No Effect","Decrease Risk","Don't Know","Increase Risk","No Effect"), 
        X2=c("Red Meat","Red Meat","Red Meat","Red Meat","Red Meat","Red Meat","Red Meat","Red Meat"), 
        value=c(1.98,31.19,64.38,2.43,4.65,24.55,35.88,34.90), 
        status=c("Case","Case","Case","Case","Control","Control","Control","Control") 
        ) 

ggplot(blah, aes(X2, value, fill=X1)) + geom_bar() + coord_flip() + facet_wrap(~status) + 
    labs(x="Perceived Risk Factors", y="Percentage (%)", tilte="Some Title", fill="Responses") 

我想的是，在右侧的“控制”有“回应”的级别的顺序颠倒。重点是控制紫色是在里面，然后是蓝色的，然后在外面是绿色和粉红色。在这样的情节中做这件事很常见，我可以想办法做到这一点，其中涉及一些相当脏的变量重复和有序因素水平的变化，但认为某人可能有一个优雅的解决方案/想法？

Answer 1

这是一个使用顺序美学的微妙方法。

ggplot(blah, aes(X2, value, fill = X1, 
    order = (3-as.numeric(status)*2) * as.numeric(X1))) + 
geom_bar() + coord_flip() + facet_wrap(~status) + 
labs(x="Perceived Risk Factors", y="Percentage (%)", title="Some Title", 
    fill="Responses") 

，因为它并不能一概而论所有容易，当有两个以上的方面是不理想的。