在R中的coord_flip之后反转订单

本文介绍了在R中的coord_flip之后反转订单的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！ 问题描述 来自dbv的数据示例： 性别Sektion 1 m 5 2 m 5 3 w 3B 4 w 3B 5 w 3B 6 m 4 我有下面的图： Sekplot fill = factor（gender）， stat =bin， label = paste（round（（.. count ..）/ sum（.. count ..）* 100）， ％））） Sekplot< - Sekplot + geom_bar（position =fill） Sekplot< - Sekplot + scale_y_continuous（labels = percent） Sekplot< - Sekplot +实验室（title =test） Sekplot Sekplot< - Sekplot + geom_hline（aes（yintercept = ges，linetype =test），color =black，size = 0.75，show_guide = T） Sekplot< - last_plot（）+ coord_flip（） Sekplot< - Sekplot +指南（color = guide_legend（override.aes = list（linetype = 0））， fill = guide_legend（override.aes = list（linetype = 0））， shape = guide_legend（覆盖。 aes = list（linetype = 0））， linetype = guide_legend（））+ theme（legend.title = element_blank（）） Sekplot 输出： 用y轴以错误顺序绘图 如何反转Sektion 轴？我想有一个在顶部，8个在底部。根据groupA $ Date< - factor（groupA $ Date，levels = rev（unique（groupA $ Date））），我试过了：$ / Sekplot 有多种口味，但找不到正确的方式。 解决方案您可以使用 limits 参数添加 scale_x_discrete 来执行此操作。你可以简单地按照你想要的顺序写出限制，但是当你有很多因素级别时，这会变得复杂。相反，您可以从数据集中提取该因子的级别，并利用 rev 将其置于相反的顺序。 它看起来像： scale_x_discrete（limits = rev（levels（dbv $ Sektion））） Data example from dbv: gender Sektion1 m 52 m 53 w 3B4 w 3B5 w 3B6 m 4I have the following plot:Sekplot <- ggplot(dbv,aes(x=Sektion, fill=factor(gender), stat="bin", label = paste(round((..count..)/sum(..count..)*100), "%"))) Sekplot <- Sekplot + geom_bar(position="fill")Sekplot <- Sekplot + scale_y_continuous(labels = percent)Sekplot <- Sekplot + labs(title = "test")Sekplot <- Sekplot + scale_fill_discrete(name="test", breaks=c("m", "w", "k.A."), labels=c("m", "w", "k.A."))Sekplot <- Sekplot + geom_hline(aes(yintercept = ges, linetype = "test"), colour = "black", size = 0.75, show_guide = T)Sekplot <- last_plot() + coord_flip()Sekplot <- Sekplot + guides(colour = guide_legend(override.aes = list(linetype = 0 )), fill = guide_legend(override.aes = list(linetype = 0 )), shape = guide_legend(override.aes = list(linetype = 0 )), linetype = guide_legend()) + theme(legend.title=element_blank())Sekplot Output:Plot with y-axis in wrong orderHow can I reverse the order of the "Sektion" axis? I'd like to have one on top and 8 at the bottom. I tried, according to groupA$Date <- factor(groupA$Date, levels=rev(unique(groupA$Date))):Sekplot <- last_plot() + coord_flip() + scale_x_reverse()in several flavours, but couldn't find the right way. 解决方案 You can add scale_x_discrete with the limits argument to do this. You could simply write out the limits in the order you want, but that gets complicated when you have many factor levels. Instead, you can pull the levels of the factor from your dataset and take advantage of rev to put them in reverse order.It would look like:scale_x_discrete(limits = rev(levels(dbv$Sektion))) 这篇关于在R中的coord_flip之后反转订单的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！