vr全景网站开发,民网东莞网站建设,工商注册公司流程及费用,宁夏建网站报价SCI#xff0c;CCF#xff0c;EI及核心期刊绘图宝典#xff0c;爆款持续更新#xff0c;助力科研#xff01;
本期分享#xff1a;
【SCI绘图】【热力图系列1 R】多特征相关性分析热力图R语言实现 1.环境准备
library(gplots)
library(RColorBrewer)
2.数据示例 ###…SCICCFEI及核心期刊绘图宝典爆款持续更新助力科研
本期分享
【SCI绘图】【热力图系列1 R】多特征相关性分析热力图R语言实现 1.环境准备
library(gplots)
library(RColorBrewer)
2.数据示例 #########################################################
### reading in data and transform it to matrix format
#########################################################data - read.csv(dataset.csv, comment.char#)
rnames - data[,1] # assign labels in column 1 to rnames
mat_data - data.matrix(data[,2:ncol(data)]) # transform column 2-5 into a matrix
rownames(mat_data) - rnames # assign row names
3.绘图展示
#########################################################
### customizing and plotting heatmap
########################################################## creates a own color palette from red to green
my_palette - colorRampPalette(c(red, yellow, green))(n 299)# (optional) defines the color breaks manually for a skewed color transition
col_breaks c(seq(-1,0,length100), # for redseq(0.01,0.7,length100), # for yellowseq(0.71,1,length100)) # for green# creates a 5 x 5 inch image
png(h1_simple.png,width 5*300, # 5 x 300 pixelsheight 5*300,res 300, # 300 pixels per inchpointsize 8) # smaller font sizeheatmap.2(mat_data,cellnote mat_data, # same data set for cell labelsmain Correlation, # heat map titlenotecolblack, # change font color of cell labels to blackdensity.infonone, # turns off density plot inside color legendtracenone, # turns off trace lines inside the heat mapmargins c(12,9), # widens margins around plotcolmy_palette, # use on color palette defined earlierbreakscol_breaks, # enable color transition at specified limitsdendrogramrow, # only draw a row dendrogramColvNA) # turn off column clustering##############################################################################
# NOTE
##############################################################################
# The color breaks above will yield a warning
# ...unsorted breaks will be sorted before use since they contain
# (due to the negative numbers). To avoid this warning, you can change the
# manual breaks to:
#
# col_breaks c(seq(0,1,length100), # for red
# seq(1.01,1.7,length100), # for yellow
# seq(1.71,2,length100)) # for green
#
# However, the problem is then that our heatmap contains negative values
# which will then not be colored correctly. Remember that you dont need to
# provide manual color breaks at all, this is entirely optional.
##############################################################################dev.off()
完整代码
library(gplots)
library(RColorBrewer)#########################################################
### reading in data and transform it to matrix format
#########################################################data - read.csv(dataset.csv, comment.char#)
rnames - data[,1] # assign labels in column 1 to rnames
mat_data - data.matrix(data[,2:ncol(data)]) # transform column 2-5 into a matrix
rownames(mat_data) - rnames # assign row names#########################################################
### customizing and plotting heatmap
########################################################## creates a own color palette from red to green
my_palette - colorRampPalette(c(red, yellow, green))(n 299)# (optional) defines the color breaks manually for a skewed color transition
col_breaks c(seq(-1,0,length100), # for redseq(0.01,0.7,length100), # for yellowseq(0.71,1,length100)) # for green# creates a 5 x 5 inch image
png(h1_simple.png,width 5*300, # 5 x 300 pixelsheight 5*300,res 300, # 300 pixels per inchpointsize 8) # smaller font sizeheatmap.2(mat_data,cellnote mat_data, # same data set for cell labelsmain Correlation, # heat map titlenotecolblack, # change font color of cell labels to blackdensity.infonone, # turns off density plot inside color legendtracenone, # turns off trace lines inside the heat mapmargins c(12,9), # widens margins around plotcolmy_palette, # use on color palette defined earlierbreakscol_breaks, # enable color transition at specified limitsdendrogramrow, # only draw a row dendrogramColvNA) # turn off column clustering##############################################################################
# NOTE
##############################################################################
# The color breaks above will yield a warning
# ...unsorted breaks will be sorted before use since they contain
# (due to the negative numbers). To avoid this warning, you can change the
# manual breaks to:
#
# col_breaks c(seq(0,1,length100), # for red
# seq(1.01,1.7,length100), # for yellow
# seq(1.71,2,length100)) # for green
#
# However, the problem is then that our heatmap contains negative values
# which will then not be colored correctly. Remember that you dont need to
# provide manual color breaks at all, this is entirely optional.
##############################################################################dev.off()
