在R中将矩阵转换为数据框

Question

我正在尝试将矩阵转换为数据框，并在数据框中使用矩阵中的列名和行名作为变量。
以下是示例：

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]

我的数据集有很多NA，因此我正在尝试删除数据框中的所有NA。

因此，这是我期望得到的输出：

 data.frame(col = c("v","v","w","w","y","y","y","z"),
           row = c("a","b","c","c","a","b","d","d"), 
           value = c(1,3,6,8,2,5,3,1))

- John legend2

---

最好不要将事物命名为“sample”，因为这会破坏使用R函数“sample”的函数。 - IceCreamToucan

Answer 1

使用reshape2包中的melt函数进行重塑，然后清除NA值。最后进行一些格式化操作以获得所需的输出（排序、设置列名等）。

> library(reshape2)
> df <- na.omit(melt(sample))  # reshaping
> df <- df[order(df$Var1), ]   # ordering
> colnames(df) <- c("col", "row", "value") # setting colnames
> df                           # getting desired output
   col row value
1    v   a     1
6    v   b     3
12   w   c     6
17   w   d     8
4    y   a     2
9    y   b     5
19   y   d     3
20   z   d     1

使用 dplyr 和 magrittr

> library(magrittr)
> library(dplyr)
> sample %>%  melt %>% 
    na.omit %>% 
    arrange(., Var1) %>%
    setNames(c('col', 'row', 'value'))

 col row value
1   v   a     1
2   v   b     3
3   w   c     6
4   w   d     8
5   y   a     2
6   y   b     5
7   y   d     3
8   z   d     1

- Jilber Urbina

Answer 2

这里有一个使用base R的方法，通过复制行名和列名来实现

out <- na.omit(data.frame(col = rownames(sample)[row(sample)],
     row = colnames(sample)[col(sample)], value = c(sample)))
out <- out[order(out$col),]
row.names(out) <- NULL
out
#  col row value
#1   v   a     1
#2   v   b     3
#3   w   c     6
#4   w   d     8
#5   y   a     2
#6   y   b     5
#7   y   d     3
#8   z   d     1

- akrun