Stacked Area Chart - Tidyr Solution

stacked-area-chart-tidyr-solution.R

data <- read.csv("data.csv", sep = "\t")

data <- data %>%
    tidyr::spread(key = plan, value = signups, fill = 0) %>%
    tidyr::gather(key = plan, value = signups, - week) %>%
    arrange(week, plan)

g <- ggplot(data, aes(x = week, y = signups, group = plan, fill = plan)) +
    geom_area(position = "stack")

print(g)