R语言ggplot2画热图的时候在色块上添加文本
R语言ggplot2画热图的时候在色块上添加文本
用户7010445
发布于 2021-10-13 11:49:53
发布于 2021-10-13 11:49:53
今天的推文没有详细介绍代码，代码的介绍会以视频形式放到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获取
本文参与 腾讯云自媒体同步曝光计划，分享自微信公众号。
原始发表：2021-10-07，如有侵权请联系 cloudcommunity@tencent.com 删除
评论
登录后参与评论
推荐阅读
目录