ggplot2 geom_order中的反向堆叠顺序答案

【问题标题】：Reverse stacking order in ggplot2 geom_orderggplot2 geom_order中的反向堆叠顺序
【发布时间】：2016-12-06 02:04:37
【问题描述】：

我正在尝试在面积图上遵循thisggplot2 教程（不幸的是，它没有在那里问我的问题），但由于某种原因，我的输出与作者的输出不同。我执行以下代码：

library(ggplot2) 
charts.data <- read.csv("copper-data-for-tutorial.csv")

p1 <- ggplot() + geom_area(aes(y = export, x = year, fill = product), data = charts.data, stat="identity")

dataset 如下：

> charts.data
   product year export percentage   sum
1   copper 2006   4176         79  5255
2   copper 2007   8560         81 10505
3   copper 2008   6473         76  8519
4   copper 2009  10465         80 13027
5   copper 2010  14977         86 17325
6   copper 2011  15421         83 18629
7   copper 2012  14805         82 18079
8   copper 2013  15183         80 19088
9   copper 2014  14012         76 18437
10  others 2006   1079         21  5255
11  others 2007   1945         19 10505
12  others 2008   2046         24  8519
13  others 2009   2562         20 13027
14  others 2010   2348         14 17325
15  others 2011   3208         17 18629
16  others 2012   3274         18 18079
17  others 2013   3905         20 19088
18  others 2014   4425         24 18437

当我打印该图时，我的结果是：

相反，教程中完全相同的代码显示了一个相反顺序的图，看起来更好，因为较小的数量在底部：

我怀疑作者要么省略了一些代码，要么输出不同，因为我们使用了不同的 ggplot2 版本。如何更改堆叠顺序以获得相同的输出？

我的sessionInfo() 是

> sessionInfo()
R version 3.3.2 (2016-10-31)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 7 x64 (build 7601) Service Pack 1

locale:
[1] LC_COLLATE=English_United States.1252  LC_CTYPE=English_United States.1252    LC_MONETARY=English_United States.1252
[4] LC_NUMERIC=C                           LC_TIME=English_United States.1252    

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] plyr_1.8.4     extrafont_0.17 ggthemes_3.3.0 ggplot2_2.2.0 

loaded via a namespace (and not attached):
 [1] Rcpp_0.12.8      digest_0.6.10    assertthat_0.1   grid_3.3.2       Rttf2pt1_1.3.4   gtable_0.2.0     scales_0.4.1    
 [8] lazyeval_0.2.0   extrafontdb_1.0  labeling_0.3     tools_3.3.2      munsell_0.4.3    colorspace_1.3-1 tibble_1.2

【问题讨论】：

标签： r plot ggplot2 stacked-area-chart

【解决方案1】：

您有两个选项，这两个选项都要求您的 aes(fill) 是 factor。

1) 更改factor 的顺序，使所需的添加剂level 排在第一位：

df$product %<>% factor(levels= c("others","copper"))

ggplot(data = df, aes(x = year, y = export)) +
    geom_area(aes(fill = product), position = "stack")

2) 或保持原样（铜优先）并告诉position_stack(reverse = TRUE)：

df$product %<>% as.factor()
ggplot(data = df, aes(x = year, y = export)) +
    geom_area(aes(fill = product), position = position_stack(reverse = T))

%<>% 来自library(magrittr)

【讨论】：

非常感谢，两种解决方案都很好用。对于第一个解决方案，我首先必须使用charts.data <- as.data.frame(charts.data) 将我的数据集转换为数据框。另外，对我来说，表达式charts.data$product %<>% factor(levels= c("others","copper")) 会抛出Error: could not find function "%<>%"。有效的是charts.data$product <- factor(charts.data$product, levels= c("others","copper"))
刚刚在%<>% 看到你的编辑，我不知道这个库，去看看。再次感谢
不用担心，很乐意为您提供帮助。 %<>% 省去了很多多余的打字，强烈推荐
堆叠顺序没有改变。即使我们改变因子水平顺序。

【解决方案2】：

我看到了你的电子邮件。我是该教程的作者之一。非常感谢您询问我的材料。

根据您的帖子，这是相关的块

p2 <- ggplot() + geom_area(aes(y = export, x = year, fill = product), 
                           data = charts.data, stat="identity")
p2

请考虑到本教程是使用不同版本的 ggplot2 制作的，因为我们正在更新这些教程，而这些教程并不是一次性编写的。

本教程来自一个 Rmd 文件，该文件显示了代码行的状态。

您可以在https://leanpub.com/ 阅读我的旧教程的演变形式，因为它们演变成一本书的形式，标题为“R 中 Ggplot2 的搭便车指南”我告诉你，因为我们更新了这本书的某些部分看看ggplot2 2.2.0 是否正在生成我们对旧ggplot2 版本所做的事情。

Nathan Day 说的很有用，但我检查了自己两次（刚刚），得到的情节与教程中的相同。

这是我的sessionInfo()

> sessionInfo()
R version 3.3.1 (2016-06-21)
Platform: x86_64-apple-darwin15.6.0 (64-bit)
Running under: OS X 10.11.6 (El Capitan)

locale:
[1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] ggplot2_2.2.0

loaded via a namespace (and not attached):
 [1] colorspace_1.2-7 scales_0.4.1     assertthat_0.1   lazyeval_0.2.0   plyr_1.8.4      
 [6] tools_3.3.1      gtable_0.2.0     tibble_1.2       Rcpp_0.12.7      grid_3.3.1      
[11] munsell_0.4.3

最好的问候

【讨论】：

感谢您的回复，我非常喜欢您的教程。我编辑了我的问题以包括我的sessionInfo()
感谢@Vasilis。我还回复了你的 GitHub 问题。

【解决方案3】：

@Vasilis

这个完全可重现的例子怎么样？在发布一些尴尬的解决方案之前，我确实更愿意考虑一下。

library(ggplot2)
library(ggthemes)
library(extrafont)
library(forcats)

charts.data.2 <- read.csv("copper-data-for-book.csv")
charts.data.2 <- as.data.frame(charts.data.2)
charts.data.2$product <- factor(charts.data.2$product, levels = c("others","copper"), 
  labels = c("Pulp wood, Fruit, Salmon & Others ","Copper"))

fill <- c("#b2d183","#40b8d0")

p2 <- ggplot() + 
  geom_area(aes(y = export, x = year, fill = product), data = charts.data.2, 
    stat="identity") + 
  scale_x_continuous(breaks=seq(2006,2014,1)) + 
  labs(x="Year", y="USD million") + 
  ggtitle("Composition of Exports to China ($)") + 
  scale_fill_manual(values=fill) + 
  theme(panel.border = element_rect(colour = "black", fill=NA, size=.5), 
    axis.text.x=element_text(colour="black", size = 10), 
    axis.text.y=element_text(colour="black", size = 10),
    legend.key=element_rect(fill="white", colour="white"),
    legend.position="bottom", legend.direction="horizontal", 
    legend.title = element_blank(),
    panel.grid.major = element_line(colour = "#d3d3d3"), 
    panel.grid.minor = element_blank(), 
    panel.background = element_blank(),
    plot.title = element_text(size = 14, family = "Tahoma", face = "bold"), 
    text=element_text(family="Tahoma")) +
  guides(fill = guide_legend(reverse=T))
p2

【讨论】：