從 R 中向量內的列表中刪除重復項

Question

我有一個列表向量，如下例所示：

library(tidyverse)

z <- tribble(
  ~x,
  c(10, 10, 64),
  c(22, 22),
  c(5, 9, 9),
  c(55, 55),
  c(76, 65)
)

我正在嘗試減少每個列表以僅包含具有唯一值的案例。 這是我正在尋找的輸出：

y <- tribble(
  ~x,
  c(10, 64),
  c(22),
  c(5, 9),
  c(55),
  c(76, 65)
)

當然，我無法發布實際輸出，並且必須將其作為此示例的新數據集寫出來，否則它看起來像這樣：

# A tibble: 5 x 1
  x        
  <list>   
1 <dbl [3]>
2 <dbl [2]>
3 <dbl [3]>
4 <dbl [2]>
5 <dbl [2]>

Answer 1

我們可以使用map遍歷list並應用unique

library(dplyr)
library(purrr)
z %>% 
   mutate(x = map(x, unique))

---

在base R ，它將是

z$x <- lapply(z$x, unique)