r - 按分隔符拆分列并删除包含在其他值中的值

Question

我有一个由“;”分隔的类别列。即值:

value <- "A > B > C; A > B > D; A > B > C > C1"

意思是:

当前产品属于类别“A > B > C”，属于类别“A > B > D”和类别“A > B > C > C1”

如果一个类别已包含在另一个类别中，则应将其删除。所以目标是:

expectedResult <- "A > B > D; A > B > C > C1"

因为“A > B > C > C1”包含“A > B > C”。

我该如何解决这个问题？

注意:我知道有数百个问题看起来很相似。但我就是找不到解决方案。

Answer 1

这应该有效:

value <- "A > B > C; A > B > D; A > B > C > C1"
els <- strsplit( value, "; " )[[1]]

my_reducer  <- function(a,b) {
    v <- str_detect( b, fixed(a) )
    a <- a[!v]
    append(a,b)
}

paste( Reduce( my_reducer, els ), collapse="; " )

输出:

> Reduce( my_reducer, els )
[1] "A > B > D; A > B > C > C1"