如何在分组的Barplot中排名类别？

Question

这是按年份和模型按销售数据的数据。现在，我要按以下方式来对这些模型进行排名/订购：

1. 模型必须根据其每年的销售的销售量从上到下进行排序。例如，E在2015年的销售量最大，因此必须在顶部，而在2017年H中必须位于顶部。

2. 此外，我需要保持模型 j 始终在底部无论其份额如何。

library(dplyr)

library(ggplot2)

        
df <- data.frame (model  = c("A","B","C","D","E","F","G","H","I","J","A","B","C","D","E","F","G","H","I","J","A","B","C","D","E","F","G","H","I","J","A","B","C","D","E","F","G","H","I","J"),
                          
    Year = c(2015,2015,2015,2015,2015,2015,2015,2015,2015,2015,2016,2016,2016,2016,2016,2016,2016,2016,2016,2016,2017,2017,2017,2017,2017,2017,2017,2017,2017,2017,2018,2018,2018,2018,2018,2018,2018,2018,2018,2018),
    sales = c(450,678,456,344,984,456,234,244,655,789,234,567,234,567,232,900,1005,1900,450,345,567,235,456,345,144,333,555,777,111,444,222,223,445,776,331,788,980,1003,456,434))
    
    
     df %>% 
      group_by(Year) %>%
      mutate(Share = sales / sum(sales)) %>%
      mutate_at(vars(Share), funs(round(., 4))) %>%
      ggplot(aes(fill=model, y=Share, x=Year))+
      scale_x_continuous(breaks=seq(min(df$Year),max(df$Year),2))+
      geom_col(position="fill", width = 1, color = "white") +
      geom_text(aes(label = scales::percent(Share, accuracy = 0.1)), 
                position = position_fill(vjust = 0.50),
                color = "black",size = 2) +
      scale_y_continuous(labels = scales::percent) 

Answer 1

您需要每年添加堆叠的列，以便能够在每列上使用单个分类。利用一些didyverse帮助者可以尝试以下操作：

library(purrr)
library(forcats)

## split the data according to year and order factors according to need
## df_agg will eb a list(!) of data frames where each model is sorted accordingly
## Adding `Year2` is a quick hack as `group_map` drops the grouping variable

df_agg <- df %>% 
  group_by(Year) %>%
  mutate(Share = sales / sum(sales), Year2 = Year) %>%
  mutate(across(Share, ~ round(., 4))) %>% 
  group_by(Year) %>% 
  group_map(~ .x %>% 
              mutate(model = fct_reorder(model, Share, .desc = TRUE) %>% 
                             fct_relevel("J", after = Inf)) %>% 
              rename(Year = Year2))

## base plot

bp <- ggplot() +
  scale_x_continuous(breaks = seq(min(df$Year), max(df$Year), 2))+
  scale_y_continuous(labels = scales::percent)

## use purrr::reduce to add geoms for each year to the baseplot

reduce(df_agg, ~ .x + 
         geom_col(aes(x = Year, y = Share, fill = model), data = .y, 
                               position = "fill", width = 1, color = "white") +
         geom_text(aes(x = Year, y = Share, fill = model,
                       label = scales::percent(Share, accuracy = 0.1)),
                   data = .y,
                   position = position_fill(vjust = 0.50),
                   color = "black", size = 2), .init = bp)

nb 亲自，我发现很难读取该图，因为您始终需要参考传说以确定显示哪个模型。