R语言绘图—热力图绘制

热图使用颜色来表示二维图中第三个变量的变化和大小。热图能清楚直观的看到数据的变化。今天就简单介绍下R语言中热图的绘制。我结合一份传染病的日常数据作一个展示。

一、模拟数据

这里模拟12年期间每个月份传染病的发病数，如下：

mydata<-data.frame(

years=rep(c("2022年","2021年","2020年","2019年","2018年",

"2017年","2016年","2015年","2014年","2013年",

"2012年","2011年"),12),

month=rep(c("1月","2月","3月","4月","5月","6月","7月",

"8月","9月","10月","11月","12月"),each=12),

disease=c(sample(1000,144,replace = T))

)

mydata$month<-factor(mydata$month,

levels =c("1月","2月","3月","4月",

"5月","6月","7月",

           "8月","9月","10月",

             "11月","12月"))

二、绘图

2.1绘制基础图形

library(ggplot2)

ggplot(mydata, aes(x = years, y = month, fill = disease)) +

geom_tile() +

coord_fixed()

2.2改变块与块之间的间隙

ggplot(mydata, aes(x = years, y = month, fill = disease)) +

geom_tile(color = "white",

lwd = 1.5

) +

coord_fixed()

这里不支持代码展示，大家凑合看下

由于这里不支持代码，具体的绘制大家可以看下我上传的视频。

视频上传失败