R绘制相关的热力系数图和不同调色板的气泡图和椭圆图

library(ggplot2)  
library(RColorBrewer)  
library(reshape2) 

#------------------------------------------(d) 椭圆图-------------------------------------------------------
library(corrplot)
library(matlab)

color<-colorRampPalette(c(brewer.pal(7,"Set1")[2],"white",brewer.pal(7,"Set1")[1]))(100)

corrplot(mat, method="ellipse",order ="alphabet",pch.col = "black",col=color)

#------------------------------------------ (e)气泡标签图-------------------------------------------------------
corrplot.mixed(mat,order ="alphabet",pch.col = "black",bg = "grey80", lower.col = color, upper.col = color)

#------------------------------------------(d) 椭圆图-------------------------------------------------------
library(corrplot)
library(matlab)

color<-colorRampPalette(c(brewer.pal(7,"Set2")[2],"white",brewer.pal(7,"Set2")[1]))(100)

corrplot(mat, method="ellipse",order ="alphabet",pch.col = "black",col=color)

#------------------------------------------ (e)气泡标签图-------------------------------------------------------
corrplot.mixed(mat,order ="alphabet",pch.col = "black",bg = "grey80", lower.col = color, upper.col = color)

#------------------------------------------(d) 椭圆图-------------------------------------------------------
library(corrplot)
library(matlab)

color<-colorRampPalette(c(brewer.pal(7,"Set3")[2],"white",brewer.pal(7,"Set3")[1]))(100)

corrplot(mat, method="ellipse",order ="alphabet",pch.col = "black",col=color)

#------------------------------------------ (e)气泡标签图-------------------------------------------------------
corrplot.mixed(mat,order ="alphabet",pch.col = "black",bg = "grey80", lower.col = color, upper.col = color)

#------------------------------------------(d) 椭圆图-------------------------------------------------------

color<-colorRampPalette(c(brewer.pal(7,"Pastel1")[2],"white",brewer.pal(7,"Pastel1")[1]))(100)

#------------------------------------------(d) 椭圆图-------------------------------------------------------
library(corrplot)
library(matlab)

color<-colorRampPalette(c(brewer.pal(7,"Paired")[2],"white",brewer.pal(7,"Paired")[1]))(100)

corrplot(mat, method="ellipse",order ="alphabet",pch.col = "black",col=color)

#------------------------------------------ (e)气泡标签图-------------------------------------------------------
corrplot.mixed(mat,order ="alphabet",pch.col = "black",bg = "grey80", lower.col = color, upper.col = color)

#------------------------------------------(d) 椭圆图-------------------------------------------------------
library(corrplot)
library(matlab)

color<-colorRampPalette(c(brewer.pal(7,"Dark2")[2],"white",brewer.pal(7,"Dark2")[1]))(100)

corrplot(mat, method="ellipse",order ="alphabet",pch.col = "black",col=color)

#------------------------------------------ (e)气泡标签图-------------------------------------------------------
corrplot.mixed(mat,order ="alphabet",pch.col = "black",bg = "grey80", lower.col = color, upper.col = color)

#------------------------------------------(d) 椭圆图-------------------------------------------------------
library(corrplot)
library(matlab)

color<-colorRampPalette(c(brewer.pal(7,"Accent")[2],"white",brewer.pal(7,"Accent")[1]))(100)

corrplot(mat, method="ellipse",order ="alphabet",pch.col = "black",col=color)

#------------------------------------------ (e)气泡标签图-------------------------------------------------------
corrplot.mixed(mat,order ="alphabet",pch.col = "black",bg = "grey80", lower.col = color, upper.col = color)

#------------------------------------------(d) 椭圆图-------------------------------------------------------
library(corrplot)
library(matlab)

color<-colorRampPalette(c(brewer.pal(7,"Spectral")[2],"white",brewer.pal(7,"Spectral")[1]))(100)

corrplot(mat, method="ellipse",order ="alphabet",pch.col = "black",col=color)

#------------------------------------------ (e)气泡标签图-------------------------------------------------------
corrplot.mixed(mat,order ="alphabet",pch.col = "black",bg = "grey80", lower.col = color, upper.col = color)

