更容易合并到gregexpr的一个字符串输出？

Question

我正在尝试将key出现在string时的所有索引合并为一个字符串。我想出了以下内容。但我想知道是否有更简单/更短的方式？

mystring = "ASDAS ap ASDASD ap AS"
key = "ap"
x = paste(as.data.frame(gregexpr(key, mystring))[1:nrow(as.data.frame(gregexpr(key, mystring))),], collapse=", ")

输出如下：

> x
[1] "7, 17"

Answer 1

我想你想要的东西如下：

paste(gregexpr(key, mystring)[[1]], collapse = ', ')
#[1] "7, 17"

只需使用[[1]]对gregexpr输出进行子集即可。