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