Stacked area charts

stacked_area.R

library("ggplot2")
library("dplyr")

###########################################################
####  This does not work to create stacked area chart  ####
###########################################################

## Create data
set.seed(40)
dat <- data.frame(x = rep(c(1:10), 3),
                  var = rep(c("a", "b", "c"), 10),
                  y = round(runif(30, 1, 5)))

## Plot
ggplot(dat, aes(x = x, y = y, fill = var)) +
  geom_area(position = "stack")

###############################################
####  But it works if I re-order the rows  ####
###############################################

dat %>%
  arrange(var, x) %>%
  ggplot(aes(x = x, y = y, fill = var)) +
  geom_area(position = "stack")

vs.