Recuperar valores únicos de cada elemento de uma lista

dúvidas
#1

Bom dia pessoal,
Tenho uma lista com 3 elementos e gostaria de recuperar os valores únicos da lista, mas mantendo o elemento de onde ele veio. Como seria possível fazer isso?

Segue um exemplo reprodutível (não consegui fazer o reprex funcionar, então segue um copy e paste :frowning: ):

arquivo_a ← c(“TcCLB.222657.20”,“TcCLB.506657.10”,“TcCLB.480975.10”)
arquivo_b ← c(“TcCLB.222657.20”,“TcCLB.506657.10”,“TcCLB.480975.11”)
arquivo_c ← c(“TcCLB.222657.20”,“TcCLB.506657.10”,“TcCLB.480975.12”)

list ← list(A = arquivo_a, B = arquivo_b, C = arquivo_c)

Lista criada:
$A
[1] “TcCLB.222657.20” “TcCLB.506657.10” “TcCLB.480975.10”

$B
[1] “TcCLB.222657.20” “TcCLB.506657.10” “TcCLB.480975.11”

$C
[1] “TcCLB.222657.20” “TcCLB.506657.10” “TcCLB.480975.12”

Output esperado:

$A
[1] “TcCLB.480975.10”

$B
[1] “TcCLB.480975.11”

$C
[1] “TcCLB.480975.12”

#2

Laila, eu não achei um jeito super simples de resolver o problema, mas acho que minha solução pelo menos atende aos requisitos.

O que eu faço no código abaixo é transformar a lista em uma tabela e agrupá-la por valor (os “TcCLB…” que você tem). Depois eu jogo fora os grupos que têm mais de 1 linha e transformo de volta a tabela no formato que você quer.

library(magrittr)

arquivo_a <- c("TcCLB.222657.20", "TcCLB.506657.10", "TcCLB.480975.10")
arquivo_b <- c("TcCLB.222657.20", "TcCLB.506657.10", "TcCLB.480975.11")
arquivo_c <- c("TcCLB.222657.20", "TcCLB.506657.10", "TcCLB.480975.12")

list <- list(A = arquivo_a, B = arquivo_b, C = arquivo_c)

list %>%
  tibble::as_tibble() %>%
  tidyr::pivot_longer(dplyr::everything()) %>%
  dplyr::group_by(value) %>%
  dplyr::filter(dplyr::n() == 1) %>%
  dplyr::ungroup() %>%
  tidyr::pivot_wider(names_from = name, values_from = value) %>%
  as.list()
#> $A
#> [1] "TcCLB.480975.10"
#> 
#> $B
#> [1] "TcCLB.480975.11"
#> 
#> $C
#> [1] "TcCLB.480975.12"

Created on 2022-04-26 by the reprex package (v2.0.1)

#3

Ei Caio, obrigada pela resposta. Dessa maneira funciona bem pra mim, mas tem um porém que esqueci de mencionar, os elementos possuem quantidades diferentes de identificadores. Por exemplo:
A - 8773 identificadores
B- 8757 identificadores
C- 8993 identificadores
Sendo assim, não estou conseguindo transformar a lista em tibble. Será que existe outra maneira?

#4

O código ficou mais feioso, mas é possível criar a tabela já empilhada, isto é, sem precisar do pivot_longer().

library(magrittr)

arquivo_a <- c("TcCLB.222657.20", "TcCLB.222657.20", "TcCLB.506657.10", "TcCLB.480975.10")
arquivo_b <- c("TcCLB.222657.20", "TcCLB.506657.10", "TcCLB.480975.11")
arquivo_c <- c("TcCLB.222657.20", "TcCLB.506657.10", "TcCLB.480975.12")

list <- list(A = arquivo_a, B = arquivo_b, C = arquivo_c)

list %>%
  purrr::imap_dfr(~ tibble::tibble(name = .y, value = .x)) %>%
  dplyr::group_by(value) %>%
  dplyr::filter(dplyr::n() == 1) %>%
  dplyr::ungroup() %>%
  tidyr::pivot_wider(names_from = name, values_from = value) %>%
  as.list()
#> $A
#> [1] "TcCLB.480975.10"
#> 
#> $B
#> [1] "TcCLB.480975.11"
#> 
#> $C
#> [1] "TcCLB.480975.12"

Created on 2022-04-26 by the reprex package (v2.0.1)

#5

Oi Caio, agora funcionou! Muito obrigada :slight_smile:

1 Curtida