欢迎关注R语言数据分析指南
❝本节继续来绘制NC上的一张图表，多组填充离散型热图，需要先对数据进行相应的格式转换，「图形看起来也是比较简单，细节也是要调节一番」，数据为论文源数据，小编进行了图形绘制，整个过程仅参考。希望对各位观众老爷能有所帮助。「数据代码已经整合上传到会员交流群」，购买过小编VIP的朋友可在所加的会员群内获取下载，有需要的朋友可关注文末介绍加入VIP交流群。
❞
最终结果
关于永久群内容的说明
❝给予长期支持我们的读者们一个特别待遇：购买小编VIP会员文档的读者，「将自动获得2024年及以后更新的绘图文档代码，无需额外付费」。目前会员文档(2023+2024)「已经更新上传了150+案例文档」，每个案例都附有相应的数据和代码，并配有对应的注释文档，方便大家学习和参考。有需要的朋友欢迎到小编的「淘宝店铺」 「R语言数据分析指南」下单购买。
❞
「2024更新的绘图内容同时包含数据+代码+markdown注释文档+文档清单」
2024年更新案例
2023年案例图展示
淘宝店铺(长按二维码跳转)
library(tidyverse)
library(ggnewscale)
library(patchwork)
df1 <- read_tsv("heatmap2.xls") %>%
slice_head(n=1) %>%
mutate(across(-gene, as.numeric)) %>%
pivot_longer(-gene) %>% arrange(desc(value))
df1$name <- factor(df1$name,levels = df1$name %>% unique())
df <- read_tsv("heatmap2.xls") %>%
slice(-1) %>%
mutate(across(everything(), as.character)) %>%
pivot_longer(-gene) %>%
separate(col=value,into="Mutations",sep = "/")
df$name <- factor(df$name,levels =df1$name %>% unique())
df1 %>% ggplot(aes(name,value))+
labs(x=NULL,y="TPM")+
geom_col()+
scale_y_continuous(expand= expansion(mult = c(0,0.2)))+
theme_test()+
theme(panel.background = element_blank(),
plot.background = element_blank(),
axis.text.y=element_text(color="black"),
axis.text.x=element_blank(),
axis.ticks = element_blank(),
axis.title.y = element_text(angle = 0,color="black",vjust=0.5,face="bold"),
plot.margin=unit(c(0,0,-2,0),unit="cm"))