如何合并列表中的多个tibble：按comp_levels连接并移除pval列

可以用tidyverse里的purrr和dplyr包来实现，步骤如下：

1. 清理每个tibble，移除pval列 #

遍历列表里的每个tibble，只保留comp_levels和所有以sig_开头的列：

library(tidyverse)

# 处理列表中的每个tibble
cleaned_list <- map(your_list, ~ select(.x, comp_levels, starts_with("sig_")))

2. 按comp_levels列连接所有tibble #

用reduce()函数把清理后的列表中的tibble依次按comp_levels做连接。如果要保留所有出现过的comp_levels，用full_join；如果只保留所有tibble共有的comp_levels，用inner_join：

# 全连接（保留所有comp_levels）
final_tibble <- reduce(cleaned_list, full_join, by = "comp_levels")

# 或者内连接（只保留共同的comp_levels）
# final_tibble <- reduce(cleaned_list, inner_join, by = "comp_levels")

完整示例 #

假设你的原始列表是这样的：

# 构造示例数据
tib1 <- tibble(
  comp_levels = c("A", "B", "C"),
  pval = c(0.01, 0.05, 0.1),
  sig_up = c(TRUE, FALSE, TRUE)
)

tib2 <- tibble(
  comp_levels = c("B", "C", "D"),
  pval = c(0.03, 0.07, 0.2),
  sig_down = c(FALSE, TRUE, FALSE)
)

your_list <- list(tib1, tib2)

运行前面的代码后，final_tibble的结果会是：

# A tibble: 4 × 3
  comp_levels sig_up sig_down
  <chr>       <lgl>  <lgl>   
1 A           TRUE   NA      
2 B           FALSE  FALSE   
3 C           TRUE   TRUE    
4 D           NA     FALSE   

这样就得到了只保留comp_levels和所有sig_*列的最终tibble。

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