#------------------------------------------(d) 椭圆图-------------------------------------------------------
library(corrplot)
library(matlab)

color<-colorRampPalette(c(brewer.pal(7,"BrBG")[2],"white",brewer.pal(7,"BrBG")[1]))(100)

corrplot(mat, method="ellipse",order ="alphabet",pch.col = "black",col=color)

#------------------------------------------ (e)气泡标签图-------------------------------------------------------
corrplot.mixed(mat,order ="alphabet",pch.col = "black",bg = "grey80", lower.col = color, upper.col = color)

#------------------------------------------(d) 椭圆图-------------------------------------------------------
library(corrplot)
library(matlab)

color<-colorRampPalette(c(brewer.pal(7,"PiYG")[2],"white",brewer.pal(7,"PiYG")[1]))(100)

corrplot(mat, method="ellipse",order ="alphabet",pch.col = "black",col=color)

#------------------------------------------ (e)气泡标签图-------------------------------------------------------
corrplot.mixed(mat,order ="alphabet",pch.col = "black",bg = "grey80", lower.col = color, upper.col = color)

#------------------------------------------(d) 椭圆图-------------------------------------------------------
library(corrplot)
library(matlab)

color<-colorRampPalette(c(brewer.pal(7,"PRGn")[2],"white",brewer.pal(7,"PRGn")[1]))(100)

corrplot(mat, method="ellipse",order ="alphabet",pch.col = "black",col=color)

#------------------------------------------ (e)气泡标签图-------------------------------------------------------
corrplot.mixed(mat,order ="alphabet",pch.col = "black",bg = "grey80", lower.col = color, upper.col = color)

#------------------------------------------(d) 椭圆图-------------------------------------------------------
library(corrplot)
library(matlab)

color<-colorRampPalette(c(brewer.pal(7,"PuOr")[2],"white",brewer.pal(7,"PuOr")[1]))(100)

corrplot(mat, method="ellipse",order ="alphabet",pch.col = "black",col=color)

#------------------------------------------(d) 椭圆图-------------------------------------------------------
library(corrplot)
library(matlab)

color<-colorRampPalette(c(brewer.pal(7,"Set1")[2],"white",brewer.pal(7,"Set1")[1]))(100)

corrplot(mat, method="ellipse",order ="alphabet",pch.col = "black",col=color)

#------------------------------------------(d) 椭圆图-------------------------------------------------------
library(corrplot)
library(matlab)

color<-colorRampPalette(c(brewer.pal(7,"Set2")[2],"white",brewer.pal(7,"Set2")[1]))(100)

corrplot(mat, method="ellipse",order ="alphabet",pch.col = "black",col=color)

#------------------------------------------(d) 椭圆图-------------------------------------------------------
library(corrplot)
library(matlab)

color<-colorRampPalette(c(brewer.pal(7,"Set3")[2],"white",brewer.pal(7,"Set3")[1]))(100)

corrplot(mat, method="ellipse",order ="alphabet",pch.col = "black",col=color)

#------------------------------------------(d) 椭圆图-------------------------------------------------------
library(corrplot)
library(matlab)

color<-colorRampPalette(c(brewer.pal(7,"Pastel1")[2],"white",brewer.pal(7,"Pastel1")[1]))(100)

corrplot(mat, method="ellipse",order ="alphabet",pch.col = "black",col=color)

#------------------------------------------(d) 椭圆图-------------------------------------------------------
library(corrplot)
library(matlab)

color<-colorRampPalette(c(brewer.pal(7,"Pastel2")[2],"white",brewer.pal(7,"Pastel2")[1]))(100)

corrplot(mat, method="ellipse",order ="alphabet",pch.col = "black",col=color)

#------------------------------------------(d) 椭圆图-------------------------------------------------------
library(corrplot)
library(matlab)

color<-colorRampPalette(c(brewer.pal(7,"Paired")[2],"white",brewer.pal(7,"Paired")[1]))(100)

corrplot(mat, method="ellipse",order ="alphabet",pch.col = "black",col=color)