R语言报错解决：匹配多数据框sampID替换clust列值

报错原因分析 #

报错Error in UseMethod("rowwise") : no applicable method for 'rowwise' applied to an object of class "list"的核心原因是：你调用了tidyverse的rowwise()函数，但目标对象cmoic.kirp$clust.res是列表（list）类型，而rowwise()仅支持tibble或data.frame类型的数据结构。

解决步骤与代码实现 #

1. 先将列表转换为有效数据框 #

首先检查cmoic.kirp$clust.res的结构，根据实际情况转换：

• 如果列表内包含单个数据框：

# 提取列表中的数据框
cmoic.kirp$clust.res <- cmoic.kirp$clust.res[[1]]

• 如果列表内包含多个数据框，需要合并为单个数据框：

library(tidyverse)
# 合并列表中的所有数据框
cmoic.kirp$clust.res <- bind_rows(cmoic.kirp$clust.res)

2. 实现聚类结果匹配赋值 #

将两个子聚类结果合并，再与主数据框匹配，替换对应clust值：

# 合并两个子数据集的sampID与clust信息
sub_clust_data <- bind_rows(
  # 提取第一个子集的关键列
  cmoic.kirp.sub1.k4$clust.res %>% select(sampID, clust),
  # 提取第二个子集的关键列
  cmoic.kirp.sub2.k5$clust.res %>% select(sampID, clust)
)

# 匹配并更新主数据框的clust列
cmoic.kirp$clust.res <- cmoic.kirp$clust.res %>%
  # 按sampID左连接合并数据
  left_join(sub_clust_data, by = "sampID", suffix = c("_original", "_new")) %>%
  # 用新的clust值替换原有的，原无匹配值则保留原值（可选，根据需求调整）
  mutate(clust = coalesce(clust_new, clust_original)) %>%
  # 移除临时列
  select(-clust_original, -clust_new)

简化版（直接覆盖原clust值） #

如果不需要保留原clust列的旧值，可直接替换：

cmoic.kirp$clust.res <- cmoic.kirp$clust.res %>%
  left_join(sub_clust_data, by = "sampID") %>%
  mutate(clust = clust.y) %>%
  select(-clust.y)

验证结果 #

运行代码后，可通过以下命令验证匹配是否成功：

# 检查是否有匹配上的sampID
filter(cmoic.kirp$clust.res, !is.na(clust))

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