论文作图之R语言画斑图/热图

助研科技技术员001编写

1. 论文中的斑图/热图
2. 若有疑问请咨询QQ3381528417或留言

斑图（复杂网络）/热图

斑图的生成需要的是一个完整的矩阵，并且在数据集中，我们不需要设置任何表头和变量名。比如：

斑图/热图代码

setwd("C:/Users/Administrator/Documents/论文画图/斑图")
#数据不要变量，故加入     header = F
data <-read.csv("data6.csv",header = F)
#我们矩阵是200*200，所以存在200*200个体，使用paste连接序号和名称
rownames(data) <- paste("individuals", 1:200, sep="_")  ##行的名字
colnames(data) <- paste("individuals", 1:200, sep="_")

library(reshape2)
library(ggplot2)

#把各类名称放入数据框
data$individual <- rownames(data)

data_m <- melt(data, id.vars=c("individual"))
#画斑图的最初的性质
p <- ggplot(data_m, aes(x=variable,y=individual))
#scale_fill_gradient2(mid = "green")调节颜色
p<- p + geom_tile(aes(fill=value))+scale_fill_gradient2(mid = "green")
p1 <- p+theme(axis.ticks = element_blank(),axis.text.y =  element_blank(), axis.text.x =  element_blank(),axis.title = element_blank())
  
# 输出图
p1

结果

我们的服务不仅限于绘图，还有数据分析，我们有庞大的团队为您服务！欢迎联系QQ3381528417或联系我们的店铺小二。
https://item.taobao.com/item.htmspm=a1z38n.10677092.0.0.28541debBKVDus&id=577357610911