介绍

通常堆积图的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')) 

画图

该图形通过主图和分组