寻找可完全替代reshape2::melt的tidyverse工具：处理带维名矩阵的简便方法

在tidyverse生态中，reshape2::melt()的替代工具是tidyr::pivot_longer()，但处理带自定义维度名称的矩阵时，后者默认流程远不如前者便捷。

示例矩阵：

z <- matrix(1:12, ncol=3, 
       dimnames = list(a = 1:4, b = LETTERS[1:3]))

reshape2::melt(z)可以直接生成以矩阵维度名称（names(dimnames(z))）命名的ID列（"a"和"b"）的数据框，一步完成转换。而常规tidyverse流程需要先存储行列维名、转数据框、添加临时行名列、执行pivot_longer、重命名列，步骤繁琐。

以下是几种更简洁、符合tidyverse风格的处理方法：

方法1：直接利用as_tibble的rownames参数 #

通过as_tibble的rownames参数直接将矩阵行维名转为指定列名，再配合pivot_longer完成转长操作：

library(tidyverse)

z %>%
  as_tibble(rownames = names(dimnames(z))[1]) %>%
  pivot_longer(
    cols = -all_of(names(dimnames(z))[1]),
    names_to = names(dimnames(z))[2],
    values_to = "value"
  )

方法2：封装为复用函数 #

如果需要频繁处理这类矩阵，可以封装成一个符合tidyverse风格的小函数，自动提取矩阵的维度名称，实现类似reshape2::melt()的便捷体验：

melt_matrix <- function(mat, value_col = "value") {
  dim_names <- names(dimnames(mat))
  mat %>%
    as_tibble(rownames = dim_names[1]) %>%
    pivot_longer(
      cols = -all_of(dim_names[1]),
      names_to = dim_names[2],
      values_to = value_col
    )
}

# 调用示例
melt_matrix(z)

这两种方法都避免了手动处理临时列的冗余步骤，直接复用矩阵自带的维度名称，既简洁又贴合tidyverse的管道式编程风格。

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