如何根据 Y 值中的 facet_wrap 对构面进行排序？

Question

有没有办法根据它们的 Y 值（又名count ）以降序动态重新排序这些方面 - 无需对顺序进行硬编码（给定与package类似的列，具有数百个级别？

  library(cranlogs)
  library(tidyverse)   

  tidyverse_downloads <- cran_downloads(
      packages = pkgs,
      from     = "2017-01-01",
      to       = "2017-06-30") %>%
      tibble::as_tibble() %>%
      group_by(package)



  tidyverse_downloads %>%
     ggplot(aes(x = date, y = count)) +
     #geom_hline(yintercept = 0, color = "grey40") +
     geom_line() +
     #geom_smooth(method = "loess") +
     theme_minimal() +
     facet_wrap(~ package, scale = "free_y",ncol = 2) + theme(axis.text.x = element_text(angle = 90, hjust = 1))

我尝试的是使用 package 库（tidytext）和scale_y_reordered

   tidyverse_downloads %>%
     mutate(count = tidytext::reorder_within(count, date, package)) %>% 
     tidytext::scale_y_reordered() +
     ggplot(aes(x = date, y = count)) +
     geom_line() +
     theme_minimal() +
     facet_wrap(~ package, scale = "free_y",ncol = 2) + theme(axis.text.x = element_text(angle = 90, hjust = 1))

但是，这不会产生任何结果。 我猜我做错了什么。 感谢任何帮助

Answer 1

您可以将每个 package 的总下载量相加，以按降序收集因子水平。

library(cranlogs)
library(tidyverse) 

pkgs <- c('dplyr', 'broom', 'ggplot2', 'purrr')
  
tidyverse_downloads <- cran_downloads(
  packages = pkgs,
  from     = "2017-01-01",
  to       = "2017-06-30") %>%
  tibble::as_tibble()


tidyverse_downloads %>%
  group_by(package) %>%
  summarise(count = sum(count)) %>%
  arrange(desc(count)) %>%
  pull(package) -> levels

levels
#[1] "ggplot2" "dplyr"   "purrr"   "broom"  

根据以上级别分配package中的levels 。

tidyverse_downloads %>%
  mutate(package = factor(package, levels)) %>%
  ggplot(aes(x = date, y = count)) +
  geom_line() +
  theme_minimal() +
  facet_wrap(~ package, scale = "free_y",ncol = 2) + 
  theme(axis.text.x = element_text(angle = 90, hjust = 1))