如何为这个场景制作一个好的情节答案

【问题标题】：How to make a good plot for this scenario如何为这个场景制作一个好的情节
【发布时间】：2020-05-04 01:21:52
【问题描述】：

我有这个代码：

new_flts.df %>%
  mutate(DELAY_CAT = fct_collapse(DELAY_CAT,
          OnTime = c("On Time", "Short Delay"),
          Delayed = c("Medium Delay", "Long Delay", "Very Long Delay"),
          Canceled =("CNL")
          ))%>%
  filter(DIR=="D") %>%
  group_by(AIRL, ORGDEST, DELAY_CAT)%>%
  tally()%>%mutate(perc = percent(n/sum(n),accuracy = 1))

它产生以下输出（部分输出）：

# A tibble: 260 x 5
# Groups:   AIRL, ORGDEST [94]
    AIRL  ORGDEST DELAY_CAT     n perc 
    <fct> <fct>   <fct>     <int> <chr>
  1 ADR   DUS     OnTime       43 49%  
  2 ADR   DUS     Delayed      31 36%  
  3 ADR   DUS     Canceled     13 15%  
  4 ADR   FRA     OnTime     1673 86%  
  5 ADR   FRA     Delayed     237 12%  
  6 ADR   FRA     Canceled     26 1%   
 24 ART   DUS     OnTime       39 57%  
 25 ART   DUS     Delayed      26 38%  
 26 ART   DUS     Canceled      4 6%   
 27 ART   MLH     OnTime       77 53%  
 28 ART   MLH     Delayed      52 36%  
 29 ART   MLH     Canceled     17 12%  
 30 ART   MUC     OnTime       22 61%  
 31 ART   MUC     Delayed      11 31%  
 32 ART   MUC     Canceled      3 8%   
 44 BUR   DUS     OnTime       53 50%  
 45 BUR   DUS     Delayed      45 43%  
 46 BUR   DUS     Canceled      7 7%   
 47 BUR   HAJ     OnTime       17 45%  
 48 BUR   HAJ     Delayed      20 53%  
 49 BUR   HAJ     Canceled      1 3%   
 50 BUR   MLH     OnTime      158 57%  
 51 BUR   MLH     Delayed     101 37%  
 52 BUR   MLH     Canceled     16 6%   
 53 BUR   OTP     OnTime       30 45%  
 54 BUR   OTP     Delayed      30 45%  
 55 BUR   OTP     Canceled      6 9%

在绘制了最好的图之后，我得到了这个（下图）。但我对此并不满意。我想展示每个航空公司和目的地的性能百分比的好图。任何帮助制作一个好的信息图！

情节代码：

ggplot(data, aes(AIRL, perc))+
  geom_col(aes(fill=DELAY_CAT))+facet_wrap(.~ORGDEST, scales = "free")

【问题讨论】：

一些目的地有一家航空公司，而其他目的地有很多。这种“多对多”的关系很难说明。目前，您只告诉我们您对您的绘图不满意，尽管它显示了您想要的每家航空公司和目的地的百分比。您已经投票接近，我想原因是您没有提出问题。请查看 StackOverflow 上的其他问题，以便您了解它是如何构建的并编辑您自己的，否则很遗憾这个问题将被关闭。

标签： r ggplot2 plot dplyr

【解决方案1】：

我的直觉是，如果在这种情况下不使用facet_wrap，您会受益于在一个情节上获取所有信息吗？您可以使用paste 组合您感兴趣的两个变量。请参阅此示例。

library(tidyverse)

df <- mtcars

df <- df %>% 
  mutate(CylVs = paste(cyl,vs))

ggplot(df,aes(x = carb,fill = CylVs)) + 
  geom_histogram()

祝你好运！

【讨论】：