R语言ggplot2画热图的时候在色块上添加文本

今天的推文没有详细介绍代码，代码的介绍会以视频形式放到B站，欢迎大家关注我的B站 小明的数据分析笔记本

https://space.bilibili.com/355787260

image.png

首先是示例数据的格式

• 画热图的数据

image.png

• 用来添加文本的数据

image.png

• 如果还有其他文本需要添加，可以再准备一份数据

image.png

加载需要用到的R包

library(ggplot2)
library(tidyverse)
#install.packages("see")
library(see)

• ggplot2 是用来作图的
• tidyverse 是用来做数据整理的
• see 这个包里有很多配色函数

读取热图的数据作图

dfa<-read.csv("20211007.csv")
head(dfa)
pivot_longer(dfa,
             !X,
             names_to = "Y",
             values_to = "Value") -> dfa.1

head(dfa.1)

读取添加文本的数据

dfb<-read.csv("20211007_1.csv")
head(dfb)
pivot_longer(dfb,
             !X,
             names_to = "Y",
             values_to = "Value") -> dfb.1
head(dfb.1)

dfc<-read.csv("20211007_2.csv")
head(dfc)
pivot_longer(dfc,
             !X,
             names_to = "Y",
             values_to = "Value") -> dfc.1
head(dfc.1)

作图的代码

ggplot() + 
  geom_tile(data=dfa.1, aes(X, Y, fill= Value))+
  geom_text(data=dfb.1,aes(X,Y,label=Value),
            vjust=0)+
  geom_text(data=dfc.1,aes(X,Y,label=Value),
            vjust=1)+
  scale_fill_material_c()+
  theme_minimal()+
  theme(axis.title = element_blank())

image.png

欢迎大家关注我的公众号

小明的数据分析笔记本

小明的数据分析笔记本 公众号 主要分享：1、R语言和python做数据分析和数据可视化的简单小例子；2、园艺植物相关转录组学、基因组学、群体遗传学文献阅读笔记；3、生物信息学入门学习资料及自己的学习笔记！

今天推文的示例数据和代码可以在后台留言20211007获取