R：在列表中找出相同的元素

a6b3iqyw 于 2023-06-19 发布在其他

关注(0)|答案(3)|浏览(104)

我想从列表中找到相同的元素。例如，如果列表元素是dataframe：

List1 <- list(A=data.frame(id=c("LA","WE","SE"),num=c(1,3,2)),
              B=data.frame(id=c("PO","TD","WW"),num=c(8,1,4)),
              C=data.frame(id=c("PO","TD","WW"),num=c(8,1,4)),
              D=data.frame(id=c("SS","FW","MW"),num=c(2,5,1)),
              E=data.frame(id=c("LA","WE","SE"),num=c(1,3,2)),
              G=data.frame(id=c("LA","WE","SE"),num=c(1,3,2)))

我希望得到以下输出：

List2 <- list(c("A","E","G"),c("B","C")) 
#i.e., A, E, G are identical. B and C are identical.

有什么简单的方法吗？Thanks！

来源：https://stackoverflow.com/questions/76474364/r-find-out-identical-elements-in-a-list

3条答案

按热度按时间

ijxebb2r1#

你可以试试下面的代码

> unname(split(names(List1), unlist(lapply(List1, toString))))
[[1]]
[1] "A" "E" "G"

[[2]]
[1] "B" "C"

[[3]]
[1] "D"

赞(0）回复(0）举报 2023-06-19

mwkjh3gx2#

比较整个 Dataframe 的另一种选择是对它们进行散列，然后比较散列

digests <- sapply(List1, digest::digest)
sets <- split(names(List1), digests)
unname(sets)
# [[1]]
# [1] "A" "E" "G"
# [[2]]
# [1] "D"
# [[3]]
# [1] "B" "C"

赞(0）回复(0）举报 2023-06-19

oprakyz73#

在tidyverse框架中，您还可以enframe列表和group_by数据。

library(tidyverse)
enframe(List1) %>% 
  reframe(name = list(name), .by = value) %>% 
  pull(name)

# [[1]]
# [1] "A" "E" "G"
# 
# [[2]]
# [1] "B" "C"
# 
# [[3]]
# [1] "D"

赞(0）回复(0）举报 2023-06-19

我来回答

R：在列表中找出相同的元素

3条答案

相关问题

热门标签

最新问答