如何用ggplot2的geom_point将5×6数值矩阵绘制成散点图？

核心问题：宽格式转长格式 #

ggplot2要求数据为长格式（每一行对应一个观测点），而矩阵直接转成的dataframe是宽格式（每一列对应矩阵的一列），这是你映射失败的主要原因。下面是完整的示例代码：

1. 生成示例矩阵（模拟你的数据）

set.seed(123) # 固定随机种子，结果可复现
X <- matrix(rnorm(30), nrow = 5, ncol = 6)
# 手动添加行列名（如果你的矩阵没有，可跳过或修改）
rownames(X) <- paste0("行", 1:5)
colnames(X) <- paste0("列", 1:6)

2. 转换为长格式数据

用tidyverse工具包的pivot_longer函数整理数据，把列名转为x轴变量，行名转为y轴变量：

library(tidyverse)

# 转dataframe并添加行名列，再转长格式
df <- as.data.frame(X) %>%
  mutate(y = rownames(.)) %>% # 提取行名作为y轴的取值
  pivot_longer(
    cols = -y,               # 除了y列之外的所有列
    names_to = "x",          # 列名存为x变量
    values_to = "value"      # 矩阵数值存为value变量
  )

如果不用tidyverse，可以用reshape2包的melt函数：

library(reshape2)
df_melted <- melt(X, varnames = c("y", "x"), value.name = "value")

3. 绘制散点图

现在可以直接映射x、y和数值：

ggplot(df, aes(x = x, y = y, color = value)) +
  geom_point(size = 4) + # 调整点的大小
  labs(x = "矩阵列", y = "矩阵行", title = "矩阵元素散点图") +
  theme_minimal()

关键说明 #

• 如果你的矩阵没有行列名，melt或pivot_longer会自动用行号/列号作为x、y的取值（比如1、2、3...），也可以正常映射。
• 报错的常见原因是直接用宽格式dataframe尝试映射，此时ggplot会把每个列当作独立变量，无法对应到x轴的单个取值。

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