R语言绘制热图

library(tidyverse)
library(corrplot)
cor(mtcars) %>% 
  corrplot(method = "square",
           order = "hclust",
           type = "full",
           tl.srt = 90,
           tl.col = "black",
           col = colorRampPalette(rev(c('red','white','green')))(100))

           

#library(tidyverse)
library(corrplot)
library(corrgram)
a <- read_excel('heatmap20221108.xlsx',sheet = 2)
a <- data.frame(a)
rownames(a)=a[,1]

a <- a[,-1]
b <- read_excel('heatmap20221108.xlsx',sheet = 4)
colnames(a) <- b$id
c <- cor(a) 
corrplot(c,method = "square",
         order = "hclust",
         tl.col = "black",
         col = colorRampPalette(rev(c('red','white','green')))(100))        
c <- data.frame(c)
write.csv(c,"pos.csv")