反向堆积条形图

Question

我正在使用ggplot创建堆积的条形图，如下所示：

plot_df <- df[!is.na(df$levels), ] 

ggplot(plot_df, aes(group)) + geom_bar(aes(fill = levels), position = "fill")

这给了我这样的东西：

在此处输入图片说明

如何颠倒堆叠条形图本身的顺序，以使级别1在每个条形图的底部，而级别5在每个条形图的顶部？

我已经看到了很多问题（例如，如何使用ggplot2上的标识来控制堆叠条形图的排序），常见的解决方案似乎是按照该级别对数据帧进行重新排序，因为ggplot使用的是确定顺序

因此，我尝试使用dplyr重新排序：

plot_df <- df[!is.na(df$levels), ] %>% arrange(desc(levels))

但是，剧情也是一样。我是按升序还是降序排列似乎也没有影响

这是一个可重现的示例：

group <- c(1,2,3,4, 1,2,3,4, 1,2,3,4, 1,2,3,4, 1,2,3,4, 1,2,3,4)

levels <- c("1","1","1","1","2","2","2","2","3","3","3","3","4","4","4","4","5","5","5","5","1","1","1","1")

plot_df <- data.frame(group, levels)

ggplot(plot_df, aes(group)) + geom_bar(aes(fill = levels), position = "fill")

Answer 1

如果要以相反的顺序堆叠，请尝试 forcats::fct_rev()library(ggplot2)&nbsp; &nbsp;# version 2.2.1 used&nbsp; &nbsp;&nbsp;plot_df <- data.frame(group = rep(1:4, 6),&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; levels = factor(c(rep(1:5, each = 4), rep(1, 4))))ggplot(plot_df, aes(group, fill = forcats::fct_rev(levels))) +&nbsp;&nbsp; geom_bar(position = "fill")反向水平这是原始情节：ggplot(plot_df, aes(group, fill = levels)) +&nbsp;&nbsp; geom_bar(position = "fill")原始情节或者，position_fill(reverse = TRUE)按照alistaire在评论中的建议使用：ggplot(plot_df, aes(group, fill = levels)) +&nbsp;&nbsp; geom_bar(position = position_fill(reverse = TRUE))在此处输入图片说明请注意，图例中的级别（颜色）与堆叠条形的顺序不同。

Answer 2

position_fill(reverse = TRUE)标准化条，position_stack(reverse = TRUE)如果您不想标准化条，请使用。