Question

我想在一些模式之后找到字符串。我的代码似乎工作但我无法完成这项工作。

以下是插图：

 pattern <- c("Iligan", "Cabeseria 25|Sta. Lucia", "Capitol", "Osmeña", 
 "Nowhere", "Aglayan")

# I want to match the string just after each pattern. For example I'm going to 
# match City just after Iligan.

  target <-c("Iligan City", "Sta. Lucia, Ozamiz City", " Oroquieta City", 
             "Osmeña St. Dipolog City", "Lucia St., Zamboanga City", 
"Aglayan str, Oroquieta City", "Gingoog City", "Capitol br., Ozamiz City", 
 "Dumaguete City", "Poblacion, Misamis")

#The matches seems to work fine
 (matches <- sapply(pattern,FUN=function(x){regexpr(paste0("
 (?<=\\b",x,"\\b ",")","[\\w-*\\.]*"),target,perl=T)}))
 print (matches)

#But I cannot get the results. I would need use the column of each matrix 
#at a time
 villain <- lapply(matches,FUN = function(x)(regmatches(target,x)))

你有解决这个问题的方法。

unpdate 1

为了精确起见，这里是所需的输出。

results <- c("City", "St.", "br.")

#[1] "City" "St."  "br."

Answer 1

stringr包中有一些助手可以简化流程：

pattern <- c("Iligan", "Cabeseria 25|Sta. Lucia", "Capitol", "Osmeña", 
             "Nowhere", "Aglayan")

target <-c("Iligan City", "Sta. Lucia, Ozamiz City", " Oroquieta City", 
           "Osmeña St. Dipolog City", "Lucia St., Zamboanga City", 
           "Aglayan str, Oroquieta City", "Gingoog City", "Capitol br., Ozamiz City", 
           "Dumaguete City", "Poblacion, Misamis")


matchPat <- function(x) {
  unlist(str_extract(target, perl(paste0("(?<=\\b", x, "\\b ",")","[\\w-*\\.]*"))))
}

matches <- sapply(pattern, matchPat)

print(matches)

##       Iligan Cabeseria 25|Sta. Lucia Capitol Osmeña Nowhere Aglayan
##  [1,] "City" NA                      NA      NA     NA      NA     
##  [2,] NA     NA                      NA      NA     NA      NA     
##  [3,] NA     NA                      NA      NA     NA      NA     
##  [4,] NA     NA                      NA      "St."  NA      NA     
##  [5,] NA     NA                      NA      NA     NA      NA     
##  [6,] NA     NA                      NA      NA     NA      "str"  
##  [7,] NA     NA                      NA      NA     NA      NA     
##  [8,] NA     NA                      "br."   NA     NA      NA     
##  [9,] NA     NA                      NA      NA     NA      NA     
## [10,] NA     NA                      NA      NA     NA      NA

如果您不需要非匹配指标，但未提供样本/预期输出，则可以进一步简化。

R使用正则表达式，具有多种模式

1 个答案: