R语言heatmap相关系数图

R语言heatmap相关系数图

library(ggplot2)
library(tidyverse)
data(mtcars) #加载data数据
df <- cor(mtcars)
//正方形相关系数图
//使用mutate创建一个变量名为row1、取值为行名的列
//pivot_longer将数据框由宽变长，指定变长的变量-var1即除了var1都变长），变长后的变量命名总体的名字（names_to），取值（values_to,按照cor进行索引取值）
df <- df %>% as.data.frame() %>% mutate(var1=row.names(df)) %>% pivot_longer(-var1,names_to = "var2",values_to = "cor")
//变换后的数据展示
# A tibble: 121 x 3
#var1  var2     cor
#<chr> <chr>  <dbl>
#  1 mpg   mpg    1    
#2 mpg   cyl   -0.852
#3 mpg   disp  -0.848
#4 mpg   hp    -0.776
#5 mpg   drat   0.681
#6 mpg   wt    -0.868
#7 mpg   qsec   0.419
#8 mpg   vs     0.664
#9 mpg   am     0.600
#10 mpg   gear   0.480
# ... with 111 more rows

#下面factor可以将出现的顺序变为自己想要
df$var1 <- factor(df$var1,levels = c('carb','gear','am','vs','qsec','wt','drat','hp','disp','cyl','mpg'))
#改变排序顺序的几种方法
order <- c(