将字符串拆分为列表中的元素

Question

包中的函数给了我一个字符，其中原始字符串合并在一起。我需要将它们分开，换句话说，我必须找到原始元素。这是一个示例以及我尝试过的方法：

orig<-c("answer1","answer2","answer3")
result<-"answer3answer2"

我需要的结果是：

c("answer2","answer3")

我尝试过 split() 结果，但没有字符串可以作为它的依据，尤其是我以前不知道答案是什么。

我已尝试将结果匹配（）到原点，但我需要对所有子字符串执行此操作。

必须有一个简单的解决方案，但我还没有找到。

Answer 1

index <- gregexpr(paste(orig,collapse='|'),result)[[1]]
starts <- as.numeric(index)
stops <- starts + attributes(index)$match.length - 1 )
substring(result, starts, stops)

这应该适用于定义明确且可逆的输入。或者，是否可以在函数的输入中附加一些字符串，以便之后可以轻松分离？

Answer 2

您所描述的似乎完全是字符串匹配，而对于您的字符串，grepl 似乎就是这样，特别是：

FindSubstrings <- function(orig, result){
  orig[sapply(orig, grepl, result)]
}

更详细地说：grepl 接受一个pattern 参数并查看它是否出现在您的字符串中（在我们的例子中为result），并返回一个TRUE/FALSE 值。我们通过逻辑向量对原始值进行子集化 - 值是否出现在字符串中？
可能的改进：

• fixed=TRUE 可能是个好主意，因为您不需要完整的正则表达式功能来进行简单的字符串匹配
• 某些匹配模式可能包含其他匹配模式，例如"answer10" 包含"answer1"
• stringi 对于此类任务可能更快（只是谣言四处流传，尚未经过严格测试），因此如果您经常这样做，您可能需要研究一下。