重新排序堆积条形图

Question

以下是我绘制堆积条形图的代码，

netflix %>% 
  filter(release_year %in% c(2000:2020)) %>%
  transform(release_year = as.character(release_year)) %>% 
  ggplot(aes(x = release_year, fill = type)) +
  geom_bar(position = "dodge") +
  coord_flip()

请问如何根据每年上映的电影数量对上图重新排序？

数据来源于kaggle https://www.kaggle.com/shivamb/netflix-shows

Answer 1

这是你想要的吗？按当年的发布次数对年份进行排序？

release_order_by_quantity <- netflix %>% 
  filter(release_year %in% c(2000:2020)) %>%
  group_by(release_year) %>%
  summarize(count = n(), .groups = "drop") %>%
  arrange(desc(count))

year_levels_ordered <- unique(release_order_by_quantity[["release_year"]])

netflix %>% 
  filter(release_year %in% c(2000:2020)) %>%
  mutate(release_year_factor = factor(release_year, levels = year_levels_ordered)) %>%
  ggplot(aes(x = release_year_factor, fill = type)) +
  geom_bar(position = "dodge") +
  coord_flip()