Question

请查看以下5个句子并查看单词＆＃34;进一步＆＃34;。我需要以这样的方式构建一个逻辑，我需要在＆＃34;之前选择两个单词＆＃34;在＆＃34;进一步＆＃34;之后选择两个单词。字。

例如，观察以下五个句子，对于句子1-我需要在进一步选择两个单词之前＆＃34;到＆＃34; ＆安培; ＆＃34;预先＆＃34;在＆＃34;进一步＆＃34;之后没有任何文字。对于第2句 - 我需要选择＆＃34;一个＆＃34; ＆安培; ＆＃34;早晨＆＃34;之后没有任何文字＆＃34;进一步＆＃34; 对于第3句 - 我需要选择＆＃34;然后＆＃34;和＆＃34;早上＆＃34; ＆安培; ＆＃34;丘陵＆＃34;因为在之前没有两个单词之后的两个单词和之前的单词＃34;进一步＆＃34; 对于第4句 - 我需要选择＆＃34; mount＆＃34; ＆安培;拒绝了，并且＆＃34;提前＆＃34;因为有两个词之前＆＃34;进一步＆＃34;在＆＃34;进一步＆＃34;之后的一个词句子5 - ＆＃34;早晨＆＃34;，＆＃34;工厂＆＃34; ＆安培; ＆＃34;拒绝＆＃34;，＆＃34;到＆＃34;作为两个词之前和两个词之后＆＃34;进一步＆＃34;

任何帮助都是适当的 - 我正在寻找的逻辑应来自R语言

1)Then one morning Mills refused to mount refused to advance further
2)further one morning Mills refused to mount refused to advance 
3)Then further morning Mills refused to mount refused to advance 
4)Then one morning Mills refused to mount refused further advance 
5)Then one morning Mills further refused to mount refused to advance

Answer 1

这是stringr和dplyr的一种方式：

library(stringr)
library(dplyr)

x %>% 
  str_extract(regex('(?:[^ ]+ ){0,2}further(?: [^ ]+){0,2}', ignore_case = TRUE)) %>% 
  str_remove(regex("further", ignore_case = TRUE)) %>% 
  str_squish()

[1] "to advance"               "one morning"              "Then morning Mills"      
[4] "mount refused advance"    "morning Mills refused to"

数据：

x <- c("Then one morning Mills refused to mount refused to advance further",
       "further one morning Mills refused to mount refused to advance",
       "Then further morning Mills refused to mount refused to advance",
       "Then one morning Mills refused to mount refused further advance", 
       "Then one morning Mills further refused to mount refused to advance")

Answer 2

有很多方法可以做到这一点;这是基地R的一种可能性：

# Your sample strings
ss <- c("Then one morning Mills refused to mount refused to advance further",
"further one morning Mills refused to mount refused to advance",
"Then further morning Mills refused to mount refused to advance",
"Then one morning Mills refused to mount refused further advance",
"Then one morning Mills further refused to mount refused to advance")

sapply(ss, function(x) {
    v <- unlist(strsplit(x, " "));
    idx <- grep("further", v);
    idx <- c(idx - 2, idx - 1, idx + 1, idx + 2);
    idx <- idx[idx > 0 & idx <= length(v)];
    return(v[idx]);
})
#$`Then one morning Mills refused to mount refused to advance further`
#[1] "to"      "advance"
#
#$`further one morning Mills refused to mount refused to advance`
#[1] "one"     "morning"
#
#$`Then further morning Mills refused to mount refused to advance`
#[1] "Then"    "morning" "Mills"
#
#$`Then one morning Mills refused to mount refused further advance`
#[1] "mount"   "refused" "advance"
#
#$`Then one morning Mills further refused to mount refused to advance`
#[1] "morning" "Mills"   "refused" "to"

说明：strsplit每句话都成字;找到"further"的位置，然后选择并返回前两个单词（如果存在）; sapply每个句子的整个程序。

更新

或者输出中应包含“进一步”一词：

sapply(ss, function(x) {
    v <- unlist(strsplit(x, " "));
    idx <- grep("further", v);
    idx <- c(idx - 2, idx - 1, idx, idx + 1, idx + 2);
    idx <- idx[idx > 0 & idx <= length(v)];
    return(v[idx]);
})
#$`Then one morning Mills refused to mount refused to advance further`
#[1] "to"      "advance" "further"
#
#$`further one morning Mills refused to mount refused to advance`
#[1] "further" "one"     "morning"
#
#$`Then further morning Mills refused to mount refused to advance`
#[1] "Then"    "further" "morning" "Mills"
#
#$`Then one morning Mills refused to mount refused further advance`
#[1] "mount"   "refused" "further" "advance"
#
#$`Then one morning Mills further refused to mount refused to advance`
#[1] "morning" "Mills"   "further" "refused" "to"

Answer 3

另一种方式：

library(stringr)

get_values <- function(str)
{
    val <- str_extract(str, "([^\\s]+\\s){0,2}further(\\s[^\\s]+){0,2}")
    val <- str_trim(gsub(pattern = 'further', replacement = '', x = val))
    return (val)
}

# you can further unlist this to get answer as a vector instead of a list
answer <- lapply(text, get_values)

[[1]]
[1] "to advance"

[[2]]
[1] "one morning"

[[3]]
[1] "Then  morning Mills"

[[4]]
[1] "mount refused  advance"

[[5]]
[1] "morning Mills  refused to"

我需要以这样的方式构建一个逻辑，我需要在＆＃34;之前选择两个单词＆＃34;在＆＃34;进一步＆＃34;之后选择两个单词。字。

3 个答案:

更新