使用 tidyverse 中的 forcats 和 ggplot2 包进行绘图的重新排序因子

Question

首先，感谢^{^13} tidyverse。我希望下图中的条形图遵循由 forcats::fct_reorder () 重新排序的相同因子水平。令人惊讶的是，当 View ()ed 时，我看到数据集中的级别顺序与它们在图表中显示时的顺序不同（见下文）。该图表应说明加分前后不及格学生的数量（我想根据加分前不及格学生的数量对条形进行排序）。

MWE

  ggplot (df) +
  geom_bar (aes (forcats::fct_reorder (subject, FailNo, .desc= TRUE), FailNo, fill = forcats::fct_rev (Bonus)), position = 'dodge', stat = 'identity') +
  theme (axis.text.x=element_text(angle=45, vjust=1.5, hjust=1.5, size = rel (1.2)))

dput(df)的数据输出

structure(list(subject = structure(c(1L, 2L, 5L, 6L, 3L, 7L,
4L, 9L, 10L, 8L, 12L, 11L, 1L, 2L, 5L, 6L, 3L, 7L, 4L, 9L, 10L,
8L, 12L, 11L), .Label = c("CAB_1", "DEM_1", "SSR_2", "RRG_1",
"TTP_1", "TTP_2", "IMM_1", "RRG_2", "DEM_2", "VRR_2", "PRS_2",
"COM_2", "MEB_2", "PHH_1", "PHH_2"), class = "factor"), Bonus = structure(c(2L,
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = c("After", "Before"), class = "factor"),
    FailNo = c(29, 28, 20, 18, 15, 13, 12, 8, 5, 4, 4, 2, 21,
    16, 16, 14, 7, 10, 10, 5, 3, 4, 4, 1)), .Names = c("subject",
"Bonus", "FailNo"), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA,
-24L))

条形图

问题

根据上面的table，SSR_2 var应该排在第五位，IMM_1在第六位，但是在图表中我们看到这两个变量交换他们的位置。在这种情况下，如何在 tidyverse 之后立即对其进行排序？

Answer 1

bonus前排序failNo

library(dplyr)
df_before_bonus <- df %>% filter(Bonus == "Before") %>% arrange(desc(FailNo))

在红利前使用 FailNo 来创建因子

df$subject <- factor(df$subject, levels = df_before_bonus$subject, ordered = TRUE)

更新剧情

ggplot(df) +
    geom_bar(aes (x = subject, y = FailNo, fill = as.factor(Bonus)), 
             position = 'dodge', stat = 'identity') +
    theme (axis.text.x=element_text(angle=45, vjust=1.5, hjust=1.5, size = rel (1.2)))

Answer 2

对您的 x 轴使用 factor 和 unique 级别。

ggplot (df) + 
 geom_bar (aes(factor(forcats::fct_reorder
 (subject, FailNo, .desc= TRUE), 
 levels=unique(subject)), 
 FailNo, 
 fill = forcats::fct_rev (Bonus)), 
 position = 'dodge', stat = 'identity') + 
 theme(axis.text.x=element_text(angle=45, vjust=1.5, hjust=1.5, size = rel (1.2)))

编辑：@dotorate 评论

使用 tidyverse 中的 forcats 和 ggplot2 包进行绘图的重新排序因子

Reordering factor for plotting using forcats and ggplot2 packages from tidyverse

r

ggplot2

tidyverse