求优雅解决方案：获取大数据框中匹配小数据框行的行名

要解决的问题是：从大数据框中找出与去重后的小数据框各行完全匹配的所有行名，替代原来繁琐的嵌套循环，同时得到清晰的对应格式。

方法一：用tidyverse工具链（dplyr + tidyr） #

这种方法代码可读性高，适合习惯tidy风格的用户：

library(dplyr)
library(tidyr)

# 构造示例数据
ex <- data.frame(matrix(data = rep(0:1, 25), nrow = 5, ncol = 5))
uniq <- unique(ex)

# 给原数据框添加行名列，方便后续追踪
ex <- ex %>% mutate(row_name = rownames(.))

# 按数据行分组，汇总匹配的行名
result <- ex %>%
  group_by(across(-row_name)) %>%  # 按所有数据列分组
  summarise(matched_rows = paste(row_name, collapse = ", "), .groups = "drop") %>%
  mutate(uniq_row = row_number()) %>%  # 给去重后的行编序号
  select(uniq_row, matched_rows)

# 输出期望格式
cat("uniq: ex\n")
pwalk(result, ~cat(paste0(.x, ": ", .y, "\n")))

方法二：Base R原生实现 #

如果不想加载额外包，用base R就能搞定：

ex <- data.frame(matrix(data = rep(0:1, 25), nrow = 5, ncol = 5))
uniq <- unique(ex)

# 将每行转成字符串，用于匹配分组
ex_rows <- apply(ex, 1, paste, collapse = "\t")
uniq_rows <- apply(uniq, 1, paste, collapse = "\t")

# 得到原数据每行对应的去重行ID
group_ids <- match(ex_rows, uniq_rows)

# 按ID汇总行名
matched_list <- tapply(rownames(ex), group_ids, function(x) paste(x, collapse = ", "))

# 输出期望格式
cat("uniq: ex\n")
for (i in seq_along(matched_list)) {
  cat(paste0(i, ": ", matched_list[i], "\n"))
}

为什么这两种方法更好？ #

• 避免了嵌套循环，数据量大时效率提升明显
• 代码更简洁，逻辑清晰，容易维护
• 直接生成符合要求的输出格式，无需额外的NA清理操作

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