df <- read_tsv("heatmap.xls") %>%
select(where(is.character)) %>%
pivot_longer(-sample)
df$sample <- factor(df$sample,levels = df$sample %>% unique())
df$name <- factor(df$name,levels = df$name %>% unique() %>% rev())
df1 <- df %>% filter(name=="WES RNA-seq") %>%
dplyr::rename("WES RNA-seq"="value")
df %>% ggplot(aes(x=sample,y=name))+
geom_tile(data=df1,color="black",aes(fill=`WES RNA-seq`))+
scale_fill_manual(values = c("#78B7C5","#D3DDDC","#C6CDF7"))+
new_scale_fill()+
geom_tile(data=df %>% filter(name=="Tissue site") %>%
dplyr::rename("Tissue site"="value"),
color="black",aes(fill=`Tissue site`))+
scale_fill_manual(values=c("#4e6d58","#749e89","#abccbe","#e3cacf","#c399a2","#9f6e71",
"#41507b","#7d87b2","#c2cae3","#C6CDF7"))+
theme(axis.text.x = element_text(angle = 90,color="black",vjust=0.5,hjust=0.5),
legend.position = "bottom",
legend.direction = "vertical",
plot.margin=unit(c(0.5,1,0.5,1),unit="cm"),
plot.background = element_blank(),
panel.background = element_blank(),
axis.text.y=element_text(color="black"),
axis.ticks = element_blank())