基于包含列表的列的子集数据框并从中创建不同的子集数据框

Question

我试图根据包含不同向量列表的列对我的数据进行子集化，并希望得到您的帮助以找出最佳解决方案。我需要从中产生不同的子集 df 并在最后将它们绑定在一起。载体列表还包含一些常见的基因......这就是我决定将它们放在不同列表中的原因。

到目前为止，这是我的代码：

#produce list of vectors to subset with
gene_pairs_df <- gene_pairs%>%
  select(Gene_2, groups)%>%
  pivot_wider(names_from = groups, values_from = Gene_2, values_fn = list)%>%
  pivot_longer(cols = 1:14, names_to = "groups", values_to = "Gene_2")

#filter and create different subset dataframes based on those lists

libs_1 <- lapply(1:14, function(data) filter(data, gene %in% gene_pairs_df$Gene_2))