NC图表绘制-ggplot2绘制多组填充热图

ther attached packages:
 [1] MetBrewer_0.2.0  ggsci_3.0.0      ggnewscale_0.4.9 lubridate_1.9.3  forcats_1.0.0   
 [6] stringr_1.5.1    dplyr_1.1.4      purrr_1.0.2      readr_2.1.5      tidyr_1.3.1     
[11] tibble_3.2.1     ggplot2_3.4.4    tidyverse_2.0.0 

library(tidyverse)

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())