
热图展示参与者的属性,散点图表示样本的时间跨度。
library(tidyverse) library(ComplexHeatmap) library(circlize) library(cowplot) 数据可从以下链接下载(画图所需要的所有数据):
百度云盘链接: https://pan.baidu.com/s/1iEE9seTLdrrC3WDHJytvIQ
提取码: yvf5
load("figure1ab.RData") tumortype_order <- tmn_meta_data$dx1_tumortype %>% table %>% sort %>% names patient_order <- with(tmn_meta_data, setNames(dx1_tumortype, upn)) %>% .[order(match(., tumortype_order))] %>% names tmn_meta_data_processed <- tmn_meta_data %>% mutate(upn = factor(upn, l