在R中找到重复的图案

Question

在R中，我有一个包含数据的列表列表，例如

1 "a" "b" "c"
2 "a" "a" "b" "d"
3 "a" "a"

我需要在列表中确定常见的模式。 例如，在这里，“ a”“ a”和“ a”“ b”是常见的。 我尝试使用eclat（），但是不允许每个列表中都有重复的值。 然后，我尝试删除重复的值，但随后丢失了信息（例如“ a”，“ a”是一种常见模式）。

我也尝试重命名重复出现的内容，但是“ a”“ b”和“ a”“ a”“ b”不会将“ a”“ b”作为模式返回，因为第二个列表将重命名为类似“ a”“ a2”“ b”。

有什么更好的方法吗？

更新：

每个列表中的字符串可以是单个字符或字符串。 例如

1 "a+12" "bfd" "c"
2 "a+12" "a+12" "bfd" "d"
3 "a+12" "a+12" "a"

这里，“ a + 12”，“ bfd”和“ a + 12”，“ a + 12”应被识别为模式

Answer 1

至少对于示例数据而言，类似以下内容看起来很有帮助：

#data in a 'list'
myls = list(x1 = c("a+12", "bfd", "c"), 
            x2 = c("a+12", "a+12", "bfd", "d"),
            x3 = c("a+12", "a+12", "a"))

pats = table(unlist(lapply(myls, 
           function(x) combn(seq_along(x), 2, 
                             function(i) paste(x[i[1]:i[2]], collapse = ";")))))
strsplit(names(pats[pats == max(pats)]), ";")
#[[1]]
#[1] "a+12" "a+12"
#
#[[2]]
#[1] "a+12" "bfd"