R堆积百分比条形图，具有二元因子和标签的百分比

Question

我希望通过R：

生成一个看起来像这样（带有百分比和图例）的图形

我的原始数据是：

<error-page>
 <error-code>404</error-code>
 <location>/error404.jsp</location>
</error-page>

关于SO已经存在类似的问题，但我似乎缺乏足够的智力（或对R的理解）从他们推断到解决我的特定问题。

Answer 1

首先，gather或melt将您的数据转换为长格式。然后很容易。

library(tidyverse)

df <- read.table(
  text = "
  YEAR AIRBUS BOEING EMBRAER
  2002     18     21      30
  2003     20     23      31
  2004     23     26      29
  2005     22     25      26
  2006     22     25      25
  2007     22     27      17
  2008     21     21      16
  2009     17     19      22
  2010     14     22      24
  2011     17     27      22
  2012     16     22      19
  2013     11     24      19",
  header = TRUE
)


df_long <- df %>% 
  gather(company, percentage, AIRBUS:EMBRAER)

ggplot(df_long, aes(x = YEAR, y = percentage, fill = company)) + 
  geom_col() + 
  ggtitle("Departure delays by company and Year") + 
  scale_x_continuous(breaks = 2002:2013)