ggcorplot()修改X/Y轴变量标签问题求助

核心思路 #

ggcorplot输出的是标准ggplot对象，因此可以通过scale_x_discrete()和scale_y_discrete()在不修改原始数据框的前提下替换轴标签，再用ggplotly()将静态图转为交互式图表。

完整代码示例 #

1. 构造示例数据（模拟你的数据集）

set.seed(123)
df <- data.frame(
  famrel = rnorm(50),
  freetime = rnorm(50),
  goout = rnorm(50),
  grades = rnorm(50),
  health = rnorm(50)
)

2. 定义变量名映射表

var_labels <- c(
  "famrel" = "Family Relationship",
  "freetime" = "Free Time",
  "goout" = "Going Out with Friends",
  "grades" = "Academic Grades",
  "health" = "Self-rated Health"
)

3. 绘制带自定义标签的相关图

library(ggcorplot)
library(ggplot2)
library(plotly)

# 计算相关矩阵
cor_matrix <- cor(df)

# 生成基础相关图并替换轴标签
p <- ggcorplot(cor_matrix,
               hc.order = TRUE,
               type = "lower",
               lab = TRUE) +
  scale_x_discrete(labels = var_labels) +
  scale_y_discrete(labels = var_labels)

4. 转为交互式图表

# 转换为ggplotly交互式图，可自定义tooltip显示内容
ggplotly(p, tooltip = c("x", "y", "corr"))

关键说明 #

• 如果部分变量不需要替换标签，只需在var_labels中不添加对应条目即可，未映射的变量会保留原名。
• tooltip参数可以指定交互时显示的内容，corr对应相关系数，x/y对应替换后的变量名。
• 你可以保留自己原有的ggcorplot参数（如颜色、聚类设置等），只需在末尾追加scale_x_discrete()和scale_y_discrete()即可。

内容的提问来源于stack exchange，提问作者ctcodes