r - 拆分字符串并检查所有元素在 R 中是否唯一

Question

我试图拆分一个字符串，然后检查它的所有元素是否都是唯一的。到目前为止，我已经完成了以下工作:

df <- data.frame(
"id" = c("001;002;003", "001;001;001", "001;001;002"),
"v1" = c("a", "b", "c")
)

sapply(strsplit(df$id, ";"), function(x) unique(x) %in% df$id)

我的意图是输出 FALSE , TRUE , 和 FALSE ，分别为 "001;002;003" , "001;001;001" , 和 "001;001;002"提前致谢!!

Answer 1

我们可以查看 unique length

sapply(strsplit(df$id, ";"), function(x) length(unique(x))== 1)
[1] FALSE  TRUE FALSE

或与 n_distinct来自 dplyr

library(dplyr)
library(tidyr)
df %>% 
   separate_rows(id) %>% 
   group_by(v1) %>%
   summarise(flag = n_distinct(id) == 1)

-输出

# A tibble: 3 x 2
  v1    flag 
  <chr> <lgl>
1 a     FALSE
2 b     TRUE 
3 c     FALSE