Extrahieren einer Zeichenfolge basierend auf Position gefunden Charakter in R

Question

fand ich im folgenden Satz die Positionen von „oo“ aus:

sentence <- "It is a good book. Good for first reading. 
This book explains everything in Qdetail with tons of examples and exercises for practice. Good for cracking written tests on campuses and competitive exams. It is cheap so any way one can have a copy along with other books" 

pos = gregexpr("oo", sentence) 

ich das Ergebnis als

bekam

> pos 
[[1]] 
[1] 10 15 21 50 136 263 
attr(,"match.length") 
[1] 2 2 2 2 2 2 
attr(,"useBytes") 
[1] TRUE 

Basierend auf den Ergebnis, ich möchte 10 Zeichen aus jeder Position extrahieren (5 vor der Position und 5 nach der Position)

Für ein Beispiel, Ich sollte Ergebnis für den ersten Speicherort alserhalten"s ein gutes bo" Und ich möchte diese Extraktion für jede Position. Da ich neu bei R bin, konnte ich nicht viel herausfinden. Bitte helfen Sie mir dabei.

Was soll ich tun, wenn ich die Worte zu extrahieren, wie es unten gezeigt wird: ich sollte „ein gutes Buch“ bekommen für die erste Instanz von

passende

Answer 1

tun wir substring nach unlist die gregexpr ing verwenden können Ausgabe.

v1 <- unlist(gregexpr("oo", sentence)) 
substring(sentence, v1 - 5, v1 +5) 
#[1] "s a good bo" "ood book. G" "ok. Good fo" "his book ex" "ce. Good fo" "her books" 

Answer 2

Wenn Sie nicht Paket mit stringr nichts dagegen

library(stringr) 
ind<-str_locate_all(sentence,"oo")[[1]][ ,1] 
str_sub(sentence,ind-5,ind+5) 


[1] "s a good bo" "ood book. G" "ok. Good fo" "his book ex" "ce. Good fo" "her books" 

Answer 3

Sie könnten auch

mapply(
    substr, 
    x=sentence, 
    start=pos[[1]]-5, 
    stop=pos[[1]]+5, 
    USE.NAMES = F 
) 
# [1] "s a good bo" "ood book. G" "ok. Good fo" 
# [4] "his book ex" "ce. Good fo" "her books" 

Answer 4

pos = gregexpr("oo", sentence) 

Passen Sie die Positionen und Längen:

pos[[1]] <- pmax(pos[[1]] - 5, 0) 
attr(pos[[1]], "match.length")[] <- 11 
regmatches(sentence, pos) 
#[[1]] 
#[1] "s a good bo" "ood book. G" "ok. Good fo" "his book ex" "ce. Good fo" "her books"