❝面积图可以看为堆砌条图的变形,绘制时使用geom_area即可,百分比面积图则是在基础面积图的数据上统计百分比而来,此类图绘制起来较为简单属于基础图类。例图主要调整labels展示及分面x轴文本展示等细节。 ❞
library(tidyverse)
library(scales)
library(MetBrewer)
df <- read_tsv("data.xls")
# 绘制单个面积图
df %>%
ggplot()+
geom_area(aes(x = year, y = pelagic_fish,fill=entity))+
scale_fill_manual(values=met.brewer("VanGogh2",10))+
scale_y_continuous(labels = comma,expand = c(0,0))+
scale_x_continuous(expand = c(0,0))+
labs(x=NULL,y=NULL)+
theme_classic()+
theme(axis.text=element_text(color="black"),
panel.background = element_blank())