ggcorr函数带你绘制不一样的相关系数图

R语言数据分析指南

发布于 2023-06-07 20:09:16

4280

文章被收录于专栏：R语言数据分析指南R语言数据分析指南

欢迎关注R语言数据分析指南

本节来介绍如何使用GGally包自带的函数来绘制相关性系数图，虽然corrplot很是强大但是相关的R包也算有一定的可取之处。下面就来通过一个小案例介绍，数据+代码已经上传2023VIP群，加群的观众老爷请自行下载

关注下方公众号下回更新不迷路

加载R包

library(tidyverse)
library(GGally)

数据清洗

df <- read_tsv("data.xls")

df_named <- df[,11:22] %>% 
  dplyr::rename("HomeShots"=HS,
         "AwayShots"=AS,
         "HomeShots-on-Target"=HST,
         "AwayShots-on-Target"=AST,
         "HomeFouls"=HF,
         "AwayFouls"=AF,
         "HomeCorners"=HC,
         "AwayCorners"=AC,
         "HomeYellowCards"=HY,
         "AwayYellowCards"=AY,
         "HomeRedCards"=HR,
         "AwayRedCards"=AR)

数据可视化

ggcorr(df_named, method = c("pairwise"),  # 使用pairwise方法计算相关系数矩阵
       geom = "circle", max_size = 15,  # 使用圆形表示相关系数
       min_size = 5, nbreaks = 6,  # 设置相关系数的大小范围和分段数
       angle = 0,  # 设置圆形的角度
       palette = "RdYlBu",  # 设置调色板为红黄蓝
       hjust = 1, size = 4, color = "grey50",  # 设置相关系数标签的位置、大小和颜色
       layout.exp = 0.5,  # 设置相关系数标签的位置展示方式
       name = expression(rho)) +  # 设置相关系数标签的名称为ρ
  geom_point(size = 10, aes(color = coefficient > 0, 
                            alpha = abs(coefficient) > 0.5)) +  # 使用点表示系数大于0且绝对值大于0.5的相关系数，设置点的大小和颜色
  scale_alpha_manual(values = c("TRUE" = 0.25, "FALSE" = 0)) +  # 设置alpha值的映射关系，当系数满足条件时设置透明度为0.25，否则为0
  guides(alpha = FALSE) +  # 不显示alpha的图例
  theme(plot.margin = margin(0, 0, 0, 0, "pt"),  # 设置图的边距
        legend.background = element_blank(),  # 不显示图例的背景
        legend.spacing.x = unit(0, "cm"))  # 设置图例水平间距为0cm