r - 删除在 R 中的向量列表中只出现一次的元素

Question

我有一个包含 3 个向量的列表，X、Y 和 Z。我想知道如何在所有 3 个向量中删除仅出现一次的元素(此处为 ChandlerA 和 Trus.Hsu)？

d = list(X = c(Bit.KnoA = 4, Bit.KnoB = 1, Bit.KnoC = 2, ChandlerA = 3, Ellis.etal =4, 
               Mubarak=5, SheenA=6,  Shin.Ellis=7 , Sun = 8, Trus.Hsu=3 ), 

         Y = c(Bit.KnoA = 6, Bit.KnoB = 3, Bit.KnoC = 4, Ellis.etal =1, Mubarak=2, 
              SheenA=1,  Shin.Ellis=2 , Sun = 1),

         Z = c(Bit.KnoB = 2) )

Answer 1

你也可以使用 duplicated 因为你只对孤独者的值(value)观感兴趣:

nms <- unlist(lapply(d, names))
keep <- nms[duplicated(nms)]
lapply(d, function(x) x[names(x) %in% keep] )

#$X
#  Bit.KnoA   Bit.KnoB   Bit.KnoC Ellis.etal    Mubarak     SheenA Shin.Ellis        Sun 
#         4          1          2          4          5          6          7          8 
#
#$Y
#  Bit.KnoA   Bit.KnoB   Bit.KnoC Ellis.etal    Mubarak     SheenA Shin.Ellis        Sun 
#         6          3          4          1          2          1          2          1 
#
#$Z
#Bit.KnoB 
#       2