在R语言中将矩阵转换为数据框并去除NA，保留行列名

嘿，这个需求我经常碰到！要把带行列名的矩阵转成不含NA的长格式数据框，其实有两种简单的实现方式，我给你一步步演示：

首先先确认你的示例数据：

sample <- matrix(c(1,NA,NA,2,NA,3,NA,NA,5,NA,NA,6,NA,NA,NA,NA,8,NA,3,1),ncol = 4)
colnames(sample) <- letters[1:4]
row.names(sample) <- letters[22:26]

方法一：基础R实现（无需额外包） #

用as.data.frame.table()可以直接把矩阵转成包含行列名的表格，再过滤掉NA即可：

# 转换为表格格式，指定数值列名称
df_long <- as.data.frame.table(sample, responseName = "value")
# 过滤掉含NA的行
df_clean <- df_long[!is.na(df_long$value), ]
# 调整列名顺序匹配你的需求
colnames(df_clean) <- c("row", "col", "value")

# 查看结果
df_clean

运行后你会得到不含NA的长格式数据框，列名就是row、col和对应的数值value，完全符合你的期望格式。

方法二：tidyverse工具（更简洁直观） #

如果你习惯用tidyverse生态的包，用pivot_longer()和drop_na()可以一步到位：

library(tidyverse)

# 先把矩阵转成带行名的数据框
sample_df <- rownames_to_column(as.data.frame(sample), var = "row")

# 转成长格式并自动过滤NA
df_clean_tidy <- sample_df %>%
  pivot_longer(cols = -row, names_to = "col", values_to = "value") %>%
  drop_na(value)

# 查看结果
df_clean_tidy

这种方法代码可读性更高，尤其是处理大型数据集时，链式操作非常方便。

两种方法最终的输出结构完全一致，你可以根据自己的习惯选择使用~

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