根据 2 个条件返回列表中的重复项

Question

我有一个包含 2 个数据集的列表。

a = data.frame(c(1,1,1,1,1,2,2,2,2,2), c("a","b", "c", "d","e","e","f", "g", "h","i"))
colnames(a) = c("Numbers","Letters")
c = data.frame(c(3,3,3,3,3,4,4,4,4,4), c("q","r", "s", "t","u","u","v", "w", "x","y"))
colnames(c) = c("Numbers","Letters")
my.list = list(a,c)
my.list

我有兴趣只返回在每个数据集的唯一编号之间找到的共同字母。期望的结果如下所示：

new_a = data.frame(c(1,2),c("e","e"))
new_c = data.frame(c(3,4),c("u","u"))
colnames(new_a) = c("Numbers","Letters")
colnames(new_c) = c("Numbers","Letters")
my.new.list = list(new_a,new_c)
my.new.list

如您所见，字母“e”是数据集 1 中数字“1”和“2”共享的唯一常见字母，而字母“u”是数据集中数字 3 和 4 共享的唯一常见字母2.

我正在尝试为一个非常大的列表执行此操作。为了让您了解我的真正问题，我有一个列表，其中每个元素都是一个状态。在每个州，我都有多个资产经理或“账户”，每个账户都有多个代码。我正在尝试查找每个地理位置的帐户共有的代码。在上面的例子中，数字是账户，字母是股票代码，列表中包含的两个数据集是两个不同的状态。我希望这有助于解决我的问题。

谢谢！

Answer 1

library(data.table)
a <- as.data.table(a)
a[, if(.N > 1) .SD, by = list(Letters)]
#    Letters Numbers
# 1:       e       1
# 2:       e       2

说明：取表a并按列Letters（by = list(Letters)）分组，仅当行数（.N）为那个组是>1。

Answer 2

我们可以在base R 中使用Reduce 和intersect

 lapply(my.list, function(x) x[with(x, Letters %in%
                 Reduce(intersect, split(Letters, Numbers))),])

或使用dplyr

 library(dplyr)
 lapply(my.list, function(x)
                    x %>% 
                        group_by(Letters) %>% 
                        filter(n_distinct(Numbers)==2))

可以将其更改为具有附加分组列的单个数据集，然后执行相同操作，而不是使用 list，

 library(tidyr)
 unnest(my.list, group) %>%
            group_by(group, Letters) %>%
            filter(n_distinct(Numbers)==2)

如果我们不知道每个列表元素中唯一 Numbers 的数量

  unnest(my.list, group) %>% 
              group_by(group) %>% 
              mutate(n= n_distinct(Numbers)) %>%
              group_by(Letters, add=TRUE) %>% 
              filter(n_distinct(Numbers)==n) %>%
              select(-n)