R - 从字符串右侧第n次出现字符后提取信息

Question

我已经看过许多提取w / gsub迭代，但它们主要处理从左到右或一次出现之后的提取。 我想从右到左匹配，计算四次出现- ，匹配第3次和第4次出现之间的所有事情。

例如：

string                       outcome
here-are-some-words-to-try   some
a-b-c-d-e-f-g-h-i            f

以下是我尝试过的一些参考资料：

• 找到特殊字符的第三次出现并在R之前删除所有内容

• 正则表达式 - 在第二次出现之前返回所有内容

Answer 1

x = c("here-are-some-words-to-try", "a-b-c-d-e-f-g-h-i")
sapply(x, function(strings){
    ind = unlist(gregexpr(pattern = "-", text = strings))
    if (length(ind) < 4){NA}
    else{substr(strings, ind[length(ind) - 3] + 1, ind[length(ind) - 2] - 1)}
})
#here-are-some-words-to-try          a-b-c-d-e-f-g-h-i 
#                    "some"                        "f" 

Answer 2

你可以用

([^-]+)(?:-[^-]+){3}$

请参阅regex101.com上的演示 。

---

在R这可能是

 library(dplyr) library(stringr) df <- data.frame(string = c('here-are-some-words-to-try', 'abcdefgh-i', ' no dash in here'), stringsAsFactors = FALSE) df <- df %>% mutate(outcome = str_match(string, '([^-]+)(?:-[^-]+){3}$')[,2]) df 

和收益率

  string outcome 1 here-are-some-words-to-try some 2 abcdefghi f 3 no dash in here <NA> 

Answer 3

分裂你的句子怎么样？ 就像是

string <- "here-are-some-words-to-try"

# separate all words
val <- strsplit(string, "-")[[1]]

# reverse the order
val rev(val)

# take the 4th element
val[4]

# And using a dataframe
library(tidyverse)
tibble(string = c("here-are-some-words-to-try", "a-b-c-d-e-f-g-h-i")) %>% 
mutate(outcome = map_chr(string, function(s) rev(strsplit(s, "-")[[1]])[4]))