我有一个数据集，其中一列包含逗号分隔的值列表(其中一些是重复的).
我可以使用Separate()将该列拆分为多个列，但如何删除任何重复的值呢？
每一行都是唯一的，我希望保留所有行，只需删除每行中的重复值
这是我所拥有的:
| ID | Column A |
|---|---|
| 1 | "A" |
| 2 | "B,C" |
| 3 | "D,D,E" |
| 4 | "A,D" |
这就是我想要的:
| ID | Column A | Column B |
|---|---|---|
| 1 | A | NA |
| 2 | B | C |
| 3 | D | E |
| 4 | A | D |
我试着try 使用唯一的和复制的，有/没有strplit和/或lApply，但就是想不出什么似乎是一个相当简单的任务
请帮帮忙好吗？
tmp <- lapply(strsplit(quux[["Column A"]], ","), unique)
tmp <- lapply(tmp, `length<-`, max(lengths(tmp)))
tmp <- do.call(rbind, tmp)
colnames(tmp) <- paste0("col", 1:ncol(tmp))
cbind(quux, tmp)
# ID Column A col1 col2
# 1 1 A A <NA>
# 2 2 B,C B C
# 3 3 D,D,E D E
# 4 4 A,D A D
library(dplyr)
library(tidyr)
separate_longer_delim(quux, `Column A`, delim = ",") |>
distinct() |>
mutate(row = row_number(), .by = ID) |>
pivot_wider(id_cols = ID, names_from = row, values_from = `Column A`)
# # A tibble: 4 × 3
# ID `1` `2`
# <int> <chr> <chr>
# 1 1 A NA
# 2 2 B C
# 3 3 D E
# 4 4 A D
数据
quux <- structure(list(ID = 1:4, "Column A" = c("A", "B,C", "D,D,E", "A,D")), class = "data.frame", row.names = c(NA, -4L))