geom_area 绘图默认堆叠区域

我在用geom_area绘制一个非常简单的数据集。绘图时使用geom_line一切正常，但是当我切换到geom_area绘制更高的值。我认为查看图表是代表我的问题的最佳方式：

require(tidyverse)

x <- structure(list(Time = 0:40, X15.DCIA = c(0, 1, 0.5, 0, 2, 2.5, 
      1, 0.5, 0, 1, 1.5, 1, 0.5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.5, 3, 
      5, 7, 6.5, 5.5, 4, 3, 2, 1.5, 1, 0.25, 0, 0, 0, 0, 0, 0, 0), 
      X100.DCIA = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
      0, 0, 0, 0, 0, 0, 0, 0, 1.5, 7, 8, 7.5, 6.5, 5, 3.5, 2.25, 
      1.75, 1.1, 0.4, 0.1, 0, 0, 0, 0, 0, 0)),
      class = "data.frame", row.names = c(NA,-41L))

 x %>% gather(prct.DCIA, Vol, -Time) %>% ggplot(aes(x=Time, y=Vol)) +
  geom_line(aes(color=prct.DCIA))


 x %>% gather(prct.DCIA, Vol, -Time) %>% ggplot(aes(x=Time, y=Vol)) +
  geom_area(aes(fill=prct.DCIA))

The geom_line是我所期望的（我的数据的线图）。

但后来看看geom_area你看到了100DCIA已经跃升至15。

我对一个更感兴趣解释而不是修复或解决方法。

Note:

这可以是一个解决方法：

x %>% gather(prct.DCIA, Vol, -Time) %>% ggplot(aes(x=Time, y=Vol)) + 
      geom_polygon(aes(fill=prct.DCIA, alpha=0.5)) + guides(alpha=FALSE)

解释：你的地块一层一层地堆积起来。

您在图中红线后面看到的值geom_area图表是您的红线和蓝线的值的总和geom_line graph.

如果你分开你就能清楚地看到这一点prct.DCIA with facet_grid():

x %>% gather(prct.DCIA, Vol, -Time) %>% ggplot(aes(x=Time, y=Vol)) +
  geom_area(aes(fill=prct.DCIA)) + facet_grid(.~prct.DCIA)

这仅仅是因为position = "stack" 是默认参数 geom_area:

geom_area(mapping = NULL, data = NULL, stat = "identity",
  position = "stack", na.rm = FALSE, show.legend = NA,
  inherit.aes = TRUE, ...)

人们可能会认为这是因为人们使用geom_area因为他们想在图表上显示整个区域，而不是填充某些线条。一般来说，条形或面积可能代表某物的计数，或者填充的区域代表某物，而点或线可能代表点估计，而线或点上方或下方的面积没有意义。

Cf. 默认参数 geom_line is position = "identity".

geom_line(mapping = NULL, data = NULL, stat = "identity",
  position = "identity", na.rm = FALSE, show.legend = NA,
  inherit.aes = TRUE, ...)

Fix:如果你使用position = position_dodge()您可以看到它们恢复到折线图的样子，红色区域绘制在蓝色区域后面：

  x %>% gather(prct.DCIA, Vol, -Time) %>% ggplot(aes(x=Time, y=Vol)) +
  geom_area(aes(fill=prct.DCIA), position = position_dodge())

你甚至可以设置alpha

x %>% gather(prct.DCIA, Vol, -Time) %>% ggplot(aes(x=Time, y=Vol)) +
  geom_area(aes(fill=prct.DCIA), position = position_dodge(), alpha = 0.5)