#堆积面积图

用作构建堆积面积图的输入的数据框需要 3 列：

x：用于X轴的数字变量，通常是 一时间。

y：用于 Y 轴的数字变量。

group：分组。

图表是使用该函数构建的:geom_area()

#导入函数包

library(ggplot2)

library(dplyr)

# 创建一个数据集

time <- as.numeric(rep(seq(1,7),each=7))  # x Axis

time

value <- runif(49, 10, 100)              # y Axis

value

group <- rep(LETTERS[1:7],times=7)        # group, one shape per group

group

data <- data.frame(time, value, group)

head(data)

#堆积面积图

ggplot(data, aes(x=time, y=value, fill=group)) +

  geom_area()

#控制排序

#把分组那一列因子化，并给定排列顺序

data$group <- factor(data$group , levels=c("B", "A", "D", "E", "G", "F", "C") )

#重新画图

ggplot(data, aes(x=time, y=value, fill=group)) +

  geom_area()

#修改风格

library(viridis)

library(hrbrthemes)

ggplot(data, aes(x=time, y=value, fill=group)) +

  geom_area(alpha=0.6 , size=.5, colour="white") +

  scale_fill_viridis(discrete = T) +

  theme_ipsum() +

  ggtitle("堆积面积图")

#比例堆积面积图

在比例堆积面积图中，每年的总和始终为等于100，每个组的值表示为百分比。

#计算比例

library(dplyr)

data <- data  %>%

  group_by(time, group) %>%

  summarise(n = sum(value)) %>%

  mutate(percentage = n / sum(n))

data

#绘图

ggplot(data, aes(x=time, y=percentage, fill=group)) +

  geom_area(alpha=0.6 , size=1, colour="black")