今天的推文重复论文中的extended Figure8 热图
image.png
这里是三个热图,我们做三个图,然后将3个图拼接到一起
论文中提供的数据如下
image.png
作图的话需要对数据进行简单的整理...,比如第一个图的数据
image.png
加载需要用到的R包
library(readxl)
library(tidyverse)
library(stringr)
第一个热图
dat01<-read_excel...""
),
value=round(value,2),
x=str_replace(x,"\\(","\n"),
x=str_replace(x,"\\)","")) %>%
ggplot...""
),
value=round(value,2),
x=str_replace(x,"\\(","\n"),
x=str_replace(x,"\\)","")) %>%
ggplot...""
),
value=round(value,2),
x=str_replace(x,"\\(","\n"),
x=str_replace(x,"\\)","")) %>%
ggplot