介绍
通常堆积图的X轴表示样本，样本可能会存在较多的分组信息，通过组合堆积图和样本标签分组信息，我们可以得到一张能展示更多信息的可发表图形。
加载R包
knitr::opts_chunk$set(warning = F, message = F)
library(tidyverse)
library(cowplot)
library(patchwork)
导入数据
数据可从以下链接下载（画图所需要的所有数据）：
-
百度云盘链接: https://pan.baidu.com/s/1d0Kvrb4ffIubwJ65VQ_bpA
-
提取码: qjc7
load("./inputdata/49-figure2a.RData")
数据预处理
tmn_meta_data <- tmn_meta_data %>%mutate(country = replace(country, upn == 'UPN024', 'Netherlands_new'))
画图
该图形通过主图和分组
