简单可变相关热图

作者

[编辑] 郑虎;

[审核] .

提供一个简单化版本的相关热图可视化。

环境配置

系统: Cross-platform (Linux/MacOS/Windows)
编程语言: R
依赖包: ggplot2; sigminer

# 安装包
if (!requireNamespace("ggplot2", quietly = TRUE)) {
  install.packages("ggplot2")
}
if (!requireNamespace("sigminer", quietly = TRUE)) {
  install.packages("sigminer")
}

# 加载包
library(ggplot2)
library(sigminer)

数据准备

# 加载数据
data <- read.delim("files/Hiplot/029-cor-heatmap-simple-data.txt", header = T)

# 查看数据
head(data)

   mpg cyl disp  hp drat    wt  qsec vs am gear carb
1 21.0   6  160 110 3.90 2.620 16.46  0  1    4    4
2 21.0   6  160 110 3.90 2.875 17.02  0  1    4    4
3 22.8   4  108  93 3.85 2.320 18.61  1  1    4    1
4 21.4   6  258 110 3.08 3.215 19.44  1  0    3    1
5 18.7   8  360 175 3.15 3.440 17.02  0  0    3    2
6 18.1   6  225 105 2.76 3.460 20.22  1  0    3    1

可视化

# 简单可变相关热图
p <- show_cor(
  data = data,
  x_vars = c("mpg","cyl","disp"),
  y_vars = c("wt","hp","drat"),
  cor_method = "pearson",
  vis_method = "square",
  lab = T,
  test = T,
  hc_order = F,
  legend.title = "Corr"
  ) +
  ggtitle("") +
  labs(x="", y="") +
  theme_bw() +
  theme(text = element_text(family = "Arial"),
        plot.title = element_text(size = 12,hjust = 0.5),
        axis.title = element_text(size = 12),
        axis.text = element_text(size = 10),
        axis.text.x = element_text(angle = 45, hjust = 1, vjust = 1),
        legend.position = "right",
        legend.direction = "vertical",
        legend.title = element_text(size = 10),
        legend.text = element_text(size = 10))

